Sil işleminde sayfa tanımı

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

Merhabalar;

Forumdan aldığım aşağıda yazılı kod;
çalışma kitabında birkaç sayfa olduğundan, listbox'a veri gelip, textbox.lara aktarıldığı halde, SİL işleminde, başka sayfadaki veriyi siliyor. Tahmin ettiğim kadarıyla sayfa tanımlaması gerekli. Sayfa adı: Müşteriler. Yardımlarınız için şimdiden Teşekkürler....

Private Sub CommandButton52_Click()
If ListBox1.ListIndex <> 0 Then
Sil = ListBox1.ListIndex + 1
Cevap = MsgBox("SİLMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ!", vbYesNo, "")
If Cevap = vbNo Then Exit Sub
Rows(Sil).EntireRow.Delete
End If
son = Cells(65536, 1).End(xlUp).Row
For i = 2 To son
Cells(i, 1) = i - 1
Next
End Sub

 

[mith]

Merhabalar,
Makroda herhangi bir sayfa belirtilmemiş, makro o anda aktif olan sayfada gerçekleşir. Yapman gereken "if cevap=..." satırının altına
Sheets("Müşteriler").Select
satırını eklemek. Böylece Müsteriler sayfasını seçtirmiş yani aktif hale getirmiş olursun..
Kolay gelsin..

 

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

Sayın mith;

Teşekkür ederim.

FAKAT BU KEZ DE SEÇTİĞİMİN BİR ALTINDAKİNİ SİLİYOR.
Yukarıdaki kodda nasıl bir değişiklik yapmalıyım?

 

[mith]

Merhabalar,
Sil = ListBox1.ListIndex + 1
satırının sonundaki +1 değerini sildiğiniz zaman istediğiniz olur sanırım.
Kolay gelsin..

 

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

Sayın mith

İlgine teşekkür. Sorunum yine çözülmedi.
Hayırlı akşamlar.

 

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

+1 değerini silmeden denedim.

İstediğimi siliyor. Fakat silinen verilerin bulunduğu sayfanın A sütunundaki kalan diğer veriler (önce isim iken) 1 - 2 - 3 olarak değişiyor.
A sütunundaki ilk verinin bulunduğu hücreye gittiğime; sol üst köşedeki gidilen hücreyi gösteren kutucukta TANIM ibaresi çıkıyor. Bu sorunu nasıl çözebilirim.

 

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

Sorunumu başka kod kullanarak çözdüm.

Herkese hayırlı akşamlar, iyi hafta sonları.