düzelt ve sil secenekleri

[Hacı Bayram ÖZKAN]

arkadaşlar ekli dosyada hazırladığım userform üzerindeki değiştir ve sil bütonuna kod yazarmısınız, yani listbooktan seçilen kişiyi düzeltsin veya silsin, ayrca birde sıra numarası bu dosyaya nasıl otomatik verilir bunuda yazarsanız sevinirim. teşekkürler

 

[İhsan Tank]

arkadaşlar ekli dosyada hazırladığım userform üzerindeki değiştir ve sil bütonuna kod yazarmısınız, yani listbooktan seçilen kişiyi düzeltsin veya silsin, ayrca birde sıra numarası bu dosyaya nasıl otomatik verilir bunuda yazarsanız sevinirim. teşekkürler

Merhaba
Userform'un kod bölümüne

Private Sub CommandButton3_Click()
Dim ts, trabzonspor, kaplan
Set kaplan = Sheets("Sayfa1")
ts = ListBox1.ListIndex + 2
trabzonspor = MsgBox("DEĞİŞTİRMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ!", vbYesNo, "")
If trabzonspor = vbNo Then Exit Sub
ListBox1.RowSource = ""
kaplan.Cells(ts, "B") = TextBox1.Value
kaplan.Cells(ts, "C") = TextBox2.Value
kaplan.Cells(ts, "D") = TextBox3.Value
kaplan.Cells(ts, "E") = TextBox4.Value
kaplan.Cells(ts, "F") = TextBox5.Value
kaplan.Cells(ts, "G") = TextBox6.Value
kaplan.Cells(ts, "H") = TextBox7.Value
kaplan.Cells(ts, "I") = TextBox8.Value
kaplan.Cells(ts, "J") = TextBox9.Value
kaplan.Cells(ts, "K") = TextBox10.Value
kaplan.Cells(ts, "L") = TextBox11.Value
kaplan.Cells(ts, "M") = TextBox12.Value
kaplan.Cells(ts, "N") = TextBox13.Value
kaplan.Cells(ts, "O") = TextBox14.Value
kaplan.Cells(ts, "P") = TextBox15.Value
kaplan.Cells(ts, "Q") = TextBox17.Value
UserForm_Initialize
End Sub
Private Sub CommandButton4_Click()
Dim ts, trabzonspor, kaplan
Set kaplan = Sheets("Sayfa1")
ts = ListBox1.ListIndex + 2
trabzonspor = MsgBox("SİLMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ!", vbYesNo, "")
If trabzonspor = vbNo Then Exit Sub
ListBox1.RowSource = ""
kaplan.Rows(ts).Delete
ts = kaplan.Range("B" & Rows.Count).End(xlUp).Row
kaplan.Range("A2") = 1
kaplan.Range("A2:A" & ts).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, Step:=1, Trend:=False
CommandButton10_Click
End Sub

 

[Hacı Bayram ÖZKAN]

A sütununa veriler için otomatik sıra numarası verme de yazarmısınız. teşekkürler. yani her veri girildiğinde otomatik olarak A sütununa otomatik sayı versin

 

[İhsan Tank]

A sütununa veriler için otomatik sıra numarası verme de yazarmısınız. teşekkürler. yani her veri girildiğinde otomatik olarak A sütununa otomatik sayı versin

Merhaba
Ekle butonunun kodunu bununla değiştirin

Private Sub CommandButton2_Click()
Son_Dolu_Satir = Sheets("Sayfa1").Range("A65536").End(xlUp).Row
bos_satir = Son_Dolu_Satir + 1
Sheets("Sayfa1").Range("B" & bos_satir).Value = TextBox1.Text
Sheets("Sayfa1").Range("C" & bos_satir).Value = TextBox2.Text
Sheets("Sayfa1").Range("D" & bos_satir).Value = TextBox3.Text
Sheets("Sayfa1").Range("E" & bos_satir).Value = TextBox4.Text
Sheets("Sayfa1").Range("F" & bos_satir).Value = TextBox5.Text
Sheets("Sayfa1").Range("G" & bos_satir).Value = TextBox6.Text
Sheets("Sayfa1").Range("H" & bos_satir).Value = TextBox7.Text
Sheets("Sayfa1").Range("I" & bos_satir).Value = TextBox8.Text
Sheets("Sayfa1").Range("J" & bos_satir).Value = TextBox9.Text
Sheets("Sayfa1").Range("K" & bos_satir).Value = TextBox10.Text
Sheets("Sayfa1").Range("L" & bos_satir).Value = TextBox11.Text
Sheets("Sayfa1").Range("M" & bos_satir).Value = TextBox12.Text
Sheets("Sayfa1").Range("N" & bos_satir).Value = TextBox13.Text
Sheets("Sayfa1").Range("O" & bos_satir).Value = TextBox14.Text
Sheets("Sayfa1").Range("P" & bos_satir).Value = TextBox15.Text
Sheets("Sayfa1").Range("Q" & bos_satir).Value = TextBox17.Text
Sheets("Sayfa1").Range("A2") = 1
Sheets("Sayfa1").Range("A2:A" & bos_satir).DataSeries rowcol:=xlColumns, _
Type:=xlLinear, Date:=xlDay, step:=1, Trend:=False
MsgBox "Kayıt Başarı İle Yapıldı"
CommandButton10_Click 'Bunun olması herhangi bir bütona gerek kalmadan verileri temizlemesi yani Com4'ü yapıyor.
End Sub

 

[Hacı Bayram ÖZKAN]

İhsan abi emeğine sağlık oldu dua ile kal.

 

[İhsan Tank]

İhsan abi emeğine sağlık oldu dua ile kal.

Kolay gelsin
:keyif: