Autonumérico al ingresar datos en planilla excel
Tengo un formulario hecho con VBA para una planilla excel y lo que intento hacer que no me sale es generar un autonumérico que lo voy a utilizar como Orden de servicio y que tiene que ser parametrizable, es decir, que empiece con una numeración que yo le indique.
El efecto tendría que ser: cada vez que presiono el botón que me ingresa todos los datos en la planilla, la casilla Orden de servicio vaya colocando el numero automáticamente a partir del 2000.
EL código de mi botón que esta funcionando seria este: el textbox1 seria el Orden de servicio
Private Sub CommandButton1_Click()
ActiveSheet.Cells(2, 1).Select
Selection.EntireRow.Insert
ActiveSheet.Cells(2, 1) = TextBox1
ActiveSheet.Cells(2, 2) = TextBox2
ActiveSheet.Cells(2, 3) = TextBox3
ActiveSheet.Cells(2, 4) = TextBox4
ActiveSheet.Cells(2, 5) = TextBox5
ActiveSheet.Cells(2, 6) = TextBox6
ActiveSheet.Cells(2, 7) = TextBox7
ActiveSheet.Cells(2, 8) = TextBox8
ActiveSheet.Cells(2, 9) = TextBox9
ActiveSheet.Cells(2, 10) = TextBox10
ActiveSheet.Cells(2, 11) = TextBox11
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
TextBox6 = Empty
TextBox7 = Empty
TextBox8 = Empty
TextBox9 = Empty
TextBox10 = Empty
TextBox11 = Empty
End Sub
1 Respuesta
Prueba con lo siguiente:
Private Sub CommandButton1_Click()
'Act.Por.Dante Amor
ActiveSheet.Cells(2, 1).EntireRow.Insert
mayor = Application.Max(Columns("A"))
If mayor < 2000 Then
mayor = 2000
Else
mayor = mayor + 1
End If
ActiveSheet.Cells(2, 1) = mayor
ActiveSheet.Cells(2, 2) = TextBox2
ActiveSheet.Cells(2, 3) = TextBox3
ActiveSheet.Cells(2, 4) = TextBox4
ActiveSheet.Cells(2, 5) = TextBox5
ActiveSheet.Cells(2, 6) = TextBox6
ActiveSheet.Cells(2, 7) = TextBox7
ActiveSheet.Cells(2, 8) = TextBox8
ActiveSheet.Cells(2, 9) = TextBox9
ActiveSheet.Cells(2, 10) = TextBox10
ActiveSheet.Cells(2, 11) = TextBox11
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
TextBox6 = Empty
TextBox7 = Empty
TextBox8 = Empty
TextBox9 = Empty
TextBox10 = Empty
TextBox11 = Empty
End Sub
