ListBox.la seçilen verinin Silinmesi

[İsmail Küçükşengün]

Merhaba;

Ekteki çalışmada, Listboxtan seçilen verinin alttaki buton aracılığyla silinmesi.

Veriler 16. satırdan itibaren bulunmakta.
İlgili veriyi sildiğimizde, alt satırda da veri varsa (mesela 2. no.lu silindiğinde, alttaki 3 no.lunun sıra no.su 2. olacak şekilde)

Yardım ve emeklerinize şimdiden teşekkürler..

 

[hamitcan]

Private Sub CommandButton15_Click()
Range(Cells(ListBox2.ListIndex + 16, "b"), Cells(ListBox2.ListIndex + 16, "j")).Delete
Cells(ListBox2.ListIndex + 17, "A").Clear
End Sub

şeklinde deneyin.

 

[İsmail Küçükşengün]

Sayın Hamitcan;

Teşekkür ederim.

Bir de sıra no.ları ayarlanabilse daha da güzel olacak.

Selamlar.

 

[hamitcan]

Kodu düzenledim.

 

[İsmail Küçükşengün]

Sayın Hamitcan;

Çok güzel oldu. Teşekkürlerimi sunuyorum.

Selamlarımla.