[Çözüldü] KOD KONTROLU

[voleclub]

SELAM
1-Liste Kutusuna Veriler Sayfasının H sütundan veri aldım.J1 Hücresine yönlendirdim. İndeksi J2 hücresine koydum. Modüle Şu Kodu Yazdım

Sub Açılan1_Değiştir()
Sheets(Range("Veriler!$J$2").Value).Select
End Sub

Liste Kutusunda Ki Verileri Tıklayınca, Tıkladığım Sayfaya Neden gitmiyor

2-Verilerini H sütununa sayfaların isimlerini yazdıran makroyu nasıl yazarım
teşekkürler


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

[Bülent Öztürk]

Merhaba.

Kullandığınız nesne adı Açılan2.

Dolayısıyla kodları şu şekilde değiştirmeniz gerekir;

Sub Açılan2_Değiştir()

[Orion1]

1)açılan kutunuza sağ tıklayıp kodları içine yazınız.
2) Sub sayfa_isimleri()
Dim sh As Worksheet, sat As Integer
Sheets("Veriler").Range("H3:H65536").ClearContents
sat = 3
For Each sh In Worksheets
    Sheets("Veriler").Cells(sat, "H").Value = sh.Name
    sat = sat + 1
Next
End Sub

[voleclub]

sag tıkladıktan sonra nereye yapıştıracağım kod penceresine değil demi

[voleclub]

sag tıkladıktan sonra yazdığımız o makroyu atadım oldu galiba

[voleclub]

abi her gecen gün sizden bir şey öğreniyoruz teşekkürler iyi çalışmalar

[Orion1]

abi her gecen gün sizden bir şey öğreniyoruz teşekkürler iyi çalışmalar

Rica ederim.
İyi çalışmalar.