Classificando os Dados de uma Planilha - Alphabetizing a Column

Você já precisou classificar os dados de uma planilha, seja para facilitar a pesquisa, seja preparar uma análise prévia?

E se você tivesse uma função disponível para isso?
(Perceba que existem outras funções utilizadas no código, mas todas estão aqui no Blog)


Function SortColumn (nSheet As String, nCellStart As String)
    ' © 2007-20 A&A - In Any Place®, except where noted, all rights reserved.
    ' THIS CODE AND INFORMATION ARE PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT
    ' LIMITED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
    ' Feel free to use the code as you wish but kindly keep this header section intact.
    ' Copyright© A&A - In Any Place®, all Rights Reserved.    '      Author: André Bernardes
    '     Contact: andreluizbernardess@gmail.com | https://goo.gl/EUMbSe/
    ' Description: Sort by column.

    Dim nRowIni As String
    Dim nRowFin As String
    Dim nColIni As String
    Dim nColFin As String
    Dim nRng As String

    Let nRowIni = Range(nCellStart).Row                         ' A partir da referência (nCellStart), determina a linha inicial.
    Let nColIni = ColumnLettersFromRange (Range(nCellStart))     ' A partir da referência (nCellStart), determina a coluna inicial.
    Let nRowFin = FindingLastRow (nSheet, nColIni)               ' A partir da referência (nSheet), determina a última linha.
    
    Sheets(nSheet).Select

    Let nColFin = FindLastColumn (False)                         ' A partir da referência (nSheet), determina a última linha.
    Let nRng = nColIni & nRowIni & ":" & nColFin & nRowFin      ' A partir das referências (nSheet e nCellStart) e algumas funções, determina o range.

    Range(nCellStart).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Worksheets(nSheet).Sort.SortFields.Clear

    With ActiveWorkbook.Worksheets(nSheet).Sort
        .SetRange Range(nRng) 
        
        Let .Header = xlYes
        Let .MatchCase = False
        Let .Orientation = xlTopToBottom
        Let .SortMethod = xlPinYin
        
        .Apply
    End With

End Function

⬛◼◾▪ Social Media ▪◾◼⬛

• FACEBOOK • TWITTER • INSTAGRAM • TUMBLR • GOOGLE+ • LINKEDIN • PINTEREST

⬛◼◾▪ Blogs ▪◾◼⬛ 

• VBA Specialist® • VBA Excel Specialist®

• VBA Access Specialist® • VBA Dashboards Specialist®

• VBA Infografics Specialist® • VBA Pharma Specialist® 

⬛◼◾▪ CONTATO ▪◾◼⬛

brazilsalesforceeffectiveness@gmail.com

Qual é a Última Linha da Planilha?

Existem várias situações onde precisamos determinar qual é a última Linha de uma planilha na qual estamos implementando alguma automação. Ter uma função pronta para uso é sempre uma mão na roda. Claro, existem diversas formas de se fazer isso.

Function FindingLastRow (nSheet As String, nColumnAnalyse As String) As Long
  ' © 2007-20 A&A - In Any Place®, except where noted, all rights reserved.
    ' THIS CODE AND INFORMATION ARE PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT
    ' LIMITED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
    ' Feel free to use the code as you wish but kindly keep this header section intact.
    ' Copyright© A&A - In Any Place®, all Rights Reserved.    '      Author: André Bernardes
    '     Contact: andreluizbernardess@gmail.com | https://goo.gl/EUMbSe/
    ' Description: Different ways to find the last row number of a range
    ' SOURCE: www.TheSpreadsheetGuru.com

    Dim sht As Worksheet
    Dim LastRow As Long

    Set sht = ThisWorkbook.Worksheets(nSheet)

    ' Ctrl + Shift + End
    'Let LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row

    ' Using UsedRange
    'sht.UsedRange 'Refresh UsedRange
    'Let LastRow = sht.UsedRange.Rows(sht.UsedRange.Rows.Count).Row

    'Using Table Range
    'Let LastRow = sht.ListObjects("Table1").Range.Rows.Count

    'Using Named Range
    'Let LastRow = sht.Range("MyNamedRange").Rows.Count

    'Ctrl + Shift + Down (Range should be first cell in data set)
    'Let LastRow = sht.Range("D1").CurrentRegion.Rows.Count
    
    ' Retorna a última Linha da principal coluna.
    Let LastRow = Sheets(nSheet).Range(nColumnAnalyse & Rows.Count).End(xlUp).Row

    Let FindingLastRow = LastRow

End Function

⬛◼◾▪ Social Media ▪◾◼⬛

• FACEBOOK • TWITTER • INSTAGRAM • TUMBLR • GOOGLE+ • LINKEDIN • PINTEREST

⬛◼◾▪ Blogs ▪◾◼⬛ 

• VBA Specialist® • VBA Excel Specialist®

• VBA Access Specialist® • VBA Dashboards Specialist®

• VBA Infografics Specialist® • VBA Pharma Specialist® 

⬛◼◾▪ CONTATO ▪◾◼⬛

brazilsalesforceeffectiveness@gmail.com