listbox sorunu

[emrebengul]

command button3 e bastığımızda listboxtaki seçtiğimiz ismi silsin
command button4 e bastığımızda sayfa2deki seçtiğimiz ismi silsin
Ekli dosyayı görüntüle listbox.xlsm

 

[antonio]

Öncelikle arama kodlarını, yıllar önce Büyük Üstad Evren Gizlen'den öğrendim, bu yüzden onun kullandığı "k As Range" kalıbını aynen devam ettiriyorum. Öyle de devam edeceğim. (İyi ki varsın Üstad!)

ListBox1 de seçili ismi silme butonuna atanacak kodlarınız:

Private Sub CommandButton2_Click()
With Me.ListBox1
    If .ListIndex = -1 Then Exit Sub
    .RemoveItem (.ListIndex)
End With
End Sub

ListBox1 üzerinde seçili ismi Sayfa2 den silmek için butona atanacak kodlarınız:

Private Sub CommandButton4_Click()
Dim sh As Worksheet, aranan As String, alan As Range
Dim k As Range, sat As Long

Set sh = Sayfa2
Set alan = sh.Range("B2:B" & Rows.Count)
aranan = Me.ListBox1.Value
Set k = alan.Find(aranan, , xlValues, xlWhole)
If Not k Is Nothing Then
On Error Resume Next
    adr = k.Address
    Do
        sat = k.Row
        sh.Range("A" & sat & ":B" & sat).ClearContents
        Set k = alan.FindNext(k)
    Loop While Not k Is Nothing And adr <> k.Address
    MsgBox aranan & " ismindeki eleman silindi."
End If
End Sub

 

[emrebengul]

çok teşekkür ederim saolun

 

[antonio]

Rica ederim. Kolay gelsin.