Identifiera sista synliga cellen i
filtrerad lista


I detta tips visas hur vi kan hitta den sista synliga cellen i en filtrerad list. Två tekniker demonstreras och utifrån god kalkyldesign så ska aldrig annan data placeras under en lista/tabell.

 

Om ett felmeddelande erhålls vid kopiering till VBA-modul så läs mer här»
 

 

(© 2002 - 2003 All rights Colo - Used by permission)

 Option Explicit

 Sub Sista_Synliga_Cell_Filtrerad_Lista()

   Dim wbBook As Workbook

   Dim wsSheet As Worksheet

 

   Set wbBook = ThisWorkbook

   Set wsSheet = wbBook.Worksheets("Blad1")

 

   MsgBox wsSheet.Cells(Rows.Count, "A").End(xlUp).Address

 End Sub

 

Sub Sista_Synliga_Cell_Filt_Lista()

   Dim wbBook As Workbook

   Dim wsSheet As Worksheet

 

   Set wbBook = ThisWorkbook

   Set wsSheet = wbBook.Worksheets("Blad1")

 

   MsgBox wsSheet.UsedRange.SpecialCells _

         (xlCellTypeVisible).SpecialCells(xlCellTypeLastCell).Address

End Sub