¿Cómo hago para pasar los datos de un Userform a una Hoja Excel?

Al usar este código...:

Private Sub CommandButton1_Click()
Dim Uf
With Hoja5
Uf = .Range("a" & Rows.Count).End(xlUp).Row + 1
codig.Text = Uf - 1
.Range("a" & Uf) = Uf - 1
.Range("c" & Uf) = Nombre.Text
End With
End Sub

Me aperec lo siguiente: error "424"

No sé que pueda ser...

2 respuestas

Respuesta
1

Prueba asi

Private Sub CommandButton1_Click()
    Dim uf
    Set h = Sheets("Hoja1")
    uf = h.Range("A" & Rows.Count).End(xlUp).Row + 1
    h.Cells(uf, "A") = Textbox1
    h.Cells(uf, "B") = TextBox2
    '
    '
    '
End Sub
Respuesta
1

No veo en cuál línea tienes el error.

Pero creo que es en esta línea:

codig.Text = Uf - 1

Debes tener un textbox o un control que se llame codig.

Revisa los nombres de tus controles.

También revisa que tengas un textbox con el nombre "nombre"

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas