Bom dia!!

Tente algo como..

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$A$1" Or Target.Count > 1 Then Exit Sub
    If Target <> "" Then MsgBox "Macro_1"
    If Target = "" Then MsgBox "Macro_2"
    
End Sub

Deu certinho...

Agora preciso de mais uma ajuda, nao estou conseguindo exportar o arquivo com a extençao que preciso, porem se salvo dentro do arquivo ja existente ai da certo, ou seja, precisava abrir um arquivo ja existente txt, escrever nele, e salvar, entende? que o codigo que tenho ele cria um novo arquivo substituindo o ja existente, veja o codigo que tenho.

Sub GeraTxt()

'Identifica o caminho onde está e será salvo exemplo: C:Desktop
Caminho = ThisWorkbook.Path & Application.PathSeparator
'Determina o nome do arquivo a ser salvo
arquivo = "import.RE"
'"abre" o arquivo txt para gravação dos dados
Open Caminho & arquivo For Output As #1

existe uma forma que ao invez dele substituir esse arquivo "import.RE " ele escreva nele e salva? esse arquivo ele abri no bloco de notas. por isso que falo que se eu colo oque o excel exportou dentro dele da certo depois para exportar para outro programa.

obrigado.

Bom dia!!

Para manter o fórum organizado, eu recomendo abrir um tópico para cuidar de sua nova dúvida, já que a mesma não corresponde ao título de seu post.

Use também a pesquisa do fórum antes de postar!!

Marque seu tópico como resolvido e click na mãozinha!!!
viewtopic.php?f=7&t=3784

Obrigado!!

Peço desculpas porem acredito que seja aqui mesmo... para entender melhor, eu montei um macro para quando executado exportar um arquivo txt. é esse codigo desse macro que gostaria da ajuda acima mencionado.entende?

Boa noite!!

Tente...

 
Sub GeraTxt() 
    Caminho = ThisWorkbook.Path & Application.PathSeparator 
    arquivo = "import.RE" 
    Open Caminho & arquivo For Output As #1  

Perfeito amigo funcionou perfeitamente.

muito obrigado.

Bom dia!!

Não estou entendo te ajudo em 2 problemas, e não ganho nenhuma maõzinha????

Att

desculpas nao estou adaptado a esse forum ainda rsrs...
obrigado.