Revisión de un código de macros
Tengo un código el cual lo hice muy similar a otro que ya funciona, pero no se si tengo ua variable mal puesta me gustaría si pudieran revisar, no he podido encontrar el error.
2 Respuestas
Respuesta de Dante Amor
2
H o la:
Tienes esto:
Private Sub form_Click()
Dim h, i
Set h1 = Sheets("INGRESAR DATOS")
Set h2 = Sheets("TABLA DE DATOS")
If h1.AutoFilterMode Then h.AutoFilterMode = False
For i = 3 To h1.Range("C" & Rows.Count).End(xlUp).Row
nomb.AddItem h1.Cells(i, "B")
End Sub1. No se llama form se llama Userform, aunque le cambies el nombre a "form" el evento se sigue llamando "UserForm".
2. Tienes que cargar los datos de la columna "C" y tienes "B"
3. Te falta el Next
4. Pusiste el evento en Click y debe ser en Activate
5. Te anexo el código correcto:
Private Sub UserForm_Activate()
Dim h, i
Set h1 = Sheets("INGRESAR DATOS")
Set h2 = Sheets("TABLA DE DATOS")
If h1.AutoFilterMode Then h.AutoFilterMode = False
For i = 3 To h1.Range("C" & Rows.Count).End(xlUp).Row
nomb.AddItem h1.Cells(i, "C")
Next
End Sub'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
nomb.AddItem h1.Cells(i, "C")
Me marca nuevamente esa fila con error
Prueba con el archivo que te envié.
Qué dice el error.