dim Rodar as boolean

if range("A1").value = "os dados já foram exportados" then
if msgbox ("os dados já foram importados. Deseja continuar",vbyesno,"confirmação") = vbyes then
rodar = true
endif
endif

if range("A1").value = "Não exportado" then rodar = true

if rodar then
'seu código
endif

Muito Obrigado Fernando!!! Sou novo por aqui...descobri que aqui o fórum funciona...hehehe
Valew!!!!

Aeeee.. .esse forum é fóda mesmo, kkk, que bom que curtiu!

bom, ja que se entregou q é novo (como se eu nao tivesse visto o tópico de apresentação, kkk)

Dá uma lida nas regras, é bom pra vc nao se estressar qdo fizer algo errado e for repreendido, rs

Copiei esse texto de outro moderador:

Boa tarde!!

Olá seja bem vindo (a), Skazinho!!!

Por favor Leia os links abaixo, obrigado!!!

Nossas Regras
viewtopic.php?f=7&t=203

Marcar Tópico como Resolvido e Agradecimento
viewtopic.php?f=7&t=3784
Lembre se de usar nossa base de dados (Pesquisa) e a Biblioteca

Como Anexar Aquivos Compactados
viewtopic.php?f=7&t=3841

Abrir Novo Tópico
viewtopic.php?f=7&t=5317

Onde Devo Postar Minha Dúvida e mais...
viewtopic.php?f=7&t=7903
Att
FF

Blz vou ler aqui!!! valew pela dica!

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.