Estou com problemas no meu código, ele pula linha porém na hora de calcular o valor que está próxima linha ele dá zero, poderiam me ajudar? Posso enviar meu arquivo também!!
Sub teste_m²()
i = 6 'variável para pular linha
j = 17
Dim TheVars As Range, c As Range
Do While Cells(i, 7) <> "" 'variável para gravar o conteúdo da célula
Set TheVars = Worksheets("Mapeamento").Range("G" & i, "O" & i)
'Dictionary
Dim d
Set d = CreateObject("Scripting.Dictionary")
'laço importante
For Each c In TheVars
current = c.Value
If current <> last Then
'área correspondente do current + count
cont = cont + d(current)
End If
last = c.Value
Next c
Cells(i, 23) = cont
i = i + 1 'soma ela mesma, pula para próxima linha
CÓDIGO PULA LINHA PORÉM NÃO LÊ A PRÓXIMA
em VBA
Postado
Olá!
Estou com problemas no meu código, ele pula linha porém na hora de calcular o valor que está próxima linha ele dá zero, poderiam me ajudar? Posso enviar meu arquivo também!!
Sub teste_m²()
i = 6 'variável para pular linha
j = 17
Dim TheVars As Range, c As Range
Do While Cells(i, 7) <> "" 'variável para gravar o conteúdo da célula
Set TheVars = Worksheets("Mapeamento").Range("G" & i, "O" & i)
'Dictionary
Dim d
Set d = CreateObject("Scripting.Dictionary")
While j <= 22
d.Add Worksheets("Mapeamento").Cells(5, j).Value, Worksheets("Mapeamento").Cells(4, j).Value
j = j + 1
Wend
last = ""
current = ""
cont = 0
'laço importante
For Each c In TheVars
current = c.Value
If current <> last Then
'área correspondente do current + count
cont = cont + d(current)
End If
last = c.Value
Next c
Cells(i, 23) = cont
i = i + 1 'soma ela mesma, pula para próxima linha
Loop
End Sub