• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Nemůže být problém v tom, že je vybraná hodnota v combu pro podmínku neviditelná. V combu mám vybranou položku, ale stále podmínka nereaguje, jako by bylo combo nevyplněné.

Pokud to napíšu takto, tak stále nefunguje. Asi jsem pochopil špatně


If TextBox65 = True And ComboBox4 = "" Then
MsgBox "Vyberte rozměr bednění (cihly) pro výpočet spotřeby... (Rozměr zdiva 2)"
Exit Sub
'End If
If ComboBox4 = True And TextBox65 = "" Then
MsgBox "Zadejte rozměr délky a šířky zdi...(Rozměr zdiva 2)"
Exit Sub
End If
End If

Nejrychlejší bude asi použít podmíněné formátování a najít duplicitní hodnoty. Duplicitní hodnoty nějak zvýraznit a zbytek nezvýrazněných čísel budou chybějící čísla ve druhém sloupci.

Zdravím, potřeboval bych pomoci s formulací/pořadím podmínky.

Mám combobox a textbox a potřebuji, aby zde byla daná podmínka : Když je v combu vybraná hodnota, a textbox je nevyplněný, tak se zobrazí msgbox s upozorněním aby byl vyplněn textbox. To samé obráceně, pokud je hodnota v textboxu a combo nevyplněné tak opět msgbox s hláškou. Níže je uvedená podmínka, ale reaguje pouze na to pokud je hodnota napsaná v texboxu. Někde mám něco špatně. Pomůže někdo?

If TextBox65 = True Then
If ComboBox4 = "" Then 'Výběr cihly Zdivo 2
MsgBox "Vyberte rozměr bednění (cihly) pro výpočet spotřeby... (Rozměr zdiva 2)", vbInformation
Exit Sub

Else
If TextBox65 = "" Then
If ComboBox4 = True Then
MsgBox "Zadejte rozměr délky a šířky zdi...(Rozměr zdiva 2)", vbInformation
Exit Sub
End If
End If
End If
End If

No pěkný, taková blbost:-) Díky moc. Jsem přejmenoval form a pak už jsem to nepřepsal v kódu. Díky za nakopnutí:-)

Zde je příloha. Userform spouštím z listu rozpocet. Díky

Zdravím, prosím někoho zkušenějšího, zda by mě nepomohl. V níže uvedeném kódu je asi někde chyba, nebo je špatně napsaný. V UF načítám prostřednictvím několika comboboxů data z listu. Po výběru z načtených hodnot vyskočí chybová hláška method or data member not found . Je však zvláštní, že jeden combobox funguje úplně bez problémů, ale ostatní hlásí chybu a přitom je kód u comba vesměs stejný. Díky za radu

Private Sub ComboBox1_Change() 'Výběr betonu
Sheets("Rozpocet").Range("AZ34") = Betonovani_pasu.ComboBox1.ListIndex + 1
End Sub

Private Sub ComboBox10_Change()
Sheets("Rozpocet").Range("AZ90") = Betonovani_pasu.ComboBox10.ListIndex + 1
End Sub

Private Sub ComboBox11_Change()
Sheets("Rozpocet").Range("AZ59") = Betonovani_pasu.ComboBox11.ListIndex + 1
End Sub

Private Sub ComboBox2_Change() 'Výběr cihly 1
Sheets("Rozpocet").Range("BC7") = Betonovani_pasu.ComboBox2.ListIndex + 1
End Sub

Private Sub ComboBox4_Change() 'Výběr cihly 2
Sheets("Rozpocet").Range("BC21") = Betonovani_pasu.ComboBox4.ListIndex + 1
End Sub

Private Sub ComboBox5_Change()
Sheets("Rozpocet").Range("AZ39") = Betonovani_pasu.ComboBox5.ListIndex + 1
End Sub

Private Sub ComboBox6_Change()
Sheets("Rozpocet").Range("AZ51") = Betonovani_pasu.ComboBox6.ListIndex + 1
End Sub

Private Sub ComboBox8_Change()
Sheets("Rozpocet").Range("AZ70") = Betonovani_pasu.ComboBox8.ListIndex + 1
End Sub
Private Sub ComboBox9_Change()
Sheets("Rozpocet").Range("AZ80") = Betonovani_pasu.ComboBox9.ListIndex + 1
End Sub
Private Sub UserForm_Initialize()
'Načtení položek/zdroj pro Comba
ComboBox1.RowSource = "Položky!B812:B830"
ComboBox2.RowSource = "Položky!B8:B30"
ComboBox4.RowSource = "Položky!B8:B30"
ComboBox5.RowSource = "Položky!B410:B415"
ComboBox6.RowSource = "Položky!B416:B423"
ComboBox11.RowSource = "Položky!B1616:B1617"
ComboBox8.RowSource = "Položky!B1214:B1230"
ComboBox9.RowSource = "Položky!B1214:B1230"
ComboBox10.RowSource = "Položky!B812:B830"
End Sub
[/code]

Ještě jednou díky

Jen ještě malý dotaz...místo názvu (A B C) sloupců jsou zde číslice. Je toto nutné pro funkci seznamu? Popřípadě jak toto vrátit zpět na názvy. Toto jsem ani nevěděl, že lze nastavit.

Klobouk dolu pánové. Díky moc za pomoc, pracuje to výborně.

Pravé tlačítko myši je super nápad, jen to sám nezrealizuji. Jediné co mě napadlo, je přiřadit dané funkce pod připravená tlačítka.
Pomohl bys s tou místní nabídkou? Jinak co jsem zkoušel, tak to maká perfektně

JJ, děkuji, již jsem si to v kódu přečetl. Ještě tedy, půjde tyto funkce přiřadit ke tlačítkům.S tímto souborem bude pracovat více lidí a hlavně mám na klávesnici Delete a Insert pod jednou klávesou :-(

Díky za radu, mrknu na to a vyzkouším.
TO kp57, díky, podívám se na to

Zdravím,
opět bych potřeboval pomoci s mým problémem.
Kompletní zadání problému je napsané přímo v sešitu u formuláře. Mám tabulku, formulář pro zpracování cenových nabídek. Potřeboval bych funkci pro posun řádků nahoru a dolu a pro přidání nového řádku. Zde není možné z důvodu fixní velikosti formuláře a vzorců, přidávat řádky klasicky, ale potřeboval bych posouvat hodnoty na řádcích směrem nahoru a dolu. Je to klasická editace položek, tak jako u klasických účetních a kalkulačních programů. Je toto reálné a pomohl by mě někdo s touto funkcí? Děkuji za každou pomoc.Martin

Právě, že sám ještě nevím jaká bude finální podoba toho formuláře a co do toho kódu zadat. Vyřeším to tím pomocným listem a je to:-). Ale moc jsi mě pomohl. Díky

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse