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,342 Visualizações

RSS

jpherarth

(@jpherarth)

Posts: 26

Eminent 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

???

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

Postado : 20/01/2015 10:56 am

jpherarth

(@jpherarth)

Posts: 26

Eminent 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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

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

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

Postado : 21/01/2015 10:50 am