Jump to content
oscarurielg

Macro guardar registro

Recommended Posts

Que tal @oscarurielg en tu boton "Boton_Crear", pega esta línea:

UF = Application.WorksheetFunction.CountA(Hoja2.Range("A:A")) + 1
        Hoja2.Cells(UF, 1).Value = Me.TextBox_fecha.Value
        Hoja2.Cells(UF, 2).Value = Me.TextBox_pvd.Value
        Hoja2.Cells(UF, 3).Value = Me.ComboBox_marca.Value
        Hoja2.Cells(UF, 4).Value = Me.ComboBox_vitrina.Value
        Hoja2.Cells(UF, 5).Value = Me.ComboBox_modelo.Value
        Hoja2.Cells(UF, 6).Value = Me.ComboBox_linea.Value
        Hoja2.Cells(UF, 7).Value = Me.TextBox_ano.Value
        Hoja2.Cells(UF, 8).Value = Me.TextBox_chasis.Value
        Hoja2.Cells(UF, 9).Value = Me.TextBox_motor.Value
        Hoja2.Cells(UF, 10).Value = Me.ComboBox_color.Value
        Hoja2.Cells(UF, 11).Value = Me.TextBox_comision.Value
        '''
        Me.TextBox_fecha.Value = ""
        Me.TextBox_pvd.Value = ""
        Me.ComboBox_marca.Value = ""
        Me.ComboBox_vitrina.Value = ""
        Me.ComboBox_modelo.Value = ""
        Me.ComboBox_linea.Value = ""
        Me.TextBox_ano.Value = ""
        Me.TextBox_chasis.Value = ""
        Me.TextBox_motor.Value = ""
        Me.ComboBox_color.Value = ""
        Me.TextBox_comision.Value = ""
        ''''
    MsgBox "Datos insertados"

Saludos,

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png