Pasar datos a ultima hoja con datos

Tengo un formulario (userform) en la hoja3 y desde ahí tengo un botón de registrar quiero que me pase a la ultima celda con datos de la hoja 1

Textbox1, en la columna a

Si en el texbox 2 tiene la palabra "MAIZ"

Texbox2 en la columna b

S el textbox2 tiene la palabra "ARROZ"

Textbox2 en la columna C

2 Respuestas

Respuesta
2

Te anexo el código

Private Sub CommandButton1_Click()
    '
    Set h1 = Sheets("Hoja1")
    If TextBox1.Value = "" Then
        MsgBox "Captura el textbox1"
        TextBox1.SetFocus
        Exit Sub
    End If
    uf = h1.Range("A" & Rows.Count).End(xlUp).Row + 1
    h1.Cells(uf, "A").Value = TextBox1.Value
    Select Case TextBox2.Value
        Case "MAIZ": col = "B"
        Case "ARROZ": col = "C"
        Case Else: col = ""
    End Select
    If col <> "" Then h1.Cells(uf, col).Value = TextBox2.Value
End Sub

[sla u dos

Respuesta

Emmanuel González. Por favor, intenta explicar mejor lo que necesitas, y si puedes sube alguna captura de pantalla.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas