none
Selecionar células ocultas e apagá-las junto com as visíveis RRS feed

  • Pergunta

    • Entre duas células visíveis contem células ocultas (verticalmente, linhas em cima de linhas), e em baixo da última célula visível tem outra células visível com conteúdo, o numero de ocultas varia, por isso, quero fazer um macro que selecionasse a primeira célula visível até a segunda célula visível, e as apagasse (mas sem apagar a última célula visível, que é a terceira)

      é tipo apertar shift + seta para baixo (fazendo isso ele seleciona todas as células ocultas também)

      alguém me diz as propriedades que devo usar? Obrigado!

      Resumindo:

    Celula visivel
    ---- (linhas ocultas)
    Célula visível
    total:

    selecionar a primeira celula até a terceira e apagar (incluindo as ocultas) com vba.



    sexta-feira, 8 de setembro de 2017 14:05

Todas as Respostas

  • Sub teste()
    
    If ThisWorkbook.Sheets("Planilha1").Range("A1").Rows.Hidden = True Then
    MsgBox "Oculta"
    End If
    
    End Sub
    


    Anderson Diniz

    sexta-feira, 8 de setembro de 2017 14:18
  • Sub teste2()
    Dim linha As Long
    linha = 1
    
    While ThisWorkbook.Sheets("Planilha1").Range("A" & linha) <> ""
    
    If ThisWorkbook.Sheets("Planilha1").Range("A" & linha).Rows.Hidden = False Then
    ThisWorkbook.Sheets("Planilha1").Range("A" & linha).EntireRow.delele
    ThisWorkbook.Sheets("Planilha1").Range("A" & linha + 1).EntireRow.delele
    Exit Sub
    End If
    
    linha = linha + 1
    
    Wend
    
    End Sub


    Anderson Diniz


    sexta-feira, 8 de setembro de 2017 14:25
  • Wow, me ajudou demaiss, obrigado!!!
    sexta-feira, 8 de setembro de 2017 14:32