Dante Amor

Con gusto te ayudo a reemplazar la fórmula con algo que se conoce como arreglos o matrices. Todos los datos se cargan en memoria en las matrices, se realizan todos los cálculos en memoria y en un solo paso se ponen todos los datos en la hoja....

Aquí un par de ejemplos donde mi respuesta fue la correcta, y tú recibiste valoración sin aportar: Macro para incrementar numero y guardar como PDF Como Sumar Fechas más Días en Userform Y existen más ejemplos como los anteriores. En esos casos no...

Cuando utilizas el método Find y FindNext, excel almacena en memoria las siguientes referencias, pero cuando eliminas una fila, como es este el caso, excel pierde la referencia de la fila, porque la fila fue eliminada y la siguiente fila se recorrió,...

[No soy el "otro experto", como suele nombrarme, mi nombre es Dante Amor, soy el experto número 1 de este foro y bien que lo sabe! Siempre la he tratado con todo respeto, pero ya me cansaron sus groserías y sus constantes comentarios irrespetuosos...

Te anexo la macro para copiar los datos: Sub CopiarDatos() Dim sh1 As Worksheet, sh2 As Worksheet Dim f As Range Dim i As Long Dim cont As String ' Set sh1 = Sheets("FORMATO") Set sh2 = Sheets("RESUMEN") cont = sh1.Range("D21").Value If cont = ""...

Señora, siempre la he tratado con todo respeto, pero ya me cansaron sus groserías y sus constantes comentarios irrespetuosos hacia mi persona. Yo no soy el que andaba presumiendo su posición en este foro, por si ya se le olvidó, aquí se lo recuerdo:...

Utiliza la siguiente fórmula =SUMAPRODUCTO((Hoja2!H2:BG20)*(Hoja2!H1:BG1>=Hoja1!A4)*(Hoja2!H1:BG1<=Hoja1!B4)*((Hoja2!BH2:BH20=Hoja1!AA5)+(Hoja2!BH2:BH20=Hoja1!AA6))) Si la fórmula va en la misma Hoja1, entonces puede ser así:...

Buen aporte Abraham Valencia, Solamente un tip para los demás lectores; para evitar escribir varias veces la misma hoja, se puede hacer referencia de la siguiente manera: Sub copiaCelda() Dim fila As Long fila = ActiveCell.Row With Sheets("Hoja1") If...

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