Testa esse arquivo. att, Francisco

O código do Osvaldomp funciona 100%, o que te passei é muito grande e ainda tem erros.

Olá amigo. Aplica esse código aqui antes de " End Sub ". Range("A12:E12").Select Selection.Borders(xlDiagonalDown).LineStyle...

Bom-dia. No anexo do "JokerPot", certamente é o que precisa, só acho que não era pra excluir a linha em branco. Selection.Delete Shift:=xlU...

Bom-dia, Dá uma olhada nesse --> Dim imp as Printer For Each imp In Printers If imp.Orientation = vbPRORLandscape then 'seleciona a impresso...

No outro tópico eu anexei um arquivo, mais tinha entendido que era para remover os espaços em branco das "frases" nas células e não pular as...

Olá amigo. Segue anexo... Att, Francisco

Olá amigo... Testa esse código. Sub Copy_Clear() Dim rLocal As Range Worksheets("M.d.M").Range("AZ1:AZ2000").Copy Works...

Consegui resolver parcialmente o seu problema, mais na hora de copiar da "Origem" para a "Destino" eu só consegui jogar na primeir...

Sub Copy_Clear() Dim rLocal As Range Sheets("Plan1").Select Range("A1").Select Range("A:A").Select Selection.Copy Sh...

Unload Me Plan1.Activate Application.Visible = True

Segue anexo...

O arquivo está em anexo logo acima (Cadastro.xls). Mais eu retirei o código. Se você conseguir anexar, agradeço !

Boa Noite. Código 1: Sub pega_tabela() Set ie = CreateObject("InternetExplorer.Application") With ie .Width ...

Eu tenho o código, ele faz a pesquisa tudo certinho só não retorna as informações para os texts. Tenho outro código que pesquisa no site da Rebuplica ...