Dante Amor

Prueba así: Sub copiaformula() Dim fila As Long Dim sh As Worksheet ' Application.ScreenUpdating = False Set sh = Sheets("10") fila = ActiveCell.Row If fila < 33 Then MsgBox "Debes seleccionar una fila mayor a 32" Exit Sub End If...

[Ho la Iris y bienvenida a TodoExpertos. Te muestro otra opción. Puedes cambiar esta línea: If Cells(i, 1) <> "" Then Por esta, utilizando la propiedad DataBodyRange de la tabla: If TablaOrigen1.DataBodyRange(i, 1) <> "" Then De esa manera el...

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...