[vb:1:40a3b18c3e]Private Sub UserForm_Initialize()
Set s1 = Sheets("GÜNDÜZ")
For a = 5 To s1.[B34].End(xlUp).Row
If WorksheetFunction.CountIf(s1.Range("B5:B" & a), s1.Cells(a, 2).Value) = 1 _
Then ComboBox1.AddItem s1.Cells(a, 2).Value
Next
End Sub
Private Sub ComboBox1_Change()
Set s1 = Sheets("GÜNDÜZ")
sor = MsgBox("SİLMEK İSTEDİÃİNİZDEN EMİNMİSİNİZ", 4)
If sor = vbNo Then Exit Sub
s1.Select
sat = s1.[b1:b65536].Find(ComboBox1.Value).Row
adr = "b" & sat & ":aj" & sat
s1.Range(adr).ClearContents
s1.[b5:aj34].Sort Key1:=s1.[b5]
Unload Me
MsgBox "VERİ SİLİNMİÃTİR"
End Sub
[/vb:1:40a3b18c3e]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.