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 de Carlos Arrocha
Emmanuel González. Por favor, intenta explicar mejor lo que necesitas, y si puedes sube alguna captura de pantalla.
Respuesta de Dante Amor
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