Zdraví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?
23486_pokus-c.1.rar
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
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
RSS nejnovější články