MS Excel

Téma: Spuštění kódu pod tlačítkem

Zaslal/a Martin12345678 5.12.2013 1:28

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

Zaslat odpověď >

Martin12345678(5.12.2013 1:53)#016664

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

Příloha: rar

16664_editace-kontaktu.rar (35kB, staženo 25x)

citovat

Opičák(5.12.2013 8:56)#016665

Ani jsem se na to nedíval, ale podle mě mu musíš říct, že chceš pracovat s tím nebo tím Userformem.
Tedy použít třeba Userform1.TextBox1 = ....... pokud jsi "v jiném" userformu.citovat

Opičák(5.12.2013 9:01)#016666

Tak jsem se přecijen podíval. Nemáš pro Combobox1 definovaný RowSource.
tuto část kodu, co máš v Listu1
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

zruš i s Load a bez Load ji dej do Private Sub UserForm_Initialize() pro Uf zaznam.citovat

Dingo(5.12.2013 9:36)#016668

Opičák byl rychlejší, tak jen soubor s řešením. Snad jen poznámka, že další cesta je přes makro v Module, ale to v Initialize Userformu je lepší.

Příloha: zip

16668_editace-kontaktu.zip (36kB, staženo 26x)

citovat

Martin12345678(5.12.2013 15:52)#016673

Díky všem, funguje skvěle:-)citovat

Uživatelské menu

Nejste přihlášen(a)

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.