Copiar filas
Expertos buenas tardes.
Como puedo mediante una macro, copiar (1) fila de una hoja a otra.
De manera que la fila copiada en la otra hoja vaya colocándose en una fila en blanco.
Gracias de Antemano
Como puedo mediante una macro, copiar (1) fila de una hoja a otra.
De manera que la fila copiada en la otra hoja vaya colocándose en una fila en blanco.
Gracias de Antemano
1 Respuesta
Respuesta de agca73
1
Aqui te envio el codigo. Tan solo deberas de ajustar los nombres de las hojas para que coincidan con las de tu archivo.
Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 15/02/2007 por Carlos Amaya
'
'
Dim miDireccionInicial As String
Dim miTexto As String
Dim miLargoTexto As Integer
miDireccionInicial = ActiveCell.Address
ActiveCell.EntireRow.Select
Selection.Copy
Worksheets("HOJA2").Select
Range("a1").Select
miTexto = ActiveCell.Value
miLargoTexto = Len(miTexto)
Do Until miLargoTexto = 0
ActiveCell.Offset(1, 0).Range("A1").Select
miTexto = ActiveCell.Value
miLargoTexto = Len(miTexto)
Loop
ActiveSheet.Paste
Worksheets("Hoja1").Select
Range(miDireccionInicial).Select
Application.CutCopyMode = Off
End Sub
Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 15/02/2007 por Carlos Amaya
'
'
Dim miDireccionInicial As String
Dim miTexto As String
Dim miLargoTexto As Integer
miDireccionInicial = ActiveCell.Address
ActiveCell.EntireRow.Select
Selection.Copy
Worksheets("HOJA2").Select
Range("a1").Select
miTexto = ActiveCell.Value
miLargoTexto = Len(miTexto)
Do Until miLargoTexto = 0
ActiveCell.Offset(1, 0).Range("A1").Select
miTexto = ActiveCell.Value
miLargoTexto = Len(miTexto)
Loop
ActiveSheet.Paste
Worksheets("Hoja1").Select
Range(miDireccionInicial).Select
Application.CutCopyMode = Off
End Sub
