¿Como hago para crear un formulario de inventario en excel?
He creado un formulario de inventario en excel con etiquetas de codigo-fecha-refererencia- producto - descripcion - entrada y salida yo necesito retringir algunos texbox para que sea solo texto en unos casos solo numero mejor copio los datos que tengo en visual basic para que lo vean.
Private Sub CommandButton1_Click()
Dim fila As Integer
For fila = 2 To 10000
If Hoja2.Cells(fila, 1) = "" Then
Hoja2.Cells(fila, 1) = TextBox1.Text
Hoja2.Cells(fila, 2) = ComboBox1.Text
Hoja2.Cells(fila, 3) = TextBox16.Text
Hoja2.Cells(fila, 4) = TextBox15.Text
Hoja2.Cells(fila, 5) = ComboBox2.RowSource
Hoja2.Cells(fila, 6) = TextBox19.Text
Hoja2.Cells(fila, 7) = TextBox17.Text
Hoja2.Cells(fila, 8) = TextBox18.Text
Hoja2.Cells(fila, 9) = ComboBox3.Text
MsgBox "SE HA GRAVADO CORRECTAMENTE LOS DATOS"
Exit Sub
End If
Next
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub CommandButton3_Click()
TextBox1 = ""
ComboBox1 = ""
TextBox16 = ""
TextBox15 = ""
ComboBox2 = ""
TextBox19 = ""
TextBox17 = ""
TextBox18 = ""
End Sub
Private Sub CommandButton4_Click()
NUEVOS.Show
End Sub
Private Sub UserForm_Click()
End Sub
Lo consigues con el evento keypress de cada control.
Te muestro un ejemplo TextBox1
Para restringir texto
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'para rentringir texto If Not (KeyAscii >= 48 And KeyAscii <= 57) Then KeyAscii = 0 End Sub
Para restringir números
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'para rentringir números If (KeyAscii >= 48 And KeyAscii <= 57) Then KeyAscii = 0 End Sub
Me comentas y valoras para finalizar
