Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Dúvida em código
 
Notifications
Clear all

Dúvida em código

 
2024 - VBA & Macros
Post Recente por setti 9 anos atrás
3 Posts
2 Usuários
0 Reactions
748 Visualizações
RSS
 setti
(@setti)
Posts: 0
New Member
Topic starter
 

boa tarde, podem me ajudar com este código?

Sub teste()


CONT = Worksheets("RESULTADOS").Range("A65536").End(xlUp).Row
CONT2 = Worksheets("DB APOSTAS").Range("A65536").End(xlUp).Row
A = 3
B = 5
COL = 5
COL2 = 6
LIN = 1
LIN2 = 1
N = 2
Z = 2
L = 2
Dim p
Dim s
Dim Q
Dim U
While A <= CONT

While Z <= CONT2
p = Worksheets("resultados").Cells(L, A)
s = Worksheets("resultados").Cells(N, B)
Q = Worksheets("DB APOSTAS").Cells(LIN + 1, COL)
U = Sheets("DB APOSTAS").Cells(LIN2 + 1, COL2).Select

If Worksheets("RESULTADOS").Cells(L, A) = p And Worksheets("RESULTADOS").Cells(N, B) = s Then
If Worksheets("RESULTADOS").Cells(L, A) <> "" Then

'If (Worksheets("DB APOSTAS").Cells(col + 1, LIN + 1 = p)) Then
'If Worksheets("DB APOSTAS").Cells(col2 + 1, LIN2 + 1) Then
 Worksheets("DB BOLÃO").Cells(LIN + 1, LIN2) = 10
End If
End If
If Worksheets("RESULTADOS").Cells(L, A) = p And Worksheets("RESULTADOS").Cells(N, B) < s Or Worksheets("RESULTADOS").Cells(L, A) <> p And Worksheets("RESULTADOS").Cells(N, B) = s Or O = U And p = s Then
Worksheets("DB BOLÃO").Cells(LIN + 1, LIN2) = 5


 End If





Z = Z + 1


COL = COL + 1
COL2 = COL2 + 1
LIN = LIN + 1
LIN2 = LIN2 + 1
L = L + 1
N = N + 1
p = p + 1
O = O + 1
U = U + 1
s = s + 1




Wend
Wend
End Sub
 
Postado : 14/09/2015 2:54 pm
 MPrudencio
(@mprudencio)
Posts: 0
New Member
 

O que ele deveria fazer, e nao esta?????????

 
Postado : 14/09/2015 6:03 pm
 setti
(@setti)
Posts: 0
New Member
Topic starter
 

Boa noite, obrigado pela resposta..

É o seguinte é comparar o célula linha a partir 2 coluna c da planilha resultados = célula a linha coluna a partir de 5 da planilha db apostas e célula linha a partir 2 coluna e da planilha resultados = célula linha coluna a partir de 6 da planilha db apostas sempre fazendo um looping disso.
se for verdadeiro planilha db bolão célula (linha, col a partir 1)=célula (linha, col a partir 1=)+15
se for falso
comparar o célula linha a partir 2 coluna c da planilha resultados = célula a linha coluna a partir de 5 da planilha db apostas e célula linha a partir 2 coluna e da planilha resultados <> célula linha coluna a partir de 6 da planilha db apostas e planilha resultado célula (linha,c)>planilha resultado célula (linha,e)>
se verdadeiro planilha db bolão célula (linha, col a partir 1)=célula (linha, col a partir 1=)+8
se falso
comparar o célula linha a partir 2 coluna c da planilha resultados <> célula a linha coluna a partir de 5 da planilha db apostas e célula linha a partir 2 coluna e da planilha resultados = célula linha coluna a partir de 6 da planilha db apostas e planilha resultado célula (linha,c)<planilha resultado célula (linha,e)>
se verdadeiro planilha db bolão célula (linha, col a partir 1)=célula (linha, col a partir 1=)+8
se falso
comparar o célula linha a partir 2 coluna c da planilha resultados =célula a linha coluna a partir de 5 da planilha db apostas e célula linha a partir 2 coluna e da planilha resultados = célula linha coluna a partir de 6 da planilha db apostas e planilha resultado célula (linha,c)=planilha resultado célula (linha,e)>
se verdadeiro planilha db bolão célula (linha, col a partir 1)=célula (linha, col a partir 1=)+5
agora ele tá colocando os pontos em efeito escada!!!
e se possível pegar a pontuação da planilha db bolão e jogar na planilha db classificação...

Obrigado,

Rafael

 
Postado : 14/09/2015 6:42 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico