Copiar ultima fila de una columna
Hola que tal expertos!
Antes que nada gracias por tomarse el tiempo de leer mi duda, se como se realiza esta macro, pero como mi columna nunca tiene la misma dirección osea no es fija, pues no se como realizar este procedimiento.
Se que para copiar el ultimo dato de una columna a otra hojas es asi:
sub copiar()
Sheets("Hoja1").select
Range("A2".End(xlDown).Select
Selection.Copy
Sheets("Hoja2").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
Entonces lo que yo quiero implementar es que de acuerdo al encabezado de la columna me lo busque y de ahi recorra toda la columna hasta el final y me copie el rango
Se que para leer el encabezado de una columna seria asi:
Rows(1).Find("operaciones").Offset(1).Select
Range(Selection, Selection.End(xlUp)).Copy Hoja2.Range("a1")
Pero no logro que me copie el ultimo dato.
Gracias, saludos.
1 Respuesta
Olvide mencionar que con esa instrucción que me proporcionas, tampoco me da ya que, me selecciona todo el rango sin incluir el encabezado es decir de a2 en adelante, y yo solo requiero la ultima celda de esa columna.
Gracias, saludos.
Esta sería una forma de llegar a la última celda de la columna que tiene como encabezado "operaciones"
Set b = Rows(1).Find("operaciones")
If Not b Is Nothing Then
u = Cells(Rows.Count, b.Column).End(xlUp).Row
Cells(u, b.Column).Copy Hoja2.Range("a1")
End If
