Retornar célula em branco

[Guest --Rodrigo --]

Olá

Comecei a estudar VBA a pouco tempo. Estou gostando bastante das possibilidades que surgem através deste recurso, porém sobram dúvidas....hehehe. A maioria consigo esclarecer sozinho, pesquisando, porém, a solução para esta ainda não encontrei. Espero contar com a ajuda do pessoal do forum.

Estou fazendo uma função simplezinha, que irei inserir em algumas células da mesma planilha do Excel, mas tenho 2 dúvidas.

1ª - como retornar o endereço da célula que chamou a função?

2ª - como fazer com que a função formate a célula para ficar em branco caso as variáveis fornecidas como parâmetro estejam em branco?

Segue abaixo a função mencionada:

Public Function ValorTotal(Data, NumNeg, Qtde, VlUnit) As Currency

'Cada variável irá corresponder a uma célula da planilha

If Data <> "" And NumNeg <> "" And Qtde <> "" And VlUnit <> "" Then 'Caso as células estejam em branco

VlTotal = Qtde * VlUnit

Else

'Quero que a célula que chamou a Função fique em branco (ou seja, não apareça valor)

End If

ValorTotal = VlTotal

End Function

Abraço

Rodrigo Camillo

[Guest Joao.Neto]

Bom, se voce vai atribuir o Range (celula) a variavel, então você pode usar a propriedade Address que ele te retorna o endereco

Ex.

Data.Address

Pra ficar em branco voce faz da mesma maneira para retornar valor

Else

'Quero que a célula que chamou a Função fique em branco (ou seja, não apareça valor)

ValorTotal = 0

End If

[Guest --Rodrigo --]

Olá João

Obrigado pela ajuda. Testei o "objeto.address" e funcionou. Já quanto a parte após o Else pode ser como sugerido, porém o que eu quero é que a célula seja formatada para que o zero não fique visível.

Abraço

Rodrigo

[Guest Joao.Neto]

Ah, ai fica mais facil ainda... já que voce sabe o endereco da celula atraves do objeto.address você pode fazer o seguinte.

Range(objeto.address).Font.Color = ...

Grave esta parte do codigo onde muda a fonte para você saber direitinho qual e a propriedade correta e depois adapta ao Range(objeto.address).

beleza?