Cecilio Pérez Maqueda

Cuando realizas el pegado en este caso después del copy destination:=sheets("imprimir"). Range("E4"). PasteSpecial Paste:=xlValues

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

¿Y por que no intentas con la función hallar?

Si no me equivoco solo tienes que eliminar la línea que inicia con el if " y la línea que dice end if

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

Seria algo asi obviamente al inicio seria sub y al final end sub ruta = "C:\Users\I5\Desktop\" libro = "Prueba2.xlsx" If Dir(ruta & "\" & libro) = "" Then MsgBox "No se encuentra el libro Prueba2 en esta carpeta... verifica y vuelve a intentar.", ,...

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

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

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