Copiar y pegar un registro
Hola elsa tengo una libro en el cual quiero copiar un registro de 7 campos a otra hoja, bien tengo la sig sintaxis
Sheets("Hoja3").Select
Range("b4:w4").Select
Selection.Copy
Sheets("Hoja2").Select
Range("b3").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Hoja1").Select
Range("c8:e12").Select
Selection.ClearContents
Range("f12:i12").Select
Selection.ClearContents
Range("c2:c4").Select
Selection.ClearContents
Range("c2").Select
Application.CutCopyMode = False
bien funciona si ya tengo la base de datos cargada pero ci esta vacia no encuentra el ultimo registro como hago para decirle que copie en el primer registro libre? Gracia por tu respuesta
Sheets("Hoja3").Select
Range("b4:w4").Select
Selection.Copy
Sheets("Hoja2").Select
Range("b3").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Hoja1").Select
Range("c8:e12").Select
Selection.ClearContents
Range("f12:i12").Select
Selection.ClearContents
Range("c2:c4").Select
Selection.ClearContents
Range("c2").Select
Application.CutCopyMode = False
bien funciona si ya tengo la base de datos cargada pero ci esta vacia no encuentra el ultimo registro como hago para decirle que copie en el primer registro libre? Gracia por tu respuesta
1 Respuesta
Respuesta de Elsa Matilde
1