listbox a göre rapor alma

[jineps5757]

İndir listeleme örnek proğram2

Dosyayı indir listeleme örnek proğram2

dosya.co

ÖMER HOCAM SELAMÜN ALAYKÜM. Hocam valla artık bişey sormaya yüzüm yok ama yapamadım o kadar uğraştım. Hocam linkteki excel de user formdaki cboad1 e tıkladığımda gelir sayfasından ilgili kişinin bilgilerini listbox2 ye aktarıyorum. Yapmak istediğim listbox2 de hangi satırı seçersem gelir sayfasından o satırı silmek istiyorum. normalde gelir sayfasından bi satır silmek zorunda kalınca excele dönüyorum satırı işaretleyip siliyorum. istiyorum ki excel çalışma sayfasına gitmeden listbox2 yardımı ile silmek satırı. Teşekkürler işlerinizde kolaylıklar dilerim

 

[jineps5757]

HOCAM sorun çözüldü şu şekilde
Dim bul As Range, satir As Long
With Me.ListBox2
If .ListIndex <> -1 Then
satir = .ListIndex
If MsgBox("Silinsin mi?", vbQuestion + vbYesNo, "Silme") = vbYes Then
Set bul = Sheets("GELİR").Range("a:a").Find(.List(satir, 0), LookAt:=xlWhole)
If Not bul Is Nothing Then Sheets("GELİR").Rows(bul.Row).Delete
If satir <> -1 Then
.RemoveItem satir
MsgBox "Silindi"
End If
End If
End If
End With
Set bul = Nothing