Datos en celdas vacías
Hola,
tengo una base de datos que se va almacenando a medida que voy ingresando información mediante un botón de userform, la pregunta es como puedo ingresar un dato en una fila y que las celdas que están vacías se llenen con una X.
Respuesta de Dante Amor
1
te envío el codigo:
Private Sub CommandButton2_Click()
Sheets("hoja14").Select
Range("J11").Select
Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell = TextBox1
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox10
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox4
ActiveCell.Offset(0, 1).Select
End Sub
Prueba esto:
Private Sub CommandButton2_Click()
Sheets("hoja14").Select
Range("J11").Select
Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell = IIf(TextBox1 <> "", TextBox1, "X")
ActiveCell.Offset(0, 1).Select
ActiveCell = IIf(TextBox10 <> "", TextBox10, "X")
ActiveCell.Offset(0, 1).Select
ActiveCell = IIf(TextBox4 <> "", TextBox4, "X")
ActiveCell.Offset(0, 1).Select
End Sub Saludos.Dante Amor
Si es lo que necesitas.
