E ai blz? Tenta: SendKeys "^{F1}" At. Ricardo http://www.xlssolution.blogspot.com.br

Amigo, Acho que algo assim poderia te ajudar. If Target.Column = Range("D:D").Column Then Sheets("Plan1").C...

Amigo, Como sua base está vinculada a outros arquivos, não tive como testar, mas tente a função "texto". =+TEXTO(D5;"0000000")&...

Realmente não sei o que esta ocorrendo. Na minha maquina esta funcionando correto. Você esta usando o ultimo código que postei? At. Ricardo

Amigo, Dentre as diversas formas de se fazer o que você está precisando, no exemplo em anexo tem uma forma simples, mas acho que te atende. Espero q...

Amigo, Seria bom se você desse um exemplo de como você gostaria de fazer as contas. O que está limitando a ação da celula neste momento é o IF. &qu...

Olá. esqueci de verificar isso. É só colocar esse IF. Sub DuplicaERenomeia() 'primeiro, faz a cópia da planilha Dim newSheet As Worksheet Dim nom...

Amigo, Veja se ajuda. Sub DuplicaERenomeia() 'primeiro, faz a cópia da planilha Dim newSheet As Worksheet Dim nome As String Dim bool As Boolean ...

Amigo, Dê uma olhada nesse link. http://www.rondebruin.nl/win/s6/win001.htm At. Ricardo

Boa tarde Amigo, Acho que pode ajudar. Sub busca_Operadora() Dim IE As InternetExplorer Dim telefone As String Dim resultado As String resultado ...