none
Mostrar conjunto de células após filtro RRS feed

  • Pergunta

  • Gostaria de manter as células mescladas para impressão após executar o filtro, existe um código que vi aqui no mas está dando vários erros mas no post o participante disse que funcionou, somente gostaria de manter em uma planilha simples com as colunas, NOME, DATA, SITUAÇÃO, então quando mesclo por exemplo situação ATIVO de várias datas do mesmo NOME as outras DATAS são ocultadas.

    Referência foi:

    Este código foi desenvolvido por Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    Sub fncAntesDoFiltro()

        Dim lngFirst As Long
        Dim lngLast As Long
        Dim rngCell As Range
        Dim rngMerged As Range
        Dim strArea As String
        Dim strFormula As String
        Dim rngLast As Range

        With ThisWorkbook.Worksheets("Base")
            lngFirst = 10
            lngLast = .Cells(.Rows.Count, "H").End(xlUp).Row
            For Each rngMerged In .Cells(lngFirst, "H").Resize(lngLast - lngFirst + 1)
                If rngMerged.MergeCells Then
                    strArea = rngMerged.MergeArea.Address
                    strFormula = rngMerged.Formula
                    rngMerged.UnMerge
                    For Each rngCell In .Range(strArea)
                        rngCell.Formula = strFormula
                    Next rngCell
                End If
            Next rngMerged
             lngFirst = 10
            Set rngLast = .Cells(.Rows.Count, "I").End(xlUp)
            lngLast = rngLast.Row + rngLast.MergeArea.Rows.Count - 1
            .Cells(lngFirst, "I").Resize(lngLast - lngFirst + 1).Copy
            .Cells(lngFirst, "H").PasteSpecial xlPasteFormats
        End With
    End Sub

    segunda-feira, 3 de junho de 2019 18:51