xalisco

calvuch respondió: If Len(TextBox6) > 0 Then ActiveCell = TextBox6 ActiveCell.Offset(0, 1).Select Else ActiveCell.Offset(0, 1).Select End If If Len(TextBox7) > 0 Then ActiveCell = TextBox7 ActiveCell.Offset(0, 1).Select Else ActiveCell.Offset(0, 1).Select End If If...

duainsulch respondió: Como estas. No tienes más que controlar antes de ingresar el valor en la celda activa, si el textbox esta vacío, entonces no se ingresa el valor, para hacer esto no tienes más que ingresar una sentencia IF antes de la asignación del dato a la celda...

calvuch respondió: Prueba Private Sub CommandButton1_Click() Sheets("HOJA1").Select Range("G7").Select Do While Not IsEmpty(ActiveCell) ActiveCell.Offset(1, 0).Select Loop 'bucle If Len(TextBox8) > 0 Then ActiveCell = TextBox8: ActiveCell.Offset(0, -5).Select If...