< návrat zpět

MS Excel

Téma: neumim makra rss

Zaslal/a lajos 12.4.2012 20:46

lajosZdraví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í 1
Snad je to pochopitelné.
Děkuji za Vaši pomoc

Příloha: rar8011_test111.rar (50kB, staženo 19x)
stop Uzamčeno - nelze přidávat nové příspěvky.
Strana:  1 2 3   další »
misocko(13.4.2012 20:26)#008025
avatar
ahoj

tak bez zlateho podnosu, skus
Příloha: zip8025_pomoc-combobox.zip (12kB, staženo 20x)
citovat
lajos(14.4.2012 1:55)#008031
lajos
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
avatar
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
lajos
Misocko,mam to tam,ale nedaří se 7
Příloha: rar8036_pracovni.rar (77kB, staženo 19x)
citovat
misocko(14.4.2012 16:10)#008039
avatar
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
lajos
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 6
Podíval by ses na to?
Příloha: rar8047_test222.rar (61kB, staženo 19x)
citovat
misocko(14.4.2012 20:10)#008048
avatar

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)? 5 . 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
lajos
Misocko,nikdy jsem neprogramoval.Takže makro mužu krokovat klidně stokrát 1 .Ted to zas nemuzu dostat do TextBoxu5 a 6.Misocko,budes to semnou mít těžký 7citovat
misocko(14.4.2012 22:23)#008050
avatar
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
lajos
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)
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