Macro copiar y pegar en las filas vacías
Estoy armando una pequeña base de datos, tengo una hoja FACTURA donde ingresare los datos a facturar y luego los pego en la hoja de ingresos para que me registre los datos de los productos facturados, tengo un macro que lo hace pero ahora quiero que lo pegue en la fila que continua (vacía) no se como cambiar para que lo pegue abajo donde esta vacío, este es el macro que tengo de momento:
Sub CopiarCeldas()
'Definir objetos a utilizar
Dim wsFACTURA As Excel.Worksheet, _
wsINGRESOS As Excel.Worksheet, _
rngFACTURA As Excel.Range, _
rngINGRESOS As Excel.Range
'Indicar las hojas de origen y destino
Set wsFACTURA = Worksheets("FACTURA")
Set wsINGRESOS = Worksheets("INGRESOS")
'Indicar la celda de origen y destino
Const celdaFACTURA = "D17"
Const celdaINGRESOS = "C8" (----CREO QUE AQUI ES DONDE ESTA MI ERROR O NO?
'Inicializar los rangos de origen y destino
Set rngFACTURA = wsFACTURA.Range(celdaFACTURA)
Set rngINGRESOS = wsINGRESOS.Range(celdaINGRESOS)
'Seleccionar rango de celdas origen
rngFACTURA.Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
'Pegar datos en celda destino
rngINGRESOS.PasteSpecial xlPasteValues
gracias!!!
Application.CutCopyMode = False
End Sub
1 respuesta
H o l a:
Te anexo la macro actualizada.
Sub CopiarCeldas()
'Por.Dante Amor
Application.ScreenUpdating = False
Set h1 = Worksheets("FACTURA") 'hoja origen
Set h2 = Worksheets("INGRESOS") 'hoja destino
c1 = "D17" 'cedlda origen
c2 = "C" 'columna destino
'Seleccionar rango de celdas origen
uf = h1.Range(c1).End(xlDown).Row
uc = h1.Range(c1).End(xlToRight).Column
h1.Range(c1, h1.Cells(uf, uc)).Copy
'Pegar datos en celda destino
u2 = h2.Range(c2 & Rows.Count).End(xlUp).Row + 1: If u2 < 8 Then u2 = 8
h2.Range(c2 & u2).PasteSpecial xlPasteValues
Application.CutCopyMode = False
MsgBox "Factura copiada", vbInformation
End Sub:) S aludos. D a n t e A m o r. Recuerda valorar la respuesta. G r a c i a s ;)
