< návrat zpět

MS Excel

Téma: Generování pořadového čísla a editace záznamu rss

Zaslal/a lajos 5.2.2015 14:42

lajosZdravím,potřeboval bych pomoci s problémem,který neumím vyřešit.Jedním Userformem ukládám klienta do listu Archiv.Rád bych,aby se automaticky generovalo pořadové číslo.Nevím,jak na to.Druhá věc,kterou nevím,jak dodatečně doplnit nebo změnit údaje již uloženého klienta.V druhém Userformu si klienta najdu a potřebuju mu doplnit např.číslo smlouvy a pak uložit na stejné místo.Poradí někdo?
Dík za případné reakce.

Příloha: rar23486_pokus-c.1.rar (27kB, staženo 47x)
Zaslat odpověď >
icon AL(5.2.2015 15:18)#023489
avatar
Generovanie čísla:
V UserForm1 doplň riadok:

Private Sub CommandButton1_Click()
Sheets("Archiv").Select 'zvoli list 1

radek = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(radek, 3).Value = TextBox3.Value
Cells(radek, 4).Value = TextBox4.Value
Cells(radek, 5).Value = TextBox5.Value
Cells(radek, 6).Value = TextBox6.Value
Cells(radek, 7).Value = TextBox7.Value
Cells(radek, 1).Value = Cells(radek - 1, 1) + 1

Unload Me
End Sub

Doplnenie č. zmluvy:
V UserForm2:Private Sub CommandButton1_Click()
Sheets("Archiv").Cells(UserForm2.ComboBox1.ListIndex + 2, 2).Value = TextBox6.Value
Unload Me
End Sub V prípade potreby editácie ďalších záznamov vhodným spôsobom kód doplníš, logika je, myslím, jasná - prosté otočenie rovnice (príslušného riadku) z kódu Combobox1_Change().citovat
lajos(5.2.2015 15:39)#023492
lajos
Děkuji za rychlou reakci.Funguje 1citovat
icon AL(5.2.2015 15:44)#023493
avatar
jj, nič zložité to nebolo.

Inak ale, existuje nástroj Formulár, tak Ti nechcem kaziť radosť, ale v tomto prípade si programoval zrejme zbytočne 1citovat
lajos(5.2.2015 18:40)#023495
lajos
Proč zbytečně?citovat
icon AL(5.2.2015 18:59)#023496
avatar
Páč podľa všetkého objavuješ objavené, ledaže by si mal na ten formulár nejaké špeciálne požiadavky 1
Daj si do Immediate:ActiveSheet.ShowDataForm
Uvedený formulár nájdeš medzi príkazmi "mimo pás kariet". V EN exceli sa menuje Form..., v CZ to niekde nájdeš, pravdepodobne sa bude menovať Formulář..citovat
lajos(5.2.2015 19:17)#023497
lajos
Proč to dělat jednoduše,když to jde i složitě 1citovat
icon AL(5.2.2015 19:19)#023498
avatar
jj 1citovat

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