Quisiera un macro para registrar varios valores de una tabla en otra tabla de otra hoja.
Quisiera una macro que me registrara valores de una tabla en otra tabla de otra hoja . De tal manera que cuando termine de registrar valores y vuelva a querer realizar esta operación, los nuevos registros no me pisen los datos ya registrados en esta tabla.Para ello el cursor se debería quedar en la celda inmediatamente disponible a la del ultimo registro almacenado.
Espero que me podáis ayudar. Gracias
1 respuesta
Respuesta de Dante Amor
1
Gracias Dante ya te lo envié , un saludo
Te anexo la macro para copiar el rango seleccionado.
Sub CopiarRango()
'Por.Dante Amor
On Error Resume Next
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
Set rango = Application.InputBox("SELECCIONA SOLAMENTE LAS FECHAS" & vbCr & _
"NOTA: La Selección de filas debe ser Continua", _
"Selecciona los valores que quieres copiar", _
Default:=Selection.Address, Type:=8)
If rango Is Nothing Then Exit Sub
'
Application.ScreenUpdating = False
i = rango.Cells(1, 1).Row
f = rango.Rows.Count + i - 1
u = h2.Range("Tabla1").Cells(1, 1).Row
c = h2.Range("Tabla1").Cells(1, 1).Column
h1.Range("C" & i & ":C" & f & ",E" & i & ":E" & f & ",G" & i & ":G" & f).Copy
Do While h2.Cells(u, c) <> ""
u = u + 1
Loop
h2.Cells(u, c).PasteSpecial Paste:=xlPasteValues
Application.ScreenUpdating = True
Application.CutCopyMode = False
h2.Select
MsgBox "Copiado éxitoso"
End SubSaludos.Dante Amor
No olvides valorar la respuesta.
