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 células em branco e ir para a próxima preenchida.

Se outro puder te ajudar agora, pois vou " zzzzz"

Att,

Francisco

sim é isso mesmo que eu pretendo...obrigado

pretendo que a macro quando encontra uma célula vazia salte para a outra a seguir preenchida...e assim só copia as que estão preenchidas e cola no destino.

Bom dia nmareis

Para manter a organização do fórum, uni teus 2 tópicos, pois não é permitido criar tópicos duplicados.

Quando tiver qualquer dúvida, mande uma MP para um dos moderadores.

Para anexar a planilha, era só postar outra mensagem no mesmo tópico, anexando o arquivo.

Para tomar conhecimento dos procedimentos e regras do fórum, acesse os links abaixo:

viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s

Patropi - Moderador

Bom Dia!

Veja se é isso que precisa.

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:=xlUp <-- esse comando deleta as linha na M.d.M

Att,

Francisco

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:=xlUp <-- esse comando deleta as linha na M.d.M

Att,

Francisco

fcarlosc

O problema estava na ativação na aba, este comando deleta o que voce ja processou para nao duplicar informaçao.

Veja agora se esta ok.

é isso, mas preciso que folha OT começe a colar apartir da linha 21...e está a colar apartir da 1ª linha

é isso, mas preciso que folha OT começe a colar apartir da linha 21...e está a colar apartir da 1ª linha

nmareis boa tarde!

Localize essa parte do código:

If ULTIMA_LINHA_OT = 1 Then ULTIMA_LINHA_OT = 2

Sheets("OT").Activate

x_ROWS = "2:" & ULTIMA_LINHA_OT
Rows(x_ROWS).Select
Selection.Delete Shift:=xlUp
    
ULTIMA_LINHA_OT = Sheets("OT").Range("AN65536").End(xlUp).Row
If ULTIMA_LINHA_OT = 1 Then ULTIMA_LINHA_OT = 2

e substitua os valores conforme abaixo:

If ULTIMA_LINHA_OT = 20 Then ULTIMA_LINHA_OT = 21

Sheets("OT").Activate

x_ROWS = "21:" & ULTIMA_LINHA_OT
Rows(x_ROWS).Select
Selection.Delete Shift:=xlUp
    
ULTIMA_LINHA_OT = Sheets("OT").Range("AN65536").End(xlUp).Row
If ULTIMA_LINHA_OT = 20 Then ULTIMA_LINHA_OT = 21

Acredito que isso resolverá.

OI, olha ai, se é isto que deseja, observo que os valores da coluna Z devem ser formulas (como estava na planilha original) para que a macro funcione corretamente, se for texto vai dar um erro.
Caso queira que Z seja reconhecida como texto terá que fazer uma mudança no código.

espero que seja isto.

Ola, este arquivo é revisado e leva as informações exatamente para a célula N21 na planilha OP.