Como faço pra colocar um valor na celula e voltar ao codigo

[helioceara]

por exemplo tem essa função (que eu chamo dentro da celula D5 por exemplo)

Public Function Teste30()

    Workbooks.Item(1).Worksheets.Item(1).Range("D6") = 10
    
    Teste30 = 30
    
End Function

Eu queria que ele colocasse o valor 10 na celula D6, e voltasse à função e retornasse o valor 30 na celula em que eu chamo a função (por exemplo D5)

Aparentemente, pelo menos pra mim, isso funcionaria, mas esse código não retorna o valor da função na celula D5 e nem coloca o valor 10 na celula abaixo (D6)

talvez essa duvida essa bem simples, mas sou novo nisso.

Se alguém puder me ajudar ae, agradeço.

[Paulo H Grando]

Para colocar valor em células você precisa acessar a propriedade Value. Simplificando seu código, pelo que entendi a célula que aciona a função está na mesma planilha das células onde serão postados os resultados, portanto fica assim:

Range("D6").Value = 10
Range("D5").Value = 30

[helioceara]

Isso paulo, as celulas estão na mesma planilha.

mas infelizmente não é o problema de acessar a propriedade value

já tinha testado isso, e o resultado foi o mesmo.

será que não precisa ativar alguma coisa no excel, pra poder a programação ter acesso à planilha? ou será que não se pode acessar a planilha quando crio a função em modulos? ou tem que ativar alguma propriedade do workbook?

obrigado

Editado Outubro 9, 2009 por helioceara

[Paulo H Grando]

Como você está disparando essa função? Através de DoubleClick? Se for isso, o problema é que a célula continua em edição após o início do evento, portanto não é possível acessar a planilha. Selecione outra célula após o início do evento: Range("D6").Select.

Editado Outubro 9, 2009 por Paulo H Grando

[helioceara]

nem é com o doubleclick

eu acesso em uma celula qualquer como uma formula utilizada

por exemplo eu vou na celula D5 e escrevo

"=teste(30)"

[JoséA]

:wacko:

Não entendi muito bem o que você quer.

você quer inerir dados na Plan2 com a Plan1 ativa, seria isso??

:unsure:

[helioceara]

value pessoal

já consegui resolver o problema

não esse. mas ao invés de chamar function, tou chamando sub mesmo atraves de um botão...ta funcionando..valeu