Příspěvky uživatele

Zde je příklad. Na listu2 je tlačítko které otevře UF a z něho se aktivuje formulář pro editaci kontaktu.
Potřeboval bych, aby se do něj načetli data z Listu1. Prosím tedy o pomoc....

Zdravím...
Nevím zda se mi to podaří vysvětlil, ale potřeboval bych následující.
Na listu1 mám tlačítko, co spouští níže uvedený kód. Po kliku se otevře UF a načtou se kontakty.To je OK.
Potřeboval bych prostřednictvím jiného UF spustit kód co je pod tlačítkem na listu1. Jde to nějak, popřípadě zda je to reálné udělat jiným způsobem?
Problém je následující, pokud ten form (co se spouští z listu) aktivuji z jiného UF i když jsem na tom samém listu, tak se mě do něj kontakty nenačtou. Nevím proč

Dim konec As Long
Const start As Byte = 6

Private Sub CommandButton1_Click()
Load zaznam

konec = start
Do Until Worksheets("List1").Range("A" & konec) = "" 'načítání dat do comboboxu - ID
zaznam.ComboBox1.AddItem Worksheets("List1").Range("A" & konec).Value
konec = konec + 1
Loop

zaznam.Show
End Sub

Díky za tipy. Už se stím mazlím pár hodin, uplatňuji logiku, nebo pokus/omyl, ale nedám to asi, problém je ten, že potřebuji pro každej prvek (CheckBox, TextBox a ComboBox) mít svůj MsgBox text, což mě nejde uplatnit a nervíky už mě pomalu začínají zvedat tlak. Zkoušel jsem to uplatnit na Dingovo řešení, ale neúspěšně. Už jsem teda dva dny nespal, tak mě to vůbec nemyslí:-(

Zdravím, bojuji s více podmínkama, které ověřují zda jsou zadány potřebné údaje a po kontrole se potřebuji přepnout na jiný form, ale nemůžu přijít na to, jak to udělat, aby se vše zkontrolovalo a pokud je splněno tak přepnout na další form. Pomůže někdo?

If ComboBox1 = "" Then
MsgBox "Vyberte typ linky...", vbInformation
End If
If CheckBox1 = False Then
If CheckBox2 = False Then
MsgBox "Vyberte rozměr... ", vbInformation
End If
End If
If CheckBox1 = True Then
If TextBox1 = "" Then
MsgBox "Zadejte délku...", vbInformation
If TextBox2 = "" Then
MsgBox "Zadejte šířku...", vbInformation
If TextBox2 = "" Then
MsgBox "Zadejte výšku...", vbInformation
End If
End If
End If
End If
Vypocet.Show ' Sem potřebuji přepnout pokud je kontrola splněna

Děkuji

Díky,

můžu poprosit ještě o část kódu, který mě načte údaje z buňky do TextBoxu?

Zdravím...
Bojuju teď s TextBoxem v UF. Lze nějak načíst do TextBoxu hodnotu buňky na listu, která při otevřeném UF mění své hodnoty? Jakože aby v TextBoxu byla zobrazena stále aktuální hodnota buňky bez nutnosti zavírat a otevírat UF?
Děkuji moc za tip...

Edit: Možnost odkazovat se na buňku pomocí ControlSource jsem vyloučil, jelikož buňka obsahuje vzorec a dochází tak k jeho vymazání po zavření UF

Jojo, funguje perfektně. Děkuji moc

Ještě tedy mám jednu maličkost a už opravdu poslední k tomuto tématu. Ve formuláři mám makro, které skryje prázdné řádky v rozmezí 24 až 124, ale skrývá od posledního obsazeného řádku. Potřeboval bych, aby skrylo i prázdné řádky mezi obsazenými. Šlo by to nějak poupravit aby to skrývalo vše prázdné v daném rozmezí + za posledním obsazeným řádkem nechalo viditelný jeden řádek neobsazený? Je to jen pro doladění pro tiskový výstup, aby to šlo vše pěkně za sebou.

Private Sub CommandButton2_Click()
Dim rRowsToHide As Range
Dim i As Integer
For i = 124 To 24 Step -1
If IsEmpty(Cells(i, 3)) And IsEmpty(Cells(i - 1, 3)) Then
If rRowsToHide Is Nothing Then
Set rRowsToHide = Cells(i, 3)
Else
Set rRowsToHide = Union(rRowsToHide, Cells(i, 3))
End If
Else
Exit For
End If
Next
If Not rRowsToHide Is Nothing Then
rRowsToHide.EntireRow.Hidden = True
End If
Set rRowsToHide = Nothing
End Sub

Díky za pomoc a za odpověď.
Rozmezí ve formuláři je fixní a nic se měnit nebude, maximálně časem přidám řádky, takže takhle je to pro mě vyhovující, zatím:-)

Ok, už jsem na to asi přišel. Nejprve se zjistí kolik se bude kopírovat řádků a pak se ověří dostupné řádky v Nabídce a pak se import přeruší, nebo pokračuje. Chápu to správně?

No tak to je uplně pecka, díky.
Jen mě zajímá, kde si v kódu specifikoval minimální počet volných řádků pro import, v níže uvedené podmínce není zmínka o 10 řádcích, nějak na to nemůžu přijít a rád bych to pochopil:-) Díky za odpověď.
If 124 - posled < posled_im - 24 Then
MsgBox "Načítaných dat je víc než se vejde do nabídky"
Range("A1").Select
Exit Sub
End If

Díky moc Dingo,
otestoval jsem to a nyní je to o dost rychlejší což je úplně super:-). Jen musím vymyslet nějakou stopku, aby se vkládaná oblast nepřelézala za hranici formuláře, nebo budu muset manuálně zkontrolovat zda se zdrojová oblast do furmuláře ještě vejde, což bude trošku oříšek to přepočítávat.
Napadlo mě, ale asi to sám nedám, převážně se bude vkládat ze zdroje 10 položek max, šlo by tedy zjistit na začátku importu kolik je volných řádků ve formuláři Nabídka a pokud by to bylo méně než deset, tak že by se celý import přerušil s hláškou př. "Ve formuláři již není místo pro zápis"? Je to reálné

Děkuji za typ, ale nepodařilo se mě uplatnit ani jedno řešení. Pravděpodobně vkládám nějak špatně. Hotové řešení od Dinga jsem vložil, ale nejde. Prosím o kontolu a doladění...
Dále jsem u tohoto mého kódu narazil na jeden zásadní problém. Toto je zkušební soubor, ale v ostré firemní verzi mám oblast nastavenou na 500 řádků a překopírování pouhých 200 položek zabere 12minut(Možná to bude počítačem, ale 4MB RAM a Visty by to měli pobrat v pohodě, ale spíše to bude velikostí sešitu cca 25MB, nevím). Nešlo by to vyřešit tím, že by se v listu Nabídka_im(zdroj) vybrala/označila pouze část formuláře kde jsou hodnoty a to od 1 řádku(fixně) formuláře do posledního obsazeného řádku (číslo posledního řádku se bude měnit) ve formuláři a tento výběr by se následně vložil do listu Nabídka (cíl) jako celek?
Možná si říkáte, proč neskopírovat celý formulář a nevložit jej do identického formuláře na jiném listu. Toto jsem zkoušel, jenže na cílovém listu mám jiné makro, které skrývá prázdné řádky a pokud to tam nakopíruji, tak se i prázdná buňka tváří jako obsazená a to další makro už nejde uplatnit:-(
Bude to asi oříšek, ale budu rád za každý nápad jak tuto procedůru urychlit. Omlouvám se za román:-)Díky moc M.

Palooo, bohužel nevím kam zařadit a co nahradit:-(

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje