Jump to content
SALAVERRINO

INGRESO DE DATOS - ERROR AL LIMPIAR DATOS

Recommended Posts

Buenas tardes a los integrantes de este prestigioso foro, en esta ocasión recurriendo a uds para que me brinden su apoyo en que estoy errando al ejecutar la macro, que detallo a continuación, en la pestaña INGRESO al ejecutar INGRESO DE JORNADAS previamente hay que borrar los datos y para ello presiono BORRAR DATOS, una vez eliminado los datos y al momento de hacer el ingreso de nuevo datos la macro INGRESO DE JORNADAS ya no funciona emitiendo los errores que anexo en la pestaña ERRORES.

Desde ya agradezco su apoyo y colaboración, anexo link.

https://drive.google.com/file/d/14cak7rKUDCmj9hRmkz2TLhC1iFycmmal/view?usp=sharing

Share this post


Link to post
Share on other sites

Hola @SALAVERRINO,

Tu código esta haciendo un raro, ya que tienes código de más, te mando una solución solo al problema que mencionas.

Public nFila As Long
Sub ultimoReg()
    Sheets("INGRESO").Activate
    nFila = Range("D3:D3").End(xlDown).Row
End Sub

'LA VARIABLE nFila COMO ES PUBLICA, SU VALOR EXISTE EN TODO LOS MODULOS Y FORMULARIOS.
'NO DEBES DE PONER O REFERENCIAR CONTROLES DE UN FORMULARIO AQUI, SOLO HAZLO EN LOS FORMULARIOS.

Private Sub UserForm_activate()
    ultimoReg
    codtra = Range("D" & nFila)
    UserForm3.TextBox1.Text = codtra
    'nombre = Cells(n, 2).Value
    UserForm3.Label16.Caption = nFila
End Sub

nombre, no se en donde lo ocupas, y siempre acostúmbrate a declarar todas las variables.

 

Saludos

Share this post


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



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png