Página 1 de 1

Ajuda com macro na lista do filtro

Enviado: 20 Set 2019 às 11:56
por LucasHenrique
Bom dia, boa tarde e boa noite amigos!

Estou precisando de ajuda com um macro para selecionar o próximo item (imediatamente abaixo) da lista criada pelo filtro mas estou tendo muita dificuldade pra ajustar os termos. É possível?

Desde já, agradeço!

Re: Ajuda com macro na lista do filtro

Enviado: 04 Out 2019 às 14:24
por LucasHenrique
...up?

Re: Ajuda com macro na lista do filtro

Enviado: 04 Out 2019 às 16:04
por osvaldomp
Veja se aproveita.
Código: Selecionar todos
Sub PrimeiraLinhaFiltrada()
 Dim plf As Long
  plf = Range("A2:F3000").SpecialCells(xlCellTypeVisible)(1).Row
  MsgBox plf
End Sub

Re: Ajuda com macro na lista do filtro

Enviado: 04 Out 2019 às 17:19
por LucasHenrique
Ainda não consegui, Osvaldo!

Acho que não consegui explicar muito bem o meu intuito. Basicamente, à partir de um comando (Ctrl D), eu gostaria de que o macro pulasse para o próximo item da coluna J, mas não necessariamente para a próxima linha(uma vez que alguns dos itens tem múltiplas linhas, entende?) e copiasse a primeira célula dessa mesma coluna J que aparece quando o item for devidamente selecionado. Basicamente, o que eu consegui integrar até agora, com a sua ajuda, foi:
Código: Selecionar todos
Sub Macro1()
'
' Macro1 Macro
'
' Atalho do teclado: Ctrl+d
'
Sub PrimeiraLinhaFiltrada()
 Dim plf As Long
  plf = Range("A2:F3000").SpecialCells(xlCellTypeVisible)(1).Row
  MsgBox plf
    Range("J1488").Select
    Selection.Copy
End Sub
Mas não dá em nada :( Muito obrigado pela ajuda e atenção mesmo assim!

Re: Ajuda com macro na lista do filtro

Enviado: 04 Out 2019 às 17:33
por osvaldomp
Olá, Lucas.
Para facilitar o entendimento da sua necessidade seria oportuno se você disponibilizar aqui no fórum uma amostra do seu arquivo Excel. Coloque na planilha alguns dados de exemplo, coloque os resultados esperados e coloque também as explicações de como obteve os resultados.
Esclareça também: no título do tópico você colocou "filtro", porém na descrição do seu último post você não fez referência.

Para anexar o arquivo clique em Adicionar um anexo, localizado abaixo da caixa de resposta.

Re: Ajuda com macro na lista do filtro

Enviado: 08 Out 2019 às 15:19
por LucasHenrique
Alô Osvaldo!

Mil desculpas pela falta de jeito na explicação, e muito obrigado pela paciência. Disponibilizo em anexo, como solicitado, uma planilha de exemplo com o mesmo cabeçalho que diariamente eu uso para fazer meu trabalho, preenchida com dados hipotéticos.

Basicamente, gostaria de criar um macro, ativado por uma combinação de botões (Ctrl+d, por exemplo) capaz de selecionar o próximo item do filtro situado na coluna J (Chave NF-e), imediatamente abaixo da atual seleção, em seguida copiando a primeira linha também da coluna J. Minha necessidade e problema vem do fato de que só selecionar a próxima linha não basta, uma vez que alguns itens do filtro têm mais de uma linha, entende?

No exemplo anexo, a seleção inicial começa no primeiro item do filtro na coluna J (123), correspondente a "empresa do José". Gostaria de que, na ativação do macro, o item atual fosse desselecionado e o próximo item fosse selecionado (124), revelando as duas linhas correspondentes à empresa "empresa do João", copiando também (como se tivesse utilizado o atalho ctrl+c) a primeira linha da coluna J (124). Assim desejo que seja sucessivamente, ou seja, quando ativado novamente, o macro desselecione o item atual da coluna J (124) e selecione o próximo item(125), revelando a empresa da Maria e por aí vai. Espero ter conseguido explicar melhor...

Novamente, muito obrigado pela ajuda e atenção!

Re: Ajuda com macro na lista do filtro

Enviado: 08 Out 2019 às 16:10
por osvaldomp
Olá, Lucas.

Acho que entendi o que você quer fazer mas não entendi o objetivo, ou seja, o resultado final desejado.

Se entendi corretamente você quer que a macro filtre a tabela utilizando como critérios os conteúdos da coluna J, assim:
1. exibir somente os registros com conteúdo 123
2. idem para 124
3. idem para 125
4. idem para os demais, se houver ...
É isso?

E ao executar cada uma das etapas acima você quer fazer exatamente o que?
Você comentou sobre "copiando também (como se tivesse utilizado o atalho ctrl+c) a primeira linha da coluna J (124)". Porém não entendi quais células você deseja copiar e onde deseja colar.