Fiz a alteração, veja se agora está OK. TRANSPOR_GT02.zip

Minha primeira pergunta é: Se vc está usando formatação condicional, porque fazer isso via macro? Ou seja, porque ja não deixa a planilha com a forma...

Veja se era isso que vc queria. Inseri as duas colunas manualmente e depois gerei o código para mudar as informações de lugar. Rode a macro "Tra...

Bom dia, Pedro, Nesse caso, como vc está selecionando as células, bastaria vc selecionar, antes do range, também a planilha (entendo que vc esteja ch...

Veja se era isso o que deseja. E, lembre-se, da próxima vez, compacte os ficheiros. Tire um tempinho e leia as regras do fórum Gestão-Clientes_GT.rar

Seria isso? endereco_entrega = InputBox("Endereço: ", "Título do inputbox de endereço", Range("A1").Value)

Userforms não é comigo, mas... Quanto ao erro de tempo de execução: Se vc depurar, vai ver que o erro acontece aqui: Unload UserForm1 'UserForm.Sho...

É uma questão de formatar o rótulo de dados. Coloquei a formula que te sugeri, e fiz a alteração na formatação do rótulo. Veja Exemplo_GT01.zip

estranho Em todo caso, fiz um remendo aqui, pra ela funcionar. Tá meio corrido, mas depois posso rever o código e dar uma otimizada. Dim planilha ...

não entendi porque vc utiliza o NÃO.DISP() ? Não seria melhor usar: =SE(I54<>0;(485-I54)/485;"")

Não custa tentar... quando estou digitando e não há indicação de escrita, eu pressiono "Ctrl + espaço" e ele mostra. Se pressionar de novo,...

não dá mais pra editar o post acima. :S Se vc quiser que o nome da tua "aba" seja o nome do pdf, use: Dim planilha As Worksheet For Each ...

hm, vc ainda tem o nome do arquivo na célula F10? Ou o nome do arquivo tem que ser o nome da planilha?

Testei aqui e deu certo. Experimente Dim planilha As Worksheet For Each planilha In ActiveWorkbook.Worksheets With planilha ChDir "C:Users...

Não tem como. Vc tem que esperar um pouco e tentar de novo. Caso a mensagem apareça quando for salvar ao fechar a planilha, escolha "cancelar&qu...