[Çözüldü] Excel'de Açılan Kutu

[Orion1]

abi bir kontrol edermisiniz gönderdiğinizi galiba olmamış

Olmuş .Bende bir problem gözükmüyor.
Bakın Kopyalanmış sayfada YEŞİL BURSA listboxta gözüküyor.
OYSA ilk sayfada BURSA yazıyor sadece.

[voleclub]

kopyaladığım sayfalarında listbox veriyi hep sayfa 1 den alsın ama tıklayınca kendi sayfasının d1 inden başlayarak sıralı yazsın istiyorum. Benim gönderdiğim dosyada herşey istediğim gibi ama  kendi sayfasının d1 ine yazmıyorda kopyaladığım bütün sayfaların listboxı sayfa1 in d1 ine yazıyor.

[voleclub]

mesela sayfa adlarını sayfa1,sayfa2,sayfa3,sayfa4  yaprtım ve her sayfanın kod peceresindeki sayfa1 yazan yerleri sayfa 2,sayfa3 sayfa4 olarak kendi sayfasının adını yazdım ve istediğim gibi oldu.ben nasıl sayfa adını ve sayfanın kod pencerisinde elle değiştirmeden her kopyaladığımda otomatik olarak bu işlerin yapılmasını sağlayacagım

[Orion1]

kopyaladığım sayfalarında listbox veriyi hep sayfa 1 den alsın ama tıklayınca kendi sayfasının d1 inden başlayarak sıralı yazsın istiyorum. Benim gönderdiğim dosyada herşey istediğim gibi ama  kendi sayfasının d1 ine yazmıyorda kopyaladığım bütün sayfaların listboxı sayfa1 in d1 ine yazıyor.

Dosyanız ektedir.

Kod: [Seç]

Private Sub ListBox1_Click()
Excelce_Sonsatir = WorksheetFunction.CountA(Range("D1:D65530"))
Range("D" & Excelce_Sonsatir + 1) = ListBox1.List(ListBox1.ListIndex)
End Sub

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[voleclub]

çok teşekküerle tam istediğim buydu.

[Orion1]

çok teşekküerle tam istediğim buydu.

Rica ederim.
İyi çalışmalar.