listbox suzme icin yardim

[sbkst]

merhabalar

benim sorunum userform da bir listbox tanimladim bu listbox ta suzme yaptigimda excelde suzme yapmamasi bir turlu beceremedim.
Listbox ta suzulmus veriye tikladigimda farkli veri geliyor bu sorunu cozmem icin yardimci olabilirmisiniz acaba....

simdididen tesekkurler

ornek dosya ektedir.

 

[sbkst]

sorumu yanitlayabilecek bir arkadas yokmu ??

 

[Korhan Ayhan]

Merhaba,

Birkaç küçük rötuşla probleminiz çözülmüştür. Ekteki örnek dosyayı incelermisiniz.

 

[sbkst]

korhan bey cok tesekkur ederim

yaptiginiz degisiklikleri belirtebilirmisiniz acaba ??

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki değişiklikler yapılmıştır;

"Private Sub CommandButton2_Click()" olayında aşağıdaki satır değiştirildi.

Degistirilecek_Satir = ListBox1.Value + 1

"Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)" olayında aşağıdaki satır değiştirildi.

Bulunan_Satir_No = ListBox1.Value + 1

Ayrıca aşağıdaki satır eklendi.

CommandButton2.Enabled = True

Birde excel sayfasına ulaşmak için "Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)" olayındaki kodu pasiflemiştim. Foruma eklerken düzeltmeden eklemişim. Eğer formunuzun çarpıdan kapanmasını istemiyorsanız bu satırın başındaki tek tırnağı silerek aktif hale getirin.

'If CloseMode = vbFormControlMenu Then Cancel = True

Yapılan değişiklikler bundan ibarettir. Başka bir değişiklik yapılmamıştır.

 

[sbkst]

cok tesekkur ederim