Zkus to možná ještě trochu více a lépe popsat.
Jediné, co dělá tvé makro, je doplnění vzorce do sloupce I. Co má dělat po tomto? Má projít řádky s nezadanými měrnými jednotkami a nulovým nebo záporným výsledným výpočtem, a pomocí InputBoxu umožnit uživateli opravu hodnot? (Píšeš, že se mají zadávat tři hodnoty, jsi si jistý? Nemají se zadávat hodnoty dvě? Ta třetí už je přece ten vzorec...)
P.
Například nějak takto?
Dim i As Long
For i = 8 To 825
If Cells(i, 4) = "" Then
Do Until Cells(i, 4).Value <> ""
Cells(i, 4).Value = InputBox("Zadejte měrné jednotky do buňky " & Cells(i, 4).Address & "!", "Upozornění")
Loop
End If
If Cells(i, 7) <= 0 Then
Do Until Cells(i, 7).Value > 0
Cells(i, 7).Value = InputBox("Opravte výsledný výpočet v buňce " & Cells(i, 7).Address & "!", "Upozornění")
Loop
End If
Next i
Předně děkuji za reakci. Podle mě je potřeba zadat tři hodnoty, a to prázdnou buňku v prázdném sloupci vedle rozpočtu. Dále zadat sloupec s názvem měrných jednotek a dále sloupec s výpočty.
Například :
1 Elektroměrový rozvaděč RE1 ks 1,000 45 889,53 45 889,53 a buňka pro kontrolu
Makro prochází všechny řádky a označí ty s nulovou částkou. InputBox by měl řešit různou pozici výše zvýrazněných položek (sloupce pro MJ a výpočet, počáteční buňku pro kontrolu) v různých rozpočtech.
Príloha by to snáď objasnila...
Kliknul jsi na tlačítko "Kontrola"? ;-)
Pokud bys to chtěl vyloženě řešit přes InputBoxy, tak lze využít ten můj kód...
P.
Tlačítko od elninoslova funguje perfektně. Ale asi to tak úplně neřeší můj problém. Za předpokladu že budu mít jiný rozpočet kde kontrolované hodnoty budou v jiných sloupcích, budu muset změnit hodnoty v makru. Navíc funkci Tlačítko už má elninoslov v rozpočtu pevně dané.
Řešení od Pavluse je jak jsem si to představoval, jenže mi úplně přesně nefunguje. První InputBox by se měl zeptat na sloupec s měrnými jednotkami. Druhý InputBox na sloupec s kontrolovanými výpočty a třetí InputBox na počáteční buňku od které bude vypisovat chybné výpočty.
Snad jsem popsal aspoň trochu srozumitelně.
No jo, ale to jsi nám dříve neřekl :-).
Takže to shrňme:
1.) Makro musí být univerzální, a musí si samo najít, ve kterém sloupci je - doplň názvy ("MJ" a "J.cena [CZK]"?)... Bude alespoň označení těchto sloupců vždy na řádku 16?
2.) "Počáteční buňka, od které bude vypisovat chybné výpočty" - tím myslíš zadání řádku, od kterého bude probíhat kontrola buněk?
Jo a mimochodem, nebylo by lepší to řešit úplně bez maker? Jenom přes vzorce a podmíněné formátování? Například pokud bude prázdné pole množství nebo záporná cena, tak buňka zčervená...
P.
Snažil jsem se to dříve říct, ale asi ne dostatečně srozumitelně.
ad 1) Ano, makro by mělo být univerzální s tím, že bych sám zadal sloupec pro MJ a sloupec pro celkovou cenu. Bohužel, sloupec pro MJ není vždy nazván MJ (Měrná jedn. apod.), taky sloupec pro celkovou cenu bývá nazván různě. První kontrolovaná cena začíná, bohužel, na různých řádcích dle toho na kolika řádcích je hlavička rozpočtu. Jestli se napíše vedle chybného řádku slovo chyba, nebo se vadný řádek zvýrazní, je mi celkem jedno.
Řešit se to může i bez maker jde-li to, šlo mi pouze o to abych nemusel u každého rozpočtu složitě upravovat hodnoty makra a mohl to řešit přes nějaké např. InputBoxy. Kontrolovat by se měl pouze celkový výpočet zda-li není nulový. Kontrola by se měla týkat pouze řádků s vyplněnou měrnou jednotkou.
Děkuji moc za snahu mi pomoct.
32601_priklad.7z
32630_priklad.zip
RSS nejnovější články