Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro não funciona
 
Notifications
Clear all

Macro não funciona

 
2024 - VBA & Macros
Post Recente por gtsalikis 10 anos atrás
7 Posts
3 Usuários
0 Reactions
1,327 Visualizações
RSS
 jpherarth
(@jpherarth)
Posts: 0
New Member
Topic starter
 

Prezados, me ajudem por favor? por que nao funciona?

Sub PrecoFechamento()
Dim i As Long
Dim Linha As Long
Dim Ativo As Variant
Dim wsParam As Worksheet

Linha = 3
Set wsParam = ThisWorkbook.Worksheets("Parameters")

Do While Ativo <> 0
Ativo = wsParam.Cells(Linha, 19).Value
For i = 19 To 100
wsParam.Cells(Linha, i).Value = "=" & Ativo & "!E" & (i - 16)

Next i
Linha = Linha + 1
Loop

End Sub

O resultado na pratica é o seguinte:
considerado que ativo em a3 seja" xxx", na celula S3 o valor deve ser =xxx!E19
t3 deve ser =xxx!E20

e assim por diante. podem ajudar?

 
Postado : 20/01/2015 10:43 am
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

Qual a diferença deste código para este:

viewtopic.php?f=10&t=14207

???

 
Postado : 20/01/2015 10:56 am
 jpherarth
(@jpherarth)
Posts: 0
New Member
Topic starter
 

tem diferença, não tem nada a ver um com o outro. pode me ajudar por favor?

 
Postado : 20/01/2015 10:59 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não houve atravessamento não mas sim um questionamento, cuja resposta não acrescentou nada a pergunta e ficou duvidas no ar.
Eu creio também que as duas postagens se referem ao mesmo tipo de duvida.
No achômetro:-->
acho que está querendo incluir uma formula em uma célula e não um valor, se a suposição estiver correta:
para incluir uma formula em celula deve utilizar :--> wsParam.Cells(Linha, i).Formula ao inves de wsParam.Cells(Linha, i).Value
Ai a sintaxe deverá ser:->> wsParam.Cells(Linha, i).Formula = "="& Ativo & "!E" & i-16
Se minha suposição estiver errada, favor fornecer maiores detalhes

 
Postado : 21/01/2015 10:17 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde Reinaldo

O atravessamento que ele se refere, era um usuário novato, que havia postado uma dúvida aqui neste tópico, mas já movi para um novo tópico, mas não havia retirado a reclamação.

[]s

Patropi

 
Postado : 21/01/2015 10:33 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Opps!! :oops:
Patropi não havia visto a mensagem a que se refere.
Mas mesmo assim ficou duvida vamos ver se o que "achei" e o que o usuario deseja

 
Postado : 21/01/2015 10:38 am
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

Bem, aproveitando que estou passando por aqui...

Eu tinha visto que outra pessoa postou uma dúvida aqui, e já imaginava que algum moderador tivesse arrumado a bagunça.

Mas eu indiquei o outro tópico, porque, embora o código seja outro, creio que o problema é o mesmo. No outro tópico ele está tentando entrar com uma função fora do Excel, parece-me que é de um programa. O Bernardo tinha sugerido usar o *.FormulaLocal mas não deu.

Aqui, Reinaldo, vc está sugerindo usar o *.Formula, mas ainda creio que o problema deve ser o mesmo.

Abs

 
Postado : 21/01/2015 10:50 am
Forum Jump:
  Tópico Anterior
Próximo Tópico