VBA Excel : Menghitung jumlah row yang ter filter, count row filtered

Sub hitunguntukproses

Dim X As Long

X = ActiveSheet.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count - 1

For Y = 0 To X Step 1

Call proses

Next Y

End sub

_____________________________________________________________________

IMPORTANT - This email and any attachments may be confidential and privileged. 

If received in error, please contact Thiess and delete all copies.  You may not

rely on advice and documents received by email unless confirmed by a signed Thiess

letter.  This restriction on reliance will not apply to the extent that the above email

communication is between parties to a contract and is authorised under that contract.

Before opening or using attachments, check them for viruses and defects.  Thiess'

liability is limited to resupplying any affected attachments. THIESS PRIVACY STATEMENT