Ir ao conteúdo
  • Cadastre-se
PlayerMamuska

Excel RESOLVIDO Macro para Excel - célula vazia

Recommended Posts

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!

 

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

@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.

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

@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!!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×