Veri Silme (Combobox)

[ocamsul]

arkadaşlar ekte gönderdiğim çalışmamda seçimden sonra kodlar çalışmıyo yardım edermisiniz?

 

[Levent Menteşoğlu]

Kodları aşağıdakiler ile değiştirerek deneyin.

[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]