Příspěvky uživatele

Díky:-)

Díky, avšak toto makro vyřeší pouze jeden volný řádek. Pokud mám ve formuláři 4 prázdné, tak je to ignoruje.
Nedokážu předem říci, kolik řádků bude mezi obsazenými prázdných. Šlo by makro nějak univerzálně přizpůsobit?
Jinak je to super.

Zdravím,
chtěl bych se zeptat zda by makrem šlo následující:
Ve formuláři mám vyplněné řádky mezi kterými můžou být i řádky nevyplněné. Potřeboval bych, aby se veškeré vyplněné řádky posunuly na horu na místo těch prázdných. Nelze to však řešit skrytím prázdných řádků ani jejich odstraněním. Poradí někdo makro, které by takto dokázalo zredukovat formulář? Díky

Díky, vyzkouším.
Při otevření UF je combo nevyplněné a pokud proběhne výběr a bede v něm zobrazený text, tak musí být vyplněn i počet kusů. Pokud ne, tak se zobrazí upozornění.

Zdravím,
snažím se udělat kontrolu vyplněných údajů v UF, ale nějak nemohu přijít na to jak napsat: když je vyplněný Combobox1 a u něj v Textboxu1 není zadáno množství, tak aby se zobrazila hláška. Níže uvedený kód by měl logicky fungovat, ale nejde. Kde mám chybu? Díky.
If ComboBox1 = True Then 'Revizní dvířka
If TextBox1 = "" Then
MsgBox "Zadejte počet ks revizních dvířek... ", vbInformation
Exit Sub
End If
End If

Moc děkuji:-)

Už jsem to vyřešil. Nevím proč, ale když vypnu automatický přepočet listu, tak vše funguje jak má.
Nevíte zda jde dát příkaz pod křížek s kterým se zavírá userform, popřípadě, zda ho lze nějak zablokovat.
Musím při otevření UF vypnout přepočet a při zavření UF jej zase zapnout. Když UF uzavřu křížkem, tak budu mít stále vypnutý přepočet a to není dobré:-). Díky za radu...

Zdravím,
mám problém s načtením údajů do comboboxu.
V UF Mám CBox, který čerpá data z listu. Oblast se v Combu zobrazí a po výběru ze seznamu se seznam sroluje a Combo zůstane nevyplněné. Vybraná hodnota se zobrazí až po té co kliknu kamkoliv do UF. To samé je při změně hodnoty v Combu, vyberu, seznam se sroluje a zůstane zobrazena předchozí hodnota, jakmile kliknu jinam, combo se aktualizuje.
V jiném UF to však funguje bez problémů. Combo je umístěné v multipage, ale to si myslím, že s tím asi souviset nebude.
Nemáte někdo podobnou zkušenost? Díky

Díky misocko, to je úplně super:-)

To ano, ale pokud budu chtít nahradit stávající položku novou položkou, tak potřebuji novou položku vytáhnout z připravené databáze jídel. Jak je tomu v mnou připraveném UF Formular_menu, kde jsem myslel, že půjde nějak označit textbox (tím vlastně nějak specifikovat kam se nová položka bude ukládat) a kliknout na tlačítko "Nahradit položku" a otevře se form pro výběr položky z databáze a po vybrání se nová položka uloží na místo té stávající...

Díky za tuto možnost, ale právě, že potřebuji převážně přepisovat stávající položku novou položkou výběrem z databáze. V UF kde jsou položky načteny do textboxů půjde položku editovat přímo v textboxu, tzn jí poupravit a případně se manuálně přepíše novou položkou, to je první možnost, nebo bude položka vložena z databáze přímo na list jako druhá možnost. S názvem se z databáze přepíše i cena a dph. Nyní koukám, že jsem do UF zapoměl dát sloupec cena a dph...to se omlouvám.

Zdravím...
Asi zde mám jeden nevyřešitelný problém. Bojím se že to nepůjde zrealizovat, ale zkusím Vás požádat o pomoc:
Potřebuji přepsat vybranou položku na listu prostřednictvím UF.
V listu nabídka je seznam položek. V userform je totožný seznam do kterého jsou položky z listu Nabídka načteny pomocí ControlSource.
Nyní bych potřeboval v UF nějakým způsobem označit/ vybrat textbox (= řádek na listu) který se bude přepisovat. V následujícím kroku se klikne na tlačítko "nahradit položku" a zde se ze seznamu vybere položka nová a po kliku "vložit" se přepíše řádek na listu Nabídka, kterému odpovídá textbox v UF. Nevím zda jsem to napsal srozumitelně, ale více je to popsáno v přiloženém příkladu.
Určitě je i vhodnější řešení než jaké jsem v UF navrhl...tak budu rád, za jakékoliv řešení a pomoc.

Měl jsi pravdu, neotestoval jsem všechny možnosti, jen první načtení výsledku a následná změna výsledku se již neaktualizovala...

Zdravím...
Lze nějak omezit zápis do comboboxu tak aby nebyl omezen výběr ze seznamu? Když se omylem překliknu a napíšu tam třeba číslovku, tak mě to vyhodí hlášku a schodí mě to userform. Zkoušel jsem to zamknout, ale tím vyřadím celý combobox.
Pod combem mám tento kód co odkazuje na textovou oblast.
ComboBox1.RowSource = "Položky!B410:C809"

Funguje perfektně.
Jak je důležitá ta část kódu na listu?
Private Sub Worksheet_Change(ByVal Target As Range)
'Userform1.TextBox1.Value = Application.Sum(Sheets("List1").Range("L24:L93"))
End Sub

Funguje mě to totiž bez toho na Office 2007, ale teď nebudu mít možnost to vyzkoušet na 2003...

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje