Excel - mostrar en un listbox

   
Vista:

mostrar en un listbox

Publicado por mikelme (16 intervenciones) el 13/04/2009 17:18:08
hola foro!! saben deseo mostrar todos los resultados cuando el usuario escoga una opcion me muestre todos los resultados rapidamente?? como lo hago?? este es mi codigo:

Private Sub CommandButton1_Click()
Dim FechaI As Date
Dim FechaF As Date
Dim format As String
Dim Dato1 As String
Dim Dato As Date

FechaI = TextBox1.Value 'Donde tu pondrias 01/02/2009
FechaF = TextBox2.Value 'Donde tu pondrias 12/04/2009
'MsgBox "El resultado es " & format(FechaF - FechaI, 0) & " dias"

If UserForm1.OptionButton2.Value = True Then
Dato1 = "Pequeña"
End If
If UserForm1.OptionButton3.Value = True Then
Dato1 = "Mediana"
End If
If UserForm1.OptionButton4.Value = True Then
Dato1 = "Grande"
End If
If UserForm1.OptionButton5.Value = True Then
Dato1 = "Licitación"
End If
ULT = Sheets("INGRESOS").Range("E65536").End(xlUp).Row - 1
If Dato1 = Empty Then
MsgBox "selecione un Dato", vbCritical
Exit Sub
Else
fila = 2
contador = 0
For X = 1 To ULT
Dato = Cells(fila, 5).Value
DATO2 = Cells(fila, 15).Value
For w = FechaI To FechaF
If Dato = w And Dato1 = DATO2 Then
contador = contador + 1
ListBox1.AddItem contador & DATO2
End If
Next w
fila = fila + 1
Next X
Label3 = "Existe " & contador & " proyectos " & Dato1
End If

End Sub

gracias!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder