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
La instrucción End(xlDown) - hacia abajo - presenta el inconveniente que si no hay datos a partir de la celda activa no encuentra el fin .
Utilizá esta otra opción - hacia arriba -
Lo que le agregué es que si la necesitas empezar en fila 3, si la fila que encuentra libre es menor, la establezca en 3.
fil = Range("B65536").End(xlUp).Row + 1
If fil < 3 Then fil = 3
cells(fil,2).select
'fijate si necesitas pasarte 1 linea hacia abajo o no, sinó directamente seguis con el pegado.
Selection.pasteSpecial....................
*Todas las opciones de selección en manuales Programación VBA y 400MacrosPlus.
Sdos
Elsa
Utilizá esta otra opción - hacia arriba -
Lo que le agregué es que si la necesitas empezar en fila 3, si la fila que encuentra libre es menor, la establezca en 3.
fil = Range("B65536").End(xlUp).Row + 1
If fil < 3 Then fil = 3
cells(fil,2).select
'fijate si necesitas pasarte 1 linea hacia abajo o no, sinó directamente seguis con el pegado.
Selection.pasteSpecial....................
*Todas las opciones de selección en manuales Programación VBA y 400MacrosPlus.
Sdos
Elsa
