Cecilio Pérez Maqueda

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.

Deseas eliminar espacios, prueba algo así adáptalo a tus necesidades, por ejemplo cambia Hoja1 al nombre de tu hoja en lugar de B3:b18 Adáptalo, o si gustas en un ratito me desocupo y te puedo ayudar con más calma, Saludos Sub Espacios() Dim cell As...

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