Cecilio Pérez Maqueda

Si gustas mándame tu archivo a [email protected] y te ayudo

Pero a la hora de generar datos en la segunda hoja solo veo una vez el dato de Endid1, Mándame tu archivo a [email protected] para trabajarlo

Si gustas mándame tu archivo a [email protected] con un breve ejemplo de tu resultado esperado

Si no te hubiese funcionado los anteriores mándame tu archivo a [email protected] para ayudarte.

A ver adapta a tus necesidades, en este caso, supuse que los datos inician en A11 y la fórmula lo inserte en la columna "G", Sub reto() 'coding by Cecilio perez M With [A11] If .Offset(0) = Empty Then Exit Sub c = .End(xlDown).Row End With For I = 11...

O sea que tu base de datos abarca la columna (A:E) Si es así entonces cambia en tu código Lo siguiente Range("H1").Select ActiveCell.FormulaR1C1 = "=DSUM(C[-7]:C[-3],2,R[1]C:R[2]C)" Range("H2").Select ya que lo que hace es seleccionar H1 regresas 7...

Pues intenta así Sub macro () Dim wb as Workbook:Set wb = Thisworkbook Dim Ho as Worksheet: set Ho=wb.Sheets ("RE-DE-02 POA") Dim Hd as worksheet:set Hd=wb.Sheets ("PRESUPUESTO") For i = 15 To Ho.range ("F" & Rows.count).End(xlUp).Row...

Sub uniendohojas() For Sig = 2 To Worksheets.Count Worksheets(Sig).UsedRange.Copy _ Worksheets(1).Range("a1048576").End(xlUp).Offset(0, 0) Next Application.DisplayAlerts = False End Sub prueba y comentas

Ya probaste algo así, adáptalo a tus necesidades Range("b6").Select fin = Range("b" & Rows.Count).End(xlUp).Row Set ran = Range("b6:b" & fin).SpecialCells(xlCellTypeBlanks) ran.EntireRow.Delete

¿Y en qué columna se encuentran los datos a comparar?