MS Excel

Dobrý den, rád bych požádal o pomoc někoho zkušenějšího než jsem já.

Mám sestavené makro, které bere data ve vyplněném formuláři a ukládá je do souhrnné tabulky v jiném listě. Formulář musí být vyplněn správně a nesmí docházet k chybám, proto mám seznam podmínek, které kontrolují, zda je vše správně vyplněné.

To co bych potřeboval je, přidat před makro podmínku: Pokud je kupříkladu v buňce A1 hodnota/text "ANO" tlačítkem bude možné makro spustit a provést danou operaci. V případě že buňka A1 obsahuje "NE", makro se nespustí a na uživatele vyskočí nějaká hláška, která ho upozorní že je někde chyba, nebo něco zapomněl vyplnit a operace neproběhne.

Předem moc děkuji všem, kteří mi mohou pomoci vyřešit tento problém.

Zaslat odpověď >

Stalker(18.3.2024 18:34)#056347

Např.
If List1.Range("A1").Value = "NE" Then
MsgBox "Neplatná data", vbCritical, "CHYBA"
Exit Sub
End If

Hlášku a list si uprav podle sebe.citovat

MilanKop(18.3.2024 18:51)#056348

Stalker: Mnohokrát děkuji, přesně tohle jsem potřeboval.citovat

elninoslov(19.3.2024 9:19)#056350

"MilanKop" napsal/a:

...nebo něco zapomněl vyplnit...

No veď práve. Pretože to býva často Výberový zoznam "ANO", "NE", ktorý umožňuje nezadať nič (alebo bunku zmazať), tak by som netestoval existenciu "NE" ale naopak neexistenciu "ANO". Aby sa za chybu považovalo aj nevyplnenie/zmazanie bunky.
If List1.Range("A1").Value <> "ANO" Thencitovat

MilanKop(19.3.2024 18:18)#056359

elninoslov:

To je v pohodě, mám tam 13x podmínek a jak jedna nesedí nebo pole není vyplněno, tak to vrací NE. Ale stejně díky zapíšu si to, může se to hodit pro jiné projekty. ;-)citovat

Téma: Podmínka pro spuštění makra

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje