Excel Macro para Excel - célula vazia

[Josy Lobo]

Bom dia.

 

Estou fazendo uma plan que funciona assim:

 

O usuário vai colar informações obtidas em outro local, mas são várias fontes. Então ele vai aplicar um filtro antes de colar. Cada vez que o filtro estiver aplicado, a colagem deve ser numa célula vazia diferente, mas sempre na mesma coluna.

 

Tentei o seguinte:

   Range("c1048576").End(xlUp).Offset(1, 0).Select
   ActiveSheet.Paste

 

Só que isso funciona só na primeira vez. quando se aplica o segundo filtro, ele ainda vai para a primeira linha da tabela (a que está escondida pela aplicação do filtro) e cola, independente de essa célula estar vazia ou não.

 

 

Alguém tem sugestão??

 

Obrigada!

 

 

[CasaDoHardware]

Nao entendi.

 

Mas penso que o ideal seria colar antes de filtar.

 

[Josy Lobo]

@CasaDoHardware olá!

 

Acontece o seguinte:

 

o usuário deve copiar dados de um software próprio para colar numa plan que centraliza esses dados. São vinte registros de cada painel, sendo que cada estação (17) tem seis painéis.

Como tenho que fazer algumas verificações com esses dados, essa planilha contém fórmulas e já está preparada com os nomes das estações x painéis (uma coluna com ESTAÇÃO e outra com PAINEL).

Não dá pra ser seguido (estação 1, painel 1, estação 1, painel 2, etc) porque a verificação é aleatória.

 

Então no dia que estiver verificando a estação 10 x painel 6, ele vai filtrar a plan pra colar os dados no local correto.

 

 

Esses dados são bagunçados, então tenho uma macro pra organizá-los.

 

Já tentei deixar aberto pro cidadão simplesmente clicar na primeira célula e colar e depois aplicar a macro, mas "eventualmente" ele clica em lugar errado e cola, daí zoneia tudo.

 

[CasaDoHardware]

Disponibiliza o codigo completo com parte da planilha, porque inicialmente o seu codigo esta correto, é preciso ver o que esta dando errado e porque.

[Josy Lobo]

@CasaDoHardware Olá! Desculpe a demora. Tive outras prioridades e essa plan ficou um pouquinho esquecida.

Então, pesquisando achei a seguinte solução:

 

Range("F3").Offset(1, 0).Activate

Do Until Rows(ActiveCell.Row).Hidden = False

ActiveCell.Offset(1, 0).Activate

Loop

 

Que funcionou direitinho!!!

 

Mesmo assim, obrigada!!!