Favor ayuda con procedimiento

Hola tavopz
Necesito tu ayuda. Te explico como trabaja la planilla. La hoja "Ingreso" funciona como formulario en el cual se ingresan los datos requeridos. Al ingresar todos los datos estos se deben copiar a la hoja "Base Datos". Entonces lo que necesito es un código vba para que realice esta acción : Copiar los datos de la hoja "Ingreso" a la hoja "Base Datos". Luego borrar la información ingresada en la hoja "Ingreso" para seguir ingresando datos, a su vez en la hoja "Base Datos" debería copiar los siguientes datos en la fila vacía siguiente. Espero haber sido explicito.
DATOS EN HOJA "Ingreso" : RECIBIDA POR(F5), FECHA(F6), LOCAL(F7), MARCA(F9), MODELO(F10), CHASIS(F11), MOTOR(F12), AÑO(F13), COLOR(F14)... ETC.
Son los mismos datos en la hoja "base datos" pero copiados en otras ubicaciones.
                                Hoja Ingreso
                         C F
          ---------------------------------------------------------
5 recibida por : andres soto
6        FECHA                       :         27/06/2008
7 local : vitacura
                                 Hoja Base Datos
                  B C D E F
          --------------------------------------------------------------------------------------
          Recibida por fecha local marca modelo
7        ANDRES SOTO          27/06/2008   VITACURA       ETC           ETC
8 siguientes ingresos
9 siguientes ingresos
De antemano te agradezco
Muchas gracias.

1 respuesta

Respuesta
1
Prueba con una macro de este tipo:
Sub moverdatos()
    Dim w, w1 As Worksheet
    Set w = Sheets("Ingreso")
    Set w1 = Sheets("Base Datos")
    x = w1.Range("B1").End(xlDown).Row
    If x = 65536 Then
          x = 1
    End If
    For i = 1 To 10
          w1.Cells(x + 1, i + 1) = w.Cells(i + 4, 6)
    Next i
End Sub

Revísala.

Añade tu respuesta

Haz clic para o
El autor de la pregunta ya no la sigue por lo que es posible que no reciba tu respuesta.

Más respuestas relacionadas