Jump to content
Fórum Script Brasil
  • 0

CÓDIGO PULA LINHA PORÉM NÃO LÊ A PRÓXIMA


Question

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
 

Link to post
Share on other sites

1 answer to this question

Recommended Posts

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      149193
    • Total Posts
      645450
×
×
  • Create New...