Encontrar dato en columna y pasar contenido del txt a primer celda vacía hacías la derecha

Tengo un userform con un combo, un textbox y un comando

quiero que al poner un nombre en el combo al presionar el comando busque dicho nombre en la columna "A" y luego pase el contenido del textbox a la primer celda vacía hacia la derecha de dicho nombre.EJ

A B C D E

1) lucas

2) martin 32

si en el combo pongo "lucas" y textbox "20" al apretar el botón en la fila 1) columna B me ponga el "20"

si en el combo pongo "martin" y en el textbox pongo "99" al presionar el botón en la fila 2) columna C me ponga "99"

espero se pueda hacer, desde ya muchas gracias por su tiempo

1 Respuesta

Respuesta
1

Pon el siguiente código en tu botón

Private Sub CommandButton1_Click()
'Por.DAM
Set s = Range("A:A").Find(ComboBox1)
If Not s Is Nothing Then
    uc = Cells(s.Row, Columns.Count).End(xlToLeft).Column + 1
    Cells(s.Row, uc) = TextBox1
End If
End Sub

Saludos.DAM
Si es lo que necesitas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas