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
1

Envíame tu archivo y me explicas con ejemplos y con colores lo que necesitas.

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 Sub

Saludos.Dante Amor

No olvides valorar la respuesta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas