Obrigado pela atenção acao
quanto ao problema continua na mesma.
Perguntas porque eu digo «Sucede que ao utilizar >= ou <= o contador não funciona.»?
Porque com este código funciona
If ListBox2.Items.Item(Y) = 14 Or ListBox2.Items.Item(Y) = 15 Or ListBox2.Items.Item(Y) = 16 Or ListBox2.Items.Item(Y) = 17 Or ListBox2.Items.Item(Y) = 18 Or ListBox2.Items.Item(Y) = 19 _
Or ListBox2.Items.Item(Y) = 20 Or ListBox2.Items.Item(Y) = 21 Or ListBox2.Items.Item(Y) = 22 Or ListBox2.Items.Item(Y) = 23 Or ListBox2.Items.Item(Y) = 24 Or ListBox2.Items.Item(Y) = 25 _
Or ListBox2.Items.Item(Y) = 26 Then
ContaCarta += 1
End If
↧