MS Excel

Nevím, jestli je pro čtenáře k nepochopení vlastní požadavek nebo jeho účel.
Dejme tomu, že mám dodělat rozpracovaný formulář, který na základě vyplněných údajů má provádět různé výpočetní analýzy. Ve skrytých sloupcích jsou pomocné výpočty. Výsledky některých z nich, v podobě odkazu na ně, jsou také použity pro Ověření dat u buněk, které vyplňuje uživatel. Ověření dat je nastaveno proto, aby uživatel nemohl vložit nekorektní hodnotu. Jde o docela dlouhodobý vývoj sofistikovaného formuláře, takže je reálná možnost, že v rámci pomocných výpočtů existují nyní buňky, které již nejsou potřeba, tzv. byly překonány třeba jiným vývojovým řešením, a bylo by možné je odstranit. Nejprve je ale nutné ověřit, zda na ně skutečně není někde odkazováno. Zda se neuplatňují někde v jiných vzorcích, lze jednoduše ověřit pomocí Závislosti vzorců ("předchůdci"/"následníci"). Ale závislost, která je navázaná v nastavení funkce "Ověření dat" jednoduše zjistit nelze.
Je teď můj záměr pochopitelnější?citovat

Jestli dobře chápu, tak máš například buňku A1, kterou bys rád smazal, ale před tím si chceš ověřit, že se na ní něco neodkazuje.
U vzorců to je jednoduché, ale tebe by zajímalo, jestli není součástí ověření dat u jiné buňky.
Což bude docela oříšek, ověření může mít jakákoliv buňka, takže bys musel jít buňku po buňce a ověřovat má-li ověření.
Pokud ano, tak projít vzorec ověření a hledat jestli se v něm daná buňka nevyskytuje, nejen přímo, ale i formou oblasti. Ověření může být i formou pojmenovaných názvů, kdy bys musel hledat odkazy daných názvů. No a nakonec existuje i něco jako nepřímé odkazy a tam už si to ani představit neumím.
Ale tak třeba tady bude někdo moudřejší :-)
M@citovat

Po tom "zjednodušení" mě napadlo, vytvořit si pomocný list.
Pak makrem vyhledat všechny buňky s ověřením, projet je a vzorec ověření zapsat na tento pomocný list, vedle něj pak vždy uvést buňku ve které se ověření nachází.
Když pak klikneš na buňku kterou chceš smazat a dáš si najít následníky, tak by to mělo najít i buňky z tohoto listu, kde pak zjistíš, o kterou buňku se jedná.

Jen takový tip :-)
M@citovat

Nezkusil, ale na základě tvého příspěvku už pak teda jo a v pohodě :-) ...
Public Sub Najdi()
Dim Activesh As String
Dim PomocnyList As Worksheet
Dim rd As Single
Activesh = ActiveSheet.Name
Set PomocnyList = Sheets.Add
PomocnyList.Name = "Pomocny"
PomocnyList.Range("A1:B1") = Split("Vzorec;Buňka", ";")
rd = 2

Sheets(Activesh).Activate
ActiveSheet.Cells.SpecialCells(xlCellTypeAllValidation).Select
For Each cell In Selection
PomocnyList.Cells(rd, 1).Formula = cell.Validation.Formula1
PomocnyList.Cells(rd, 2) = cell.Address
Next
End Sub
Jen jsem narazil na možný problém a to že ve vzorci v ověření může být čistě odkaz na buňky, bez listu, což pokud je (jako v mém příkladu) vypíšeme do jiného listu, tak to fungovat nebude, pak by se muselo řešit výpisem do stejného listu do nějaké nepoužívané oblasti.
Nicméně je to jen tip
M@citovat

Pak by to nějak mohlo fungovat v rámci stejného listu, s tím že oblast pro výpis jsem nastavil na AA:AB, což lze změnit dle počtu používaných sloupců. Tyto pomocné pak lze smazat.

Public Sub Najdi()
Dim rd As Single
Range("AA1:AB1") = Split("Vzorec;Buňka", ";")
rd = 2

ActiveSheet.Cells.SpecialCells(xlCellTypeAllValidation).Select
For Each cell In Selection
Range("AA" & rd).Formula = cell.Validation.Formula1
Range("AB" & rd) = cell.Address
rd = rd + 1
Next
End Sub

M@citovat