RESUMIR DADOS REPETIDOS

PAYDANA 09/07/2013 19:48:42
#425770

Sim KERPLUNK!


eu to tendo poblema entre o tem tem tem tem dae passa nao ter ( se eu manda adicionar agora os que tem ja que nao tem, ele vai continuar adicionando se continuar nao tendo) a menos que eu coloque uma condição... vo penssa nisso aqui

PAYDANA 10/07/2013 00:14:02
#425783

CONSEGUI!!!!!

Private Sub Command1_Click()
Dim TM, NT As Variant
Dim Tem As Boolean

For v = 0 To List1.ListCount - 1

If InStr(List1.List(v), [Ô]01[Ô]) > 0 Then
TM = TM + 1
ElseIf InStr(List1.List(v), [Ô]01[Ô]) = 0 Then
If TM > 0 Then List2.AddItem [Ô]Veio [Ô] & TM & [Ô]x Seguidas[Ô]: TM = [Ô]0[Ô]
End If

If InStr(List1.List(v), [Ô]01[Ô]) = 0 Then
NT = NT + 1
ElseIf InStr(List1.List(v), [Ô]01[Ô]) > 0 Then
If NT > 0 Then List2.AddItem [Ô]Não veio [Ô] & NT & [Ô]x Seguidas[Ô]: NT = [Ô]0[Ô]
End If

Next

If TM > 0 Then List2.AddItem [Ô]Veio [Ô] & TM & [Ô]x Seguidas[Ô]: TM = [Ô]0[Ô]
If NT > 0 Then List2.AddItem [Ô]Não veio [Ô] & NT & [Ô]x Seguidas[Ô]: NT = [Ô]0[Ô]

End Sub

Private Sub Form_Load()
List1.AddItem [Ô]01 03 04 05 08 10 11 12 13 16 17 21 23 24 25[Ô]
List1.AddItem [Ô]01 03 04 05 08 10 11 12 13 16 17 22 23 24 25[Ô]
List1.AddItem [Ô]01 03 04 05 08 10 11 12 13 16 20 21 22 23 24[Ô]
List1.AddItem [Ô]01 03 04 05 08 10 11 12 13 16 20 21 22 23 25[Ô]
List1.AddItem [Ô]01 03 04 05 08 10 11 12 13 16 20 21 22 24 25[Ô]
List1.AddItem [Ô]13 03 04 05 08 10 11 12 13 16 20 21 23 24 25[Ô]
List1.AddItem [Ô]15 03 04 05 08 10 11 12 13 16 20 22 23 24 25[Ô]
List1.AddItem [Ô]01 03 04 05 08 10 11 12 13 16 21 22 23 24 25[Ô]
List1.AddItem [Ô]02 03 04 05 08 09 10 11 12 13 17 20 21 22 23[Ô]
List1.AddItem [Ô]02 03 04 05 08 09 10 11 12 13 17 20 21 22 24[Ô]
List1.AddItem [Ô]02 03 04 05 08 09 10 11 12 13 17 20 21 22 25[Ô]
List1.AddItem [Ô]02 03 04 05 08 09 10 11 12 13 17 20 21 23 24[Ô]
List1.AddItem [Ô]02 03 04 05 08 09 10 11 12 13 17 20 21 23 25[Ô]
List1.AddItem [Ô]02 03 04 05 08 09 10 11 12 13 17 20 21 24 25[Ô]
List1.AddItem [Ô]02 03 04 05 08 09 10 11 12 13 17 20 22 23 24[Ô]
List1.AddItem [Ô]02 03 04 05 08 09 10 11 12 13 17 20 22 23 25[Ô]
End Sub

SAMUKA 10/07/2013 12:03:28
#425810

FILMAN 10/07/2013 13:47:02
#425823 Resposta escolhida

Se o problema foi solucionado encerre o tópico!!

PAYDANA 10/07/2013 19:14:10
#425846

Poise, mais ainda não sei a quem dar os creditos FILMAN, a você que abriu meus olhos ou ao SAMUKA que puchou minha orelha. rsrss

Obrigado a todos