listbox veri silmek

[Barons]

merhaba
ekteki dosyada listbox1 çift tıklama ile listbox2'ye veri gönderiyorum.Aynı andada hp sayfasınada veri gidiyor.

Sorun: listbox2'den veriyi sildiremiyorum,yani hem listbox2'den hemde hp sayfasından verinin silinmesini nasıl sağlarım.aslında hp sayfasından silinmeside bana yeter çünkü listbox2 sadece sayfadaki veriyi gösteriyor.

Dosyam ektedir.biraz karışık gibi oldu ama üstadlar dosyayı açınca meramımı kolayca anlayacaklardır.
çok teşekkürler

 

[Barons]

dosyam gitmemiş.tekrar ekledim.

 

[Barons]

Ustadlar bayram sonrası inşallah bir el atarlar

 

[İhsan Tank]

Ustadlar bayram sonrası inşallah bir el atarlar

merhaba
userform'unuzun kod bölümünde bulunan

Private Sub UserForm_Initialize()
On Error Resume Next
ListBox1.MousePointer = fmMousePointerCustom
ListBox1.MouseIcon = LoadPicture("C:\Windows\Cursors\HARROW.CUR")
ListBox2.ColumnCount = 7
ListBox2.ColumnWidths = "120;60;50;50;40;30;20"
TextBox1.SetFocus
ListBox1.ColumnWidths = 600
'  ListBox1.Visible = False
End Sub

bu kodu

Private Sub UserForm_Initialize()
On Error Resume Next
ListBox1.MousePointer = fmMousePointerCustom
ListBox1.MouseIcon = LoadPicture("C:\Windows\Cursors\HARROW.CUR")
ListBox2.ColumnCount = 7
ListBox2.ColumnWidths = "120;60;50;50;40;30;20"
ListBox2.RowSource = "Hp!B2:H" & Sheets("Hp").Range("A65536").End(xlUp).Row
TextBox1.SetFocus
ListBox1.ColumnWidths = 600
'  ListBox1.Visible = False
End Sub

bununla değiştirin.
bir de bu kod'u kod bölümüne ekleyiniz

Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Sheets("Hp").Select
sat = ListBox2.ListIndex + 2
Cevap = MsgBox("SİLMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ!", vbYesNo, "")
If Cevap = vbNo Then Exit Sub
ListBox2.RowSource = ""
Cells(sat, "A") = "": Cells(sat, "B") = "": Cells(sat, "C") = ""
Cells(sat, "D") = "": Cells(sat, "E") = "": Cells(sat, "F") = ""
Cells(sat, "G") = "": Cells(sat, "H") = ""
UserForm_Initialize
End Sub

 

[Barons]

İhsan hocam Allah razı olsun...çok güzel olmuş..elinize sağlık

 

[İhsan Tank]

İhsan hocam Allah razı olsun...çok güzel olmuş..elinize sağlık

Allah Hepimizden Razı Olsun
:yazici: