0

Buen día.

Tengo el siguiente código en una UserForm en VBA:

Private Sub CommandButton1_Click()

Dim tblu As ListObject
Dim wsu As Worksheet
Dim newRowu As ListRow

If Me.TextBox1.Text = "" Or Me.TextBox2.Text = "" Or Me.TextBox3.Text = "" Then
    
    If ThisWorkbook.Sheets("settings").Range("B2").Value = 0 Then
    
        MsgBox "All fields are required.", vbCritical
    
    End If
    
    If ThisWorkbook.Sheets("Settings").Range("B2").Value = 1 Then
        
        MsgBox "Todos los campos son requeridos.", vbCritical
    
    End If

End If


ThisWorkbook.Sheets("Users").visible = True

Set wsu = ThisWorkbook.Sheets("Users")
Set tblu = wsu.ListObjects("Table2")
Set newRowu = tblu.ListRows.Add


newRowu.Range(1).Value = Me.TextBox2.Text
newRowu.Range(2).Value = Me.TextBox1.Text
newRowu.Range(3).Value = Me.TextBox3.Text

ThisWorkbook.Sheets("Users").visible = xlVeryHidden

If ThisWorkbook.Sheets("Settings").Range("B2").Value = 1 Then
     MsgBox "Datos guardados correctamente."
End If

If ThisWorkbook.Sheets("Settings").Range("B2").Value = 0 Then
     MsgBox "Data saved successfully"
End If

ThisWorkbook.Save
 
Unload Me

End Sub

Si lo ejecuto desde la misma UserForm, todo bien. El problema viene cuando yo llamo a esta UserForm desde otra, a la hora de ejecuar este código me aparece el mensaje: Method "Add" of object "ListRows" failed Después de eso, Excel deja de funconar y se cierra.

¿Hay algún error en el código o alguna limitación que esté pasando por alto?

1
  • Crea un punto de interrupción al principio de tu código, reproduce el error y entonces ejecuta el código paso a paso con F8. Así podrás ver el momento exacto en el que falla y ponerle solución.
    – Esei
    Commented el 19 mar. a las 20:06

0

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

Examina otras preguntas con la etiqueta o formula tu propia pregunta.