Dante Amor

Prueba así: ComboBox1.List(ComboBox1.ListCount - 1, 1) = Format(.Cells(L, 7), "$#,##0;-$#,##0") '7=valor en moneda

Prueba esto: Sub calculo_automatico() Application.Calculation = xlCalculationAutomatic Calculate Application.Calculation = xlCalculationManual End Sub

No es posible que calcule solamente una línea. Cuando activas el cálculo automático lo hace para toda la hoja. Te pregunto, ¿por qué tienes apagado el cálculo automático? ¿Tienes demasiadas fórmulas y la hoja es lenta?

Para saber qué estás copiando y en dónde pegas, necesito hacer pruebas. Te ayudo a simplificar la macro y a resolver el problema que tienes, pero necesito hacer pruebas con tu archivo. Sube tu archivo en google drive, comparte el archivo para...

Dame oportunidad de revisar el archivo y regreso aquí con la respuesta.

Puedes utilizar las áreas de un rango para pasar todo el rango de celdas, en lugar de hacerlo por celda. Si en lugar de copiar y pegar, pasas los valores, el proceso será más rápido. Revisa esta opción: Sub MetodoAbrirLibro_2() Dim wbOr As Workbook,...

Debes cambiar esto: (Range("g2").Select) & ".xls" A .Value y si tienes versión 2007 o superior cambia la extensión a xlsm (Range("g2").Value) & ".xlsm"

Prueba lo siguiente: Calcula la siguiente fila disponible de la columna A Sub CopiaTabla() Dim i As Worksheet Dim r As Worksheet Dim pt As PivotTable Dim rng As Range Dim lr As Long ' Set i = Worksheets("Ordenar") Set r = Worksheets("Formato...

Necesitas crear 2 formatos. Selecciona las celdas de A4 a E12. Crea una regla de formato concional Formato 1 para las letras en rojo. En formato condicional agrega esta fórmula: =REDONDEAR(B4, 0)<11 Elige el formato rojo para la fuente de la letra....

[Ho la y bienvenido a TodoExpertos. Revisa mi respuesta: Guardar Documentos de Word a PDF con Macro [No olvides valorar esta respuesta y like a mis otras respuestas.