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

MS Excel

Téma: neumim makra

Zaslal/a lajos 12.4.2012 20:46

Zdravím,
tak zdravotní stav opet dovolil neco delat a proto bych opet rád požádal o Vaši pomoc.V sešitě na listě KLIENT a zadám data o klientovi.Po ověření klienta mu pošlu fakturu.Na listu FAKTURA je UserForm od kterého bych chtěl toto:Ve formuláři v řádku klient bych potřeboval,jestli by bylo možné vyhledávat v jakémsi seznamu klientů(nejlépe zřejmě z prvního listu)podle jména a aby makro dosadilo i další atributy k danému klientovi jako je adresa,rodné číslo atd.Po uložení by se data z faktury zapsala do listu ARCHIV..
Opět to nechci celé na zlatém podnose,MISOCKO ví
Snad je to pochopitelné.
Děkuji za Vaši pomoc

Příloha: 8011_test111.rar (50kB, staženo 19x)

Uzamčeno - nelze přidávat nové příspěvky.

---

Strana:  1 2 3   další »

misocko(13.4.2012 20:26)#008025

ahoj

tak bez zlateho podnosu, skus

Příloha: 8025_pomoc-combobox.zip (12kB, staženo 20x)

citovat

lajos(14.4.2012 1:55)#008031

Misocko,děkuju.Jen mi nejde,aby to naslo do techTextboxu.Ten UserForm mam na třetím liste a data by to mělo brát z prvního listu.Co mam špatně?citovat

misocko(14.4.2012 14:54)#008034

jaj, treba tam doplnit do
T1.Value = Cells(UserForm1.C1.ListIndex + 2, 3).Value

Sheets(x). pred to Cells aby vedel na ktorom liste su tie bunky (to x je cislo listu, alebo tam mozes dat nazov listu v uvodzovkach)citovat

lajos(14.4.2012 15:38)#008036

Misocko,mam to tam,ale nedaří se

Příloha: 8036_pracovni.rar (77kB, staženo 19x)

citovat

misocko(14.4.2012 16:10)#008039

T1.Value = Sheets(1).Cells(UserForm1.C1.ListIndex + 2, 6).Value

mas tu napisane UserForm1 ale Ty pracujes s Userform4 - prepis na 4 a uz to pojde, drobnosti a kolko narobia problemovcitovat

lajos(14.4.2012 19:42)#008047

Ahoj Misocko,mam s toho hlavu jak pátrací balon.Tam,co jsem chtěl,tak funguje,ale když to chci naroubovat do dalšího listu,tak jsem zas víš kde a nefunguje mi to.V listu Dopis1 v userboxu je textbox jmeno a příjmení.Chci,aby si to zase vzalo(resp.vyhledalo) s prvního listu a zase doplnilo další náležitosti.Hlava mi to nebere
Podíval by ses na to?

Příloha: 8047_test222.rar (61kB, staženo 19x)

citovat

misocko(14.4.2012 20:10)#008048

Private Sub UserForm_Initialize()
'naplnenie comboboxu
r = 2
Do Until Sheets(1).Cells(r, 2) = ""
C1.AddItem Sheets(1).Cells(r, 2).Value
r = r + 1
Loop
End Sub


aktivujes userform 2, mas na nom combobox s nazvom C1 ? - nemas, co chces naplnit (C1.AddItem Sheets(1).Cells(r, 2).Value)? . ale v poho, pomaly sa k tomu dopracujeme.

inac vies krokovat makro? lahsie sa dopracujes k tomu co sa deje. Takze v editore VBA prides na makro ktore spusta userform (Userformx.show), kliknes tam na prvy riadok Sub.........., a stlacas F8, ked tam mas nejaku chybu tak zistis na ktorom riadku sa to zastavi a lahsie sa ti detekuje o co ide, skus keby daco pis.citovat

lajos(14.4.2012 21:20)#008049

Misocko,nikdy jsem neprogramoval.Takže makro mužu krokovat klidně stokrát .Ted to zas nemuzu dostat do TextBoxu5 a 6.Misocko,budes to semnou mít těžký citovat

misocko(14.4.2012 22:23)#008050

no Textbox6 nemas na tomto usefrorme, vies si vo vba editore pozriet okno properties. aby sme sa dopatraly k tomu kde robis chybu, co (meno, datum ...) by malo podla teba byt v tom textboxe6?citovat

lajos(14.4.2012 23:00)#008051

Prohlednout to umim.Mel jsem napsat TB9 místo 6.Spletl jsem se.V TB5 a 9 by měli být adresa a doručovací adresa.Však?citovat

Strana:  1 2 3   další »

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse