Listboxtan veri silmek

[sender]

Arkadaşlar mrb. Yeni yapmış olduğum bir spariş formu var.
formum üzerinde comboboxlar tektboxlar ve listbox var.
Şöyle bir problemim var arkadaşlar.
Yanlış yaptığım bir sparişi listboxtan seçerek ve sil butonuna basarak , listboxstan seçtiğim satırı, a yı, b yi c yi d yi f yi ve g hücrelerini silmek istiyorum. silmek istiyorum.

 

[Seyit Tiken]

Bu kodu bir deneyiniz.

Sub Düğme4_Tıklat()
ActiveCell.EntireRow = ""
End Sub

 

[sender]

Mrb seyin seyit bey,
Bu kod daha öncede kullandım ama bu kod benim işime yaramayan bir kod. sebeb: e sutunumda bulunan birleştir formulu ve g sutununda bulunan buşluk.
yani e ve g stunlarının silinmemesi gerkiyor.
ona göre bir kod yazabilirmisiniz.

 

[Seyit Tiken]

Bu kodu bir deneyin.

Sub Düğme1_Tıklat()
If Intersect(ActiveCell, [A11000,F1:F1000]) Is Nothing Then Exit Sub
ActiveCell = ""
ActiveCell.Offset(0, 1) = ""
ActiveCell.Offset(0, 2) = ""
ActiveCell.Offset(0, 3) = ""
ActiveCell.Offset(0, 5) = ""
ActiveCell.Offset(1).Select
End Sub

 

[sender]

Seyit hocam malesef işe yaramıyor.

Bu arada özürdilerim vba şifresi: meleğim

 

[sender]

Mrb. Problemimi hallettim. Yalnız bir problemle daha karşılaştım.
Litboxta alt alta sıralanmış (1-2-3-4...) verilerimden herhangi birini sildiğimde listboxumda boşluklar oluyor, ve sayılar düzensizleşiyor

1- ...... ....... .......
3- ...... ....... .......
4- ..... ...... ......
7- ........ ........ ........

bu problemi güncelle butonu ile düzenli hale nasıl getirirz. yani veriler.
boşluklara kayarak ve numaralar tekrar 1 den başlayarak nasıl sıralanır....

dosyam ekte. İşinize yaraması dileğiyle...
kolay gelsin.

vba = meleğim

 

[sender]

Bu soruya cevap verebilecek kimse yokmu...
Acaba soru soruş tarzımmı yanlış...
Hatalımı sordum soruyu...
Kurallaramı Aykırı.....
Yada bu sorunun cevabını kimse bilmiyormu.