Ir para conteúdo
Fórum Script Brasil

Kevin Murilo

Membros
  • Total de itens

    3
  • Registro em

  • Última visita

Tudo que Kevin Murilo postou

  1. Você pode usar o código abaixo para iterar sobre todas as células visíveis. Sub SomenteVisiveis() Dim rngVisivel As Range, cell As Range Set rngVisivel = Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible) For Each cell In rngVisivel ' Seu código MsgBox cell.Value Next End Sub Ou uma coluna específica, no caso a coluna 1. Set rngVisivel = Columns(1).SpecialCells(xlCellTypeVisible)
  2. Segue, verifique se te atende. https://drive.google.com/file/d/1BHw6ppoK4Jlwu7qFEuuKmmx4Fe1QLjHy/view?usp=drive_link
  3. Segue. Já tinha feito um código parecido com o que você quer, é só fazer algumas adaptações para a sua necessidade. https://drive.google.com/file/d/1EQwP1OYaxN22v2LnPSr8ItHyMB9S0fhN/view?usp=drive_link
×
×
  • Criar Novo...