MS Excel

Inak povedané, nie je možné spoľahlivo určiť, v ktorom liste sa bude skúmať aká oblasť. Ak by ste mal tie oblasti vždy rovnaké, tak napr.:
Sub Kontrola()
Dim SH As Worksheet, Polozka As Range, Pocet As Byte
For Each SH In Worksheets
With SH
Pocet = 0
For Each Polozka In .Cells(2, 2).Resize(13, 1).Cells
Pocet = Pocet + ((Not IsEmpty(Polozka.Offset(0, 1).MergeArea.Cells(1))) And 1)
Next Polozka
Select Case Pocet
Case 13: .Tab.Color = vbGreen
Case 12: .Tab.Color = vbYellow
Case Else: .Tab.ColorIndex = xlColorIndexNone
End Select
End With
Next SH
Set Polozka = Nothing: Set SH = Nothing
End Sub
Ak tie oblasti rovnaké nemáte, dodajte, čo je smerodajné, pre určenie počtu riadkov. Napr. prvý vzorec v niektorom stĺpci ? Alebo niekde v liste je počet položiek ? ...citovat

Ahoj, trochu sem upravil elninoslovuv kód. Na každém listě se zjišťuje poslední vyplněný řádek ve sloupci B a podle toho se nastavuje kontrolovaná oblast.
Vyzkoušej.citovat

Predpokladajme, že za splnené pokladáme ak je v stĺpci "splněno" napísané čokoľvek - teda bunka nieje prázdna. Lebo inak, ak by tam mohli byť aj iné texty popísané, ale neznamenali by, že je splnené, tak by zisťovania neznámeho dátumu v neznámom počte ks, neznámeho formátu, neznámo čím oddelených medzi neznámym iným textom, bolo takmer nemožné.citovat

Pokud by tam nebyly sloučené buňky asi bych to zvládnul.. (Not IsEmty A1 * Not IsEmty A2*Not IsEmty A2) se musí rovna 1 a pak je to OK. //ideový navrh :-) //
ALE ty sloučené...citovat

Jednoduchší variant, počíta rozdiel medzi vyplnenými bunkami "por číslo" a "splněno".citovat