Como lleno el espacio en blanco
Cree un USerform pero cuando por motivos borro una fila que esta por el centro al ingresar el dato no se registra en ese espacio vacío sino en la parte del final alguna solución por favor este es mi código de mi botón Registrar
Private Sub CommandButton2_Click()
If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or ComboBox1 = "" Or ComboBox2 = "" Or ComboBox3 = "" Or ComboBox4 = "" Then
MsgBox " Faltar llenar algunos campos", vbInformation, "Completar"
Else: Range("a" & Cells.Rows.Count).End(xlUp).Offset(1).Select
ActiveCell = TextBox1.Value
ActiveCell.Offset(0, 1) = TextBox2.Value
ActiveCell.Offset(0, 2) = TextBox3.Value
ActiveCell.Offset(0, 3) = ComboBox1.Value
Dim fecha As String
fecha = ComboBox2.Text + "/" + ComboBox3.Text + "/" + ComboBox4.Text
Dim hora As String
hora = ComboBox5.Text + ":" + ComboBox6.Text
ActiveCell.Offset(0, 4) = Format(fecha, "dd"" de ""mmmm"" del ""yyyy") + " " + Format(hora, "hh:mm AM/PM")
MsgBox "Datos Registrados", vbOKOnly, " Registro"
End If
End Sub
1 respuesta
Hol.a
Tú mismo le indicas que guarde los datos en la primera fila vacía debajo de la última fila con datos a través de esto:
Range("a" & Cells.Rows.Count).End(xlUp).Offset(1).Select
Si vas a seguir borrando datos (no eliminando filas) y quieres que los nuevos datos siempre se guarden en la primera fila en blanco así haya datos entre ella, debes cambiarla por esto:
Range("A1").End(xlDown).Offset(1, 0).Select
Salu2
Abraham Valencia
amigo alguna idea para que luego de que agregó la fila se ordene por filas automáticamente tomando como referencia el nombre y como segundo el código
Hol.a
Sugiero cerrar esta pregunta y abrir una con la nueva pregunta.
Abraham Valencia
