Visual Basic para Aplicaciones - mostrar datos distintos a cero

Life is soft - evento anual de software empresarial
   
Vista:

mostrar datos distintos a cero

Publicado por Albert (108 intervenciones) el 11/11/2016 19:36:50
Buenas tardes foreros, tengo un problema para llenar un listbox con datos distintos a cero.
Para no agobiar he preparado un archivito donde se ve lo que he intentado y explico claramente (creo) lo que me pasa y necesito, todo esta en el modulo.
Mil gracias de antemano
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
Imágen de perfil de Antoni Masana

mostrar datos distintos a cero

Publicado por Antoni Masana (106 intervenciones) el 14/11/2016 12:58:47
No acabo de entender como funciona el programa pero el problema lo tienes en el proceso Pendientes.

He añadido una condición espero sea lo que necesitas:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub Pendientes()
...
'____________________________________________________________________________________________________
 
    Set Hj = Hoja6
    With Hj.Cells.Range("d3:D1100")
        Set celda = .Find(Datu)
        If Not celda Is Nothing Then
           NameCelda = celda.Address
 
           Do
              X = X + 1
              If celda.Cells(, 1) <> 0 Then          ' <-- Codicion de diferente de cero lo pendiente
                 With FrmNuevo.ListBox3
                     .AddItem X
                     .Column(0, .ListCount - 1) = celda.Address(0, 0)
                     .Column(1, .ListCount - 1) = celda.Cells(, -2) 'expediente
                     .Column(2, .ListCount - 1) = celda.Cells(, 0) 'honorarios
                     .Column(3, .ListCount - 1) = celda.Cells(, 1) 'pendiente
                 End With
              End If                                  ' <-- Fin condicion
              Set celda = .FindNext(celda)
           Loop While Not celda Is Nothing And celda.Address <> NameCelda
        End If
    End With
    Set Hj = Nothing
    Sheets("hoja3").Select
End Sub

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

mostrar datos distintos a cero

Publicado por Albert (108 intervenciones) el 14/11/2016 19:52:03
Gracias por tu respuesta, pero no es la solución sigue sin funcionar
Repito gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar