Příspěvky uživatele


< návrat zpět

Strana:  « předchozí  1 2 3 4 5 6 7 8 9   další » ... 20
Pomoct s podmínkou (2.10.2014 19:40)

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é.

Pomoct s podmínkou (2.10.2014 15:23)

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

porovnání záznamů v excelu. (2.10.2014 14:58)

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.

Pomoct s podmínkou (2.10.2014 14:33)

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

Chyba v kódu (11.9.2014 20:36)

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í:-)

Chyba v kódu (11.9.2014 19:51)

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

Chyba v kódu (11.9.2014 19:06)

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]

Posun řádků (3.9.2014 22:15)

Ještě jednou díky

Posun řádků (3.9.2014 21:57)

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.

Posun řádků (3.9.2014 21:22)

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

Posun řádků (1.9.2014 22:56)

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ě

Posun řádků (1.9.2014 22:40)

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 :-(

Posun řádků (1.9.2014 22:21)

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

Posun řádků (31.8.2014 21:47)

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

Podmínka (11.9.2013 16:58)

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


Strana:  « předchozí  1 2 3 4 5 6 7 8 9   další » ... 20

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje