crear formulario

[josemiguelzuniga]

Hola comunidad, me ayudan miren quiero hacer un libro donde se llene un formulario con los datos que ya hay en una hoja del mismo libro , la idea es apretar un boton donde me traiga los datos de esa hoja al formulario y grabar puede ser en la mmisma hoja o en una nueva, no se si me explique bien.

[Abraham Valencia]

Hola y bienvenido

Tal como comentas lo que necesitas son macros, pero asimismo como lo comentas es casi pedir "háganme todo", por lo que sugiero que busques algunos de muchos ejemplos que hay por internet y comiences tú mismo y ya sobre tus avances regresas por aquí.

[Israel Cassales]

Hola @josemiguelzuniga

Si quieres hacer pruebas para volver y compartir tus avances te puedo colaborar con un pequeño ejemplo, habilita tus macros.

Saludines

AyudaExcel - crear formulario.xlsb

[Israel Cassales]

En 30/4/2023 at 17:18 , josemiguelzuniga dijo:

se llene un formulario con los datos que ya hay en una hoja del mismo libro , la idea es apretar un boton donde me traiga los datos de esa hoja al formulario

En el ejemplo usamos esto:

Private Sub UserForm_Initialize()
    Label1.Caption = Worksheets("Hoja1").Range("A1").Value
    Label2.Caption = Worksheets("Hoja1").Range("A2").Value
End Sub

 

[Israel Cassales]

En 30/4/2023 at 17:18 , josemiguelzuniga dijo:

apretar un boton donde me traiga los datos de esa hoja al formulario y grabar puede ser en la mmisma hoja

Para que el botón haga eso, en el ejemplo te presento esto:

Private Sub CommandButton1_Click()
    Dim ultimaFila As Long
    ultimaFila = Worksheets("Hoja1").Cells(Rows.Count, 1).End(xlUp).Row + 1
    Worksheets("Hoja1").Cells(ultimaFila, 1).Value = TextBox1.Text
    Worksheets("Hoja1").Cells(ultimaFila, 2).Value = TextBox2.Text
    TextBox1.Text = ""
    TextBox2.Text = ""
End Sub

En el libro de ejemplo lo que vayas anotando en el Userform te lo va en listando desde A8 hacia abajo.

[Israel Cassales]

Para que lo abra es desde que inicie el libro:

Esto va en el código del libro, no en el userform

Private Sub Workbook_Open()
    UserForm1.Show
End Sub

Y para cerrarlo el botón:

Private Sub CommandButton2_Click()
    Unload Me
End Sub

 

[Israel Cassales]

Espero sea de tu ayuda, recuerda que puedes volver a replantear tus necesidades con un avance y puntos mejor estructurados.

Saludines.