Duvida sobre codigo

[adriano944]

Pessoal

Eu entrei na empresa aki onde estou e acabei caindo de paraquedas nos sistemas que tem aki..porem não estou conseguindo identificar do que se trata um codigo...se puderem me ajudar agradeço muito..

O codigo é o seguinte:

Const grf = "grafico"
Const res = "resumo"
Dim lin As Double
Sub update()
   
  Sheets("divergencias").Cells(9, 1).QueryTable.Refresh BackgroundQuery:=False
  Sheets("emissoes").Cells(9, 1).QueryTable.Refresh BackgroundQuery:=False
  Sheets("a analisar").Cells(9, 1).QueryTable.Refresh BackgroundQuery:=False
  
  lin = 21
  ncol = Sheets(grf).Cells(lin + 8, 1)
   
  Sheets(grf).Cells(lin, ncol) = Sheets(res).Cells(40, 1)
  Sheets(grf).Cells(lin + 1, ncol) = Sheets(res).Cells(16, 1)
  Sheets(grf).Cells(lin + 2, ncol) = Sheets(res).Cells(16, 5) + Sheets(res).Cells(40, 5)
  Sheets(grf).Cells(lin + 3, ncol) = Sheets(res).Cells(16, 10) + Sheets(res).Cells(40, 10)
  Sheets(grf).Cells(lin + 4, ncol) = Sheets(res).Cells(27, 9) + Sheets(res).Cells(51, 9)
  Sheets(grf).Cells(lin + 5, ncol) = Sheets(res).Cells(16, 14) + Sheets(res).Cells(40, 14) + Sheets(res).Cells(29, 9) + Sheets(res).Cells(53, 9)
  Sheets(grf).Cells(lin + 6, ncol) = Sheets(res).Cells(28, 9) + Sheets(res).Cells(52, 9)
  
  lin = 51
  
  Sheets(grf).Cells(lin, ncol) = Sheets(res).Cells(35, 3)
  Sheets(grf).Cells(lin + 1, ncol) = Sheets(res).Cells(11, 3)
  Sheets(grf).Cells(lin + 2, ncol) = Sheets(res).Cells(11, 7) + Sheets(res).Cells(35, 7)
  
  lin = 77
     
  Sheets(grf).Cells(lin, ncol) = Sheets(res).Cells(49, 13)
  Sheets(grf).Cells(lin + 1, ncol) = Sheets(res).Cells(50, 13)
  Sheets(grf).Cells(lin + 2, ncol) = Sheets(res).Cells(51, 13)
  Sheets(grf).Cells(lin + 3, ncol) = Sheets(res).Cells(52, 13)
   
End Sub

Editado Dezembro 4, 2008 por kuroi
Adicionar tag CODE

[kuroi]

a pelo q parece ele pega valor de umas celulas e soma em otras celulas, a gente aqui não vai saber qual a finalidade disso.

você não tentou executar pra ver o q ele faz??

[adriano944]

Eu consegui descobri aki...vlw Kuroi!!

a pelo q parece ele pega valor de umas celulas e soma em otras celulas, a gente aqui não vai saber qual a finalidade disso.

você não tentou executar pra ver o q ele faz??