< návrat zpět

MS Excel

Téma: neumím makra rss

Zaslal/a lajos 24.3.2012 14:21

lajosDobrý den,mohl by někdo znalý udělat makro?Je tam UserForm na zadávání osobních dat.Je možné udělat,aby se na prvním listě data zapisovala do nového řádku?Stačilo by mi třeba je n dvě položky,abych věděl,jak na to a zbytek bych se pokusil sám.Třeba to pochopím.Dík za případnou pomoc.

Příloha: rar7769_test.rar (23kB, staženo 19x)
stop Uzamčeno - nelze přidávat nové příspěvky.
Strana:  1 2   další »
misocko(24.3.2012 18:34)#007770
avatar
skus
Příloha: rar7770_aaa.rar (17kB, staženo 21x)
citovat
lajos(24.3.2012 22:49)#007771
lajos
Ahoj,tak jsem zkusil a dobrý...zatím OK...Můžem tímto stylem pokračovat?Teď bych potřeboval,aby ten UserForm zapsal některé položky(ne všechny)zároveň na list ŽÁDOST.Např.jméno a příjmení,RČ...zase by mi stačilo jen kousek,abych to mohl zkusit dodělat sám.Líp se to chápe.A děkuju za pomoc....kde se to učíte?:-)
Příloha: rar7771_aaaa.rar (28kB, staženo 19x)
citovat
misocko(24.3.2012 23:18)#007772
avatar
ked uz toto zvladas tak by pre Teba nemal byt problem sa presmerovat na list ZADOST ( Sheets(2).Select ak je to druhy list pripadne mozes pouzit Sheets("ŽADOST").Select) dalej ides tak isto (Cells ......), potom sa vsak nezabudni vratit spet na list 1 (ak potrebujes, alebo by som vsetky veci zapisal na list 1 a nasledne sa prepol na list2 a zapisal veci ktore chces).
2. vecsinu som sa naucil tu na fore, nieco pomoze aj help ak si uz v niecom programoval aspon zaklady

v pripade otazok pis, radi pomozeme


Private Sub CommandButton1_Click()
Sheets(1).Select 'zvoli list 1
riadok = ActiveSheet.UsedRange.Rows.Count + 1 'najde prazdny riadok
'Cells (riadok, stlpec) - bunka kde prva premenna oznacoje riadok a druha stlpec kde sa dana bunka nachadza Cells(1,1) - bunka A1

Cells(riadok, 1).Value = TextBox16.Value ' UNI do bunky(riadok, 1) - druhy riadok je to A2 , zapise hodnotu Textboxu16
Cells(riadok, 2).Value = TextBox1.Value
Cells(riadok, 4).Value = TextBox3.Value
Cells(riadok, 5).Value = TextBox4.Value
Cells(riadok, 6).Value = TextBox25.Value
Cells(riadok, 7).Value = TextBox5.Value
Cells(riadok, 8).Value = TextBox6.Value
Cells(riadok, 9).Value = TextBox7.Value
Cells(riadok, 10).Value = TextBox8.Value
Cells(riadok, 11).Value = TextBox9.Value
Cells(riadok, 12).Value = TextBox10.Value
Cells(riadok, 13).Value = TextBox11.Value
Cells(riadok, 14).Value = TextBox12.Value
Cells(riadok, 15).Value = TextBox13.Value
Cells(riadok, 16).Value = TextBox15.Value
Cells(riadok, 17).Value = TextBox14.Value
Cells(riadok, 18).Value = TextBox17.Value
Cells(riadok, 19).Value = TextBox18.Value
Cells(riadok, 20).Value = TextBox24.Value
Cells(riadok, 21).Value = TextBox19.Value
Cells(riadok, 22).Value = TextBox21.Value
Cells(riadok, 23).Value = TextBox23.Value
Cells(riadok, 24).Value = TextBox20.Value

Sheets("Žadost").Select 'zvoli list Žadost
Cells(4, 3).Value = TextBox1.Value
'...............................................citovat
lajos(25.3.2012 3:02)#007774
lajos
Misočko,ty odepisuješ moc rychle:-)Já jsem na to přišel,přesně jak jsi to napsal..Jde mi to pomalu,ale snad to půjde takhle dál..Pak už budu potřebovat jen dvě věci.A to,aby se dalo vyhledat určitého klienta a jeho všechny záznamy se nechaly prohlédnout v jednom komplexním formuláři.Něco jako UserForm,ale obráceně.No a pak ještě tisk vybraných listů..Je toho dost,viď?Zatím moc děkuju.citovat
misocko(25.3.2012 12:35)#007777
avatar
nieco pre inspiraciu, mozo z toho aj nieco pouzijes
(funguje iba EDIT, ostatne som nestihol dorobit a uz to nieje priorita,tak uz asi ani nedokoncim, ale ten edit je premakany, myslim 5 )
Příloha: rar7777_smed.rar (163kB, staženo 22x)
citovat
lajos(28.3.2012 22:07)#007813
lajos
Ahoj,
tak se mi zas nedaří.Na druhém listě Žádost se mi tedy povedlo naplnit ComboBox daty,ale nemůžu ho donutit aby je zapsal kam má.Pomůžete?
Příloha: rar7813_test11.rar (41kB, staženo 18x)
citovat
misocko(28.3.2012 22:51)#007815
avatar
Private Sub CommandButton1_Click()
Cells(7, 6).Value = ComboBox1.Value
Cells(7, 8).Value = ComboBox2.Value
Cells(7, 10).Value = TextBox1.Value
End Subcitovat
Jeza.m(28.3.2012 22:51)#007816
Jeza.m
normálně by mělo fungovat něco jako
List2.Range("F7") = ComboBox1.Text
List2.Range("H7") = ComboBox2.Text
List2.Range("J7") = TextBox1.Text
M@citovat
lajos(29.3.2012 0:59)#007817
lajos
Chlapi,dík...dotaz:dva postupy a výsledek stejný,jak to?
Jestli je to blbá otázka,tak neodpovídejte 1citovat
Jeza(29.3.2012 16:00)#007838
avatar
1. příklad je adresování pomocí souřadnic (řádek, sloupec).
2. příklad definování oblasti (obsahující jedinou buňku).
při použití ve smyčkách je lepší použít souřadnice, jednorázově pak oblast.

u prvku combobox vlastnost value a text = totéž.

M@citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

VBA - Automatické přidání a pojmenování listů

CePino • 3.5. 21:33

VBA - Automatické přidání a pojmenování listů

elninoslov • 3.5. 18:50

VBA - Automatické přidání a pojmenování listů

CePino • 3.5. 16:33

VBA - Automatické přidání a pojmenování listů

elninoslov • 3.5. 12:04

VBA - Automatické přidání a pojmenování listů

CePino • 2.5. 22:52

Určení kraje dle databáze PSČ na základě adresy

elninoslov • 30.4. 13:49

Určení kraje dle databáze PSČ na základě adresy

Pepepe • 30.4. 11:45