jaimoco

sandra155 respondió: Puedes agregar esto en un modulo para el formato de fecha Function formatoFecha(fecha As String) As String Dim nueFormato As String nueFormato = Format(fecha, "DD-MMM-YYYY") formatoFecha = nueFormato End Function Y para que te lo ponga en la fila Y...

sandra155 respondió: El texbox que no quieres mover no lo toques solo asígnale la fila a la que va pero sin colocarle nada el automáticamente te toma el valor. Limpia todos pero ese ignoralo

sandra155 respondió: Prueba con esta a mi me funciono una ves y no me quiere funcionar Private Sub TextBox1_Change() Worksheets("Hoja1").Range("x1").Select TextBox1.Value = Worksheets("Hoja1").Range("x1") Range("A2").Select ActiveCell = TextBox1.Text End Sub Estoy segura...

paramisolo respondió: Pues bien le pones estas instrucciones: If Textbox19.Value<15000 Or Textbox19.Value>120000 Then Msgbox("Dato fuera de rango, rango= mayor de 15000 y menor de 120000") TextBox19.Value="" Textbox19.SetFocus End If Comprueba si te sirve, y finalizas y...

Juan Carlos González Chavarría respondió: Puedes usar una celda en la que pongas =Max(B:B)+1, esto te pondrá un tipo consecutivo. TextBox1. Value = Range(TuCelda). Value (es la celda donde pusiste la fórmula anterior). Con esto se evita de paso los repetidos ya que el usuario no tiene que...