Formulario VBa agregar datos a hoja
Agregar datos a hoja usando formulario
E creado un pequeño formulario en el que la hoja activa ya sea (1,2,3... 31) donde cada hoja representa un día, me busque el dato ingresado en el combobox1 y tome el dato del TextBox1 y lo agregue a la derecha del dato buscado (COMBOBOX1) pero si ya existe algun dato (Rango C:L )este continué en la siguiente celda.
Les agradezco si me pudieran ayudar o dar una idea de como hacerlo.
Adjunto link de archivo
https://drive.google.com/file/d/0B798EFGaiKE0OENyUXI5MThYY1k/view?usp=sharing
1 Respuesta
Respuesta de Dante Amor
2
H o l a : Pon el siguiente código en el botón gregar del formulario:
Private Sub CommandButton1_Click()
'Por.Dante Amor
'Agregar a al hoja
If ComboBox1 = "" Then
MsgBox "Selecciona un código", vbCritical
ComboBox1.SetFocus
Exit Sub
End If
If TextBox1 = "" Then
MsgBox "Captura un dato", vbCritical
TextBox1.SetFocus
Exit Sub
End If
Set b = ActiveSheet.Range("A:A").Find(ComboBox1, lookat:=xlWhole)
If Not b Is Nothing Then
For j = Columns("C").Column To Columns("L").Column
If Cells(b.Row, j) = "" Then
Cells(b.Row, j) = IIf(IsNumeric(TextBox1), Val(TextBox1), TextBox1)
MsgBox "Dato guardado", vbInformation
guardado = True
Exit For
End If
Next
If guardado = False Then
MsgBox "No hay celdas disponibles", vbExclamation
End If
Else
MsgBox "El código no existe", vbExclamation
End If
End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
