Como puedo Cargar datos en textbox y pasarlos a listbox
Como puedo Cargar datos en textbox y pasarlos a listbox, con algunas operaciones matemáticas por favor enviar archivos, si es posible. Tengo 3 Combobox y tres Textbox y necesito pasar datos de estos a un lisbox en una multiform a donde se 'Dependiendo del valor del combobox va a ser la hoja activa en la que se copiaran los datos.
Envio codigo pero nose ajustarlo a los archivos
Private Sub ComboBox3_Change()
Dim filacargacupon As Integer
Dim fila As Integer
Dim dato As Date
On Error Resume Next
'Dependiendo del valor del combobox va a ser la hoja activa en la que se copiaran los datos
If ComboBox3 <> "" Then
Select Case ComboBox3
Case Is = "1"
hojaactiva = "Caja1"
Case Is = "2"
hojaactiva = "Caja2"
Case Is = "3"
hojaactiva = "Caja3"
Case Is = "4"
hojaactiva = "Caja4"
Case Is = "5"
hojaactiva = "Caja5"
Case Is = "6"
hojaactiva = "Caja6"
End Select
End If
ListBox1.Clear
'Adiciona un item al listbox reservado para la cabecera
ListBox1.AddItem
filacargacupon = 2
fechabusqueda = CDate(TextBox5.Value)
fila = 1
While Sheets(hojaactiva).Cells(filacargacupon, 1) <> Empty
dato = Sheets(hojaactiva).Cells(filacargacupon, 1)
'For fila = 0 To ListBox1.ListCount - 1
ListBox1.AddItem Sheets(hojaactiva).Cells(filacargacupon, 1)
ListBox1.List(fila, 1) = Sheets(hojaactiva).Cells(filacargacupon, 2)
ListBox1.List(fila, 2) = Sheets(hojaactiva).Cells(filacargacupon, 3)
ListBox1.List(fila, 3) = Sheets(hojaactiva).Cells(filacargacupon, 4)
ListBox1.List(fila, 4) = Sheets(hojaactiva).Cells(filacargacupon, 5)
ListBox1.List(fila, 5) = Sheets(hojaactiva).Cells(filacargacupon, 6)
ListBox1.List(fila, 6) = Sheets(hojaactiva).Cells(filacargacupon, 7)
'Next
fila = fila + 1
filacargacupon = filacargacupon + 1
Wend
'Carga los datos de la cabecera en listbox
For ii = 0 To 6
ListBox1.List(0, ii) = Sheets(hojaactiva).Cells(1, ii + 1)
Next ii
End Sub
Private Sub CommandButton1_Click()
On Error Resume Next
Application.ScreenUpdating = False
'Valida fecha para el text box
Dim ubica1, ubica2 As String
Dim dia, mes As Integer
Dim año, fecha As Integer
Dim IndiceLis As Integer
Dim VTotal As Double
'guardamos en variables el caracter encontrado en la posición 3 y 6
ubica1 = Mid(TextBoxFechaCupon.Text, 3, 1)
ubica2 = Mid(TextBoxFechaCupon.Text, 6, 1)
'comparamos si se trata de '/'
If ubica1 <> "/" Or ubica2 <> "/" Then
MsgBox ("Debes ingresar datos con este formato: dd/mm/aa")
TextBoxFechaCupon.SetFocus
Exit Sub
End If
dia = Mid(TextBoxFechaCupon.Value, 1, 2)
mes = Mid(TextBoxFechaCupon.Value, 4, 2)
año = Mid(TextBoxFechaCupon.Value, 7, 4)
fecha = Len(TextBoxFechaCupon)
'Controla lo ingresado, si no se cumple no es fecha y sale en msgbox
If dia > 31 Or mes > 12 Or año < 1900 Or fecha > 10 Then
MsgBox "Fecha incorrecta"
TextBoxFechaCupon.SetFocus
Exit Sub
End If
If ComboBox4 = Empty Then
MsgBox "Debe ingresar número de terminal", vbCritical
ComboBox4.SetFocus
ComboBox4.SelLength = Len(ComboBox4.Text)
Exit Sub
End If
If Not IsNumeric(TextBox2.Value) Then
MsgBox "Debe ingresar un número de lote", vbCritical
TextBox2.SetFocus
TextBox2.SelLength = Len(TextBox2.Text)
Exit Sub
End If
If ComboBox1 = Empty Then
MsgBox "Debe ingresar nombre de tarjeta"
ComboBox1.SetFocus
ComboBox1.SelLength = Len(ComboBox1.Text)
Exit Sub
End If
If Not IsNumeric(TextBox3.Value) Then
MsgBox "Debe ingresar un número de cupón", vbCritical
TextBox3.SetFocus
TextBox3.SelLength = Len(TextBox3.Text)
Exit Sub
End If
'Verifica que no se ingresen comas en el importe
'primero convertimos a mayúsculas para realizar la comparación
Dim texto1 As String
texto1 = UCase(TextBox3.Value)
If InStr(texto1, ",") > 0 Then
'instrucciones si el texto fue encontrado
MsgBox "Debe ingresar sólo números", vbInformation
TextBox3.SetFocus
Exit Sub
End If
'Verifica que no se ingresen puntos en el importe
texto1 = UCase(TextBox3.Value)
If InStr(texto1, ".") > 0 Then
'instrucciones si el texto fue encontrado
MsgBox "Debe ingresar sólo números", vbInformation
TextBox3.SetFocus
Exit Sub
End If
If Not IsNumeric(TextBox4.Value) Then
MsgBox "Debe ingresar un importe de cupón", vbCritical
TextBox4.SetFocus
TextBox4.SelLength = Len(TextBox4.Text)
Exit Sub
End If
'Verifica que no se ingresen comas en el importe
texto1 = UCase(TextBox4.Value)
If InStr(texto1, ",") > 0 Then
'instrucciones si el texto fue encontrado
MsgBox "Debe ingresar importe en este formato ###.##", vbCritical
TextBox4.SetFocus
Exit Sub
End If
'Determina que no se ingresen más de dos decimales
texto2 = UCase(TextBox4.Value)
'Si existe "," instr dará el lugar y será mayor a cero
If InStr(texto2, ".") > 0 Then
'Se obtiene donde esta ubicado el punto y desde ahí inclusive cuenta tres lugares
cantcarat = InStr(texto2, ".")
lugaresdecimales = Len(Mid(texto2, cantcarat, 4))
If lugaresdecimales > 3 Then
MsgBox "Debe ingresar como máximo dos decimales", vbCritical
TextBox4.SetFocus
Exit Sub
End If
End If
If ComboBox2 = Empty Then
MsgBox "Debe ingresar número de caja"
ComboBox2.SetFocus
ComboBox2.SelLength = Len(ComboBox2.Text)
Exit Sub
End If
'Antes de copiar en los datos en el listbox verifica que no se carguen datos duplicados
fila = 2
While Sheets("Parametros").Cells(fila, 3) <> Empty
ComboBox4.AddItem Sheets("Parametros").Cells(fila, 3)
fila = fila + 1
Wend
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Private Sub CommandButton8_Click()
Unload Me
End Sub
Private Sub MultiPage1_Change()
TextBox5 = TextBoxFechaCupon
End Sub
