Počet hledané hodnoty ve sloupci

Dim x As Long
x = Range("L" & Rows.Count).End(xlUp).Row
If x < 2 Then x = 1 'Ošetření prázdného sloupce kontrola = Application.WorksheetFunction.CountIf(Range("L1:L" & x), "Not_in_Agenda") endif

Příspěvek byl publikován v rubrice Excel notes, VBA. Můžete si uložit jeho odkaz mezi své oblíbené záložky.