Cecilio Pérez Maqueda

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

Te adjunto avance, para que lo revises Sub transferirDatosOtraHoja() Dim id As String Dim nombre As String Dim descripcion As String Dim bueno As String Dim malo As String Dim ultimaFila As Long Dim ultimaFilaHoja As Long Dim cont As Long Dim...

Quieres qué desde la hoja Resumen busque el código 1601 pero a la vez que sea de fecha 09 de julio en la Hoja "Datos" y que te devuelva la dirección o como?

Escribe la siguiente fórmula en G42 =SI(D46<E46,D46,"")

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

A ver prueba esto si te sirve, adapta lo que necesites, o dime datos concretos para ayudarte, saludos Sub uniendohojas() For Sig = 2 To Worksheets.Count Worksheets(Sig).UsedRange.Copy _ Worksheets(1).Range("a1048576").End(xlUp).Offset(1) Next...

Por el momento puedes Poner lo siguiente Application.screenUpdating= False antes de j=2 y justo antes de end Sub escribe Application.screenUpdating= True En cuanto tenga un tiempo libre o un espacio, le acomodamos el With para aligerar otro poco O si...