excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: msgbox dle podmínky
MS Excel
Téma: msgbox dle podmínky 
Zaslal/a radekb 29.9.2010 20:16
Ahoj, tohle bude asi jednoduchý, ale na mě ne :o).
Potřebuji po stisku tlačítka zkontrolovat hodnoty v jednom sloupci a jestliže se tam nachází jedno nebo i více čísel mezi 0 a 60 pak spustit msgbox s nějakou hláškou(třeba POZOR).
Msgbox by měl mít dvě ovládací tlačítka. Třeba O.K. pro zavření msgboxu a ZKONTROLUJ, které mi otevře List "Záruky".Díky za řešení - Radek
Ahoj, po stisku tlačítka píše že makro není k dispozici.
Ani v modulech jsem nic nenašel
a ani skript na msgbox. Tak moc moc prosím o opravu.citovat
Ani v modulech jsem nic nenašel
a ani skript na msgbox. Tak moc moc prosím o opravu.citovatAh, safra... nějaká chyba v uložení sešitu. Teď už by to snad mělo být ok 
citovat
citovatVynikající. Sice nechápu 
ale funguje. Budu se muset móc móc učit. Smekám a díky....radekcitovat
ale funguje. Budu se muset móc móc učit. Smekám a díky....radekcitovatJeště jednou ten samý soubor, pouze je VBA kód doplněn o komentáře, kde popisuju co kod dělá. Snad to pomůže pro pochopení.
Příloha: 
2590_sesit1_2003.zip (17kB, staženo 19x)
citovat2590_sesit1_2003.zip (17kB, staženo 19x)Díky za vysvětlení kódu. Trošku mě to hlava už začíná brát. Ale po důkladnějším otestování se vyskytli chybičky, které asi sám neopravím -
1.nefunguje podmínka, když se ve sloupci nenachází žádné číslo v intervalu 1-60(vyplnil jsem tři řádky číslem 100 a zobrazil se chybný msgbox"Ve sloupci se vyskytlo......" a po stisku volby "ano" nebo "ne" se aktivuje sešit"záruky"
2.nefunguje na poslední číslo ve sloupci(ale to až tak nevadí - vložím na začátek makro pro seřazení hodnot od nejmenší do největší)
No a ještě malou radu:
- kde přepsat, když chci nastavit toto makro pro jiný sloupec? Změna Range("A:A") na např. Range("H:H")nefunguje.
Doufám, že jednou budu moct taky někomu takhle pomáhatcitovat
1.nefunguje podmínka, když se ve sloupci nenachází žádné číslo v intervalu 1-60(vyplnil jsem tři řádky číslem 100 a zobrazil se chybný msgbox"Ve sloupci se vyskytlo......" a po stisku volby "ano" nebo "ne" se aktivuje sešit"záruky"
2.nefunguje na poslední číslo ve sloupci(ale to až tak nevadí - vložím na začátek makro pro seřazení hodnot od nejmenší do největší)
No a ještě malou radu:
- kde přepsat, když chci nastavit toto makro pro jiný sloupec? Změna Range("A:A") na např. Range("H:H")nefunguje.
Doufám, že jednou budu moct taky někomu takhle pomáhat
citovatNedostatky z bodu 1 a 2 byly opraveny.
Co se týče sloupce, tak nestačí změnít pouze .range("H:H"), tato metoda vrací pouze počet neprzádných buněk v tomto sloupci, je třeba také v kodu změnit podmínky, kde se objevuje: Cells(radek, 1)
Cells(radek, sloupec) je odkaz na buňku na příslušném řádku a sloupci. U tebe by jsi musel tedy změnit .Range("H:H") a potom Cells(radek, 8)citovat
Co se týče sloupce, tak nestačí změnít pouze .range("H:H"), tato metoda vrací pouze počet neprzádných buněk v tomto sloupci, je třeba také v kodu změnit podmínky, kde se objevuje: Cells(radek, 1)
Cells(radek, sloupec) je odkaz na buňku na příslušném řádku a sloupci. U tebe by jsi musel tedy změnit .Range("H:H") a potom Cells(radek, 8)
citovat
Tak, již téměř dokonalé. I to seřazení se mi povedlo. Snad poslední věc - Reakce při volbě tlačítka "NE" je teď, přeskok na list "zaruky" bez obarvených buněk. Potřebuju aby se nic neprovedlo, tedy zůstat v listě kontrola. Zkusil jsem to sám, což mi funguje ale až po dvakrát stisknutém tlačítku. Próóč
If test = 0 Then 'podmínka, která se ptá, zda je nějaké číslo k opravě
If vbNo = MsgBox("Ve sloupci se vyskytlo jedno, nebo více čísel v intervalu 1-60, chce je nyní opravit?", vbYesNo) Then
Sheets("kontrola").Select
End If
If vbYes = MsgBox("Ve sloupci se vyskytlo jedno, nebo více čísel v intervalu 1-60, chce je nyní opravit?", vbYesNo) Then
Stačí prosím opravit část kódu. Díkeccitovat
If test = 0 Then 'podmínka, která se ptá, zda je nějaké číslo k opravě
If vbNo = MsgBox("Ve sloupci se vyskytlo jedno, nebo více čísel v intervalu 1-60, chce je nyní opravit?", vbYesNo) Then
Sheets("kontrola").Select
End If
If vbYes = MsgBox("Ve sloupci se vyskytlo jedno, nebo více čísel v intervalu 1-60, chce je nyní opravit?", vbYesNo) Then
Stačí prosím opravit část kódu. Díkeccitovat
Na vyhodnocovani stisku talcitek v msgboxu je lepsipouzivat Select Case (je to rychlejsi i prehlednejsi), pouziva se takto:
Vysledek = MsgBox("prompt", vbYesNo, "title")
Select Case Vysledek
Case vbYes
'kod pri stisku ANO
Case vbNo
'tady nema byt zadny kod
End Selectcitovat
Vysledek = MsgBox("prompt", vbYesNo, "title")
Select Case Vysledek
Case vbYes
'kod pri stisku ANO
Case vbNo
'tady nema byt zadny kod
End Selectcitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Aktivní diskuse
Relativní cesta - zdroje Power Query
Alfan • 25.4. 10:49
Relativní cesta - zdroje Power Query
elninoslov • 25.4. 10:47
Relativní cesta - zdroje Power Query
Alfan • 25.4. 10:40
Relativní cesta - zdroje Power Query
Alfan • 25.4. 9:44
Relativní cesta - zdroje Power Query
elninoslov • 25.4. 9:02
Vynásobit hodnoty kurzem - Power Query
elninoslov • 25.4. 8:40
Relativní cesta - zdroje Power Query
Alfan • 25.4. 8:04
RSS nejnovější články