UF que muestre datos seleccionados
Hugo, hola! Te comento...
Tengo una Hoja Excel que tiene los movimientos de caja, ingresos y egresos con sus montos, estando el tipo de movimiento (ing o egr) en la columna C y lo montos en la E.
Necesito, a través de un UF (tal vez con un ListBox) que se muestren los datos separados; ésto es, todos los ingresos de una vez, y todos los egresos de otra (puedo colocarle Optionbuttons para seleccionar.
¿Se puede? Un abrazo enorme
Tengo una Hoja Excel que tiene los movimientos de caja, ingresos y egresos con sus montos, estando el tipo de movimiento (ing o egr) en la columna C y lo montos en la E.
Necesito, a través de un UF (tal vez con un ListBox) que se muestren los datos separados; ésto es, todos los ingresos de una vez, y todos los egresos de otra (puedo colocarle Optionbuttons para seleccionar.
¿Se puede? Un abrazo enorme
1 Respuesta
Respuesta de hugolaza
1
¿En un solo ListBox o en dos separados?
En uno solo: que el optionbutton seleccione si se trata de ingresos y egresos, y el listbox lo muestre...
Crea un UserForm con los siguientes controles :
- 1 ListBox llamado ListBox1
- 2 OptionButton llamados OptionButton1 y OptionButton2
- Al ListBox1 setea ColumnCount=2
Inserta estas lineas en el Codigo :
Dim Datos, Filtro As Integer
Private Sub UserForm_Initialize()
Datos = Cells(65536, 3).End(xlUp).Row - 1
Range("C2", Range("E65536").End(xlUp)).Name = "Area"
ReDim Lista(1 To Datos, 1 To 2)
For a = 1 To Datos
Lista(a, 1) = Range("C1").Offset(a, 0)
Lista(a, 2) = Range("C1").Offset(a, 2)
Next a
ListBox1.List = Lista
End Sub
Private Sub OptionButton1_Click()
Tipo = "Ingreso"
Filtrar Tipo
End Sub
Private Sub OptionButton2_Click()
Tipo = "Egreso"
Filtrar Tipo
End Sub
Sub Filtrar(Tipo)
Filtro = 0
For a = 1 To Datos
If Range("C1").Offset(a, 0) = Tipo Then Filtro = Filtro + 1
Next a
ReDim Lista(1 To Filtro, 1 To 2)
ListBox1 = ""
B = 0
For a = 1 To Datos
If Range("C1").Offset(a, 0) = Tipo Then
B = B + 1
Lista(B, 1) = Range("C1").Offset(a, 0)
Lista(B, 2) = Range("C1").Offset(a, 2)
End If
Next a
ListBox1.List = Lista
End Sub
- 1 ListBox llamado ListBox1
- 2 OptionButton llamados OptionButton1 y OptionButton2
- Al ListBox1 setea ColumnCount=2
Inserta estas lineas en el Codigo :
Dim Datos, Filtro As Integer
Private Sub UserForm_Initialize()
Datos = Cells(65536, 3).End(xlUp).Row - 1
Range("C2", Range("E65536").End(xlUp)).Name = "Area"
ReDim Lista(1 To Datos, 1 To 2)
For a = 1 To Datos
Lista(a, 1) = Range("C1").Offset(a, 0)
Lista(a, 2) = Range("C1").Offset(a, 2)
Next a
ListBox1.List = Lista
End Sub
Private Sub OptionButton1_Click()
Tipo = "Ingreso"
Filtrar Tipo
End Sub
Private Sub OptionButton2_Click()
Tipo = "Egreso"
Filtrar Tipo
End Sub
Sub Filtrar(Tipo)
Filtro = 0
For a = 1 To Datos
If Range("C1").Offset(a, 0) = Tipo Then Filtro = Filtro + 1
Next a
ReDim Lista(1 To Filtro, 1 To 2)
ListBox1 = ""
B = 0
For a = 1 To Datos
If Range("C1").Offset(a, 0) = Tipo Then
B = B + 1
Lista(B, 1) = Range("C1").Offset(a, 0)
Lista(B, 2) = Range("C1").Offset(a, 2)
End If
Next a
ListBox1.List = Lista
End Sub
