Sub sbExample1()'Isso mostrará o valor da célula A5 no message BoxMsgBox Range("A5")'Use o objeto Cell Object fazendo referência a A5 conforme mostrado abaixo:MsgBox Cells(5, 1) 'Aqui 5 é o número da Linha e 1 o número da ColunaEnd Sub
Sub CountVisibleRowsList1()
Dim Lst As ListObject
Dim rng As Range
Set Lst = ActiveSheet.ListObjects(1)Set rng = Lst.AutoFilter.RangeMsgBox rng.Columns(1). _SpecialCells(xlCellTypeVisible).Count - 1 _& " of " & rng _
.Rows.Count - 1 & " Registros"
End Sub
Sub CopyFilteredRowsAndHeadingsList1()
Dim wsL As WorksheetDim ws As WorksheetDim rng As RangeDim rng2 As RangeDim Lst As ListObjectLet Application.ScreenUpdating = False
Set wsL = ActiveSheetSet Lst = wsL.ListObjects(1)With Lst.AutoFilter.Range
On Error Resume NextSet rng2 = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _.SpecialCells(xlCellTypeVisible)On Error GoTo 0
End With
If rng2 Is Nothing ThenMsgBox "Sem dados para copiar."ElseSet ws = Sheets.AddSet rng = Lst.AutoFilter.Range
' Copia as Linhas com os seus cabeçalhos.rng.SpecialCells(xlCellTypeVisible).Copy _Destination:=ws.Range("A1")End IfLet Application.ScreenUpdating = True
End Sub
Sub CopyFilteredRowsOnlyList1()
Dim wsL As Worksheet
Dim ws As Worksheet
Dim rng As Range
Dim rng2 As Range
Dim Lst As ListObject
Let Application.ScreenUpdating = False
Set wsL = ActiveSheet
Set Lst = wsL.ListObjects(1)
With Lst.AutoFilter.Range
On Error Resume Next
Set rng2 = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _.SpecialCells(xlCellTypeVisible)On Error GoTo 0
End With
If rng2 Is Nothing Then
MsgBox "Sem dados para copiar."
Else
Set ws = Sheets.Add
Set rng = Lst.AutoFilter.Range
' Copia todas as linhas sem os cabeçalhos
rng.Offset(1, 0).Resize(rng.Rows.Count - 1) _
.SpecialCells(xlCellTypeVisible).Copy _
Destination:=ws.Range("A1")
End If
Let Application.ScreenUpdating = True
End Sub
Sub ShowArrowsList1()
Dim Lst As ListObjectDim c As RangeDim i As Integer
Let Application.ScreenUpdating = FalseSet Lst = ActiveSheet.ListObjects(1)
Let i = 1
For Each c In Lst.HeaderRowRangeLst.Range.AutoFilter Field:=i, _Visibledropdown:=TrueLet i = i + 1Next
Let Application.ScreenUpdating = True
End Sub
