Colocar dato en columna vacía.
Tengo una hoja donde ingreso mi inventario, me ayudaron para crear este código y usar userforms.
Private Sub CommandButton1_Click()
'Por.Dante Amor
Set h2 = Sheets("INVENTARIO")
Set B = h2.Columns("A").Find(TextBox1, lookat:=xlWhole)
If Not B Is Nothing Then
h2.Cells(B.Row, "B") = CDbl(TextBox6)
Else
MsgBox "El dato no existe"
End If
End Sub
Quisiera me ayudaran para que en vez de que el dato se almacene en "B" se almacene en la columna siguiente "C" y al agregar otro dato en la columna "D" y así consecutivamente.
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo el código actualizado.
Private Sub CommandButton1_Click()
'Por.Dante Amor
Set h2 = Sheets("INVENTARIO")
Set b = h2.Columns("A").Find(TextBox1, lookat:=xlWhole)
If Not b Is Nothing Then
uc = h2.Cells(b.Row, Columns.Count).End(xlToLeft).Column + 1
h2.Cells(b.Row, uc) = CDbl(TextBox6)
Else
MsgBox "El dato no existe"
End If
End Sub
