comboboxla tablodan tabloya geçiş

[limanC34]

Selam Arkadaşlar
Comboboxtan tablo no seçip aynı sayfa üzerindeki ilgili tabloya nasıl ulaşabilirim?
Teşekkürler.

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub ComboBox1_Change()
If ComboBox1 = "TABLO1" Then: [A3].Select
If ComboBox1 = "TABLO2" Then: [Q3].Select
If ComboBox1 = "TABLO3" Then: [AF3].Select
If ComboBox1 = "TABLO4" Then: [AU3].Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ComboBox1.Clear
With ComboBox1
.AddItem "TABLO1"
.AddItem "TABLO2"
.AddItem "TABLO3"
.AddItem "TABLO4"
End With
End Sub

 

[Orion1]

Dosyanız hazır.

Private Sub ComboBox1_Click()
Cells(3, (ComboBox1.ListIndex * 15) + 1).Select
End Sub

Private Sub ComboBox1_DropButtonClick()
Dim i As Integer, sonsut As Integer
sonsut = Cells(3, 256).End(xlToLeft).Column
ComboBox1.Clear
For i = 1 To sonsut Step 15
    ComboBox1.AddItem Cells(3, i).Value
Next
End Sub

 

[limanC34]

Sayın N.Ziya Hiçdurmaz
Değerli çözümünüz için çok teşekkür ederim.Peki şöyle olabilir mi?Tablo sayımız çok ise sonuncu tabloyu seçtik diyelim ilk veya başka bir tabloya geçiş yapabilirmiyiz?

 

[limanC34]

Bu arada Sayın Evren Gizlen yanıtınızı geç farkettim.Sizede çok teşekkür ederim.

 

[Orion1]

Benim 3 umaralı mesajdaki dosyama bakınız.
İstediğiniz kadar tablo aralıkları ayni olmak koşulu ile tablo ekleyebilirsiniz.

 

[veyselemre]

Eki inceleyin,

 

[limanC34]

Sayın veyselemre
Çözümünüz için teşekkürler.Peki başka bir bir tabloya geçiş olabilir mi?

 

[Orion1]

Sayın veyselemre
Çözümünüz için teşekkürler.Peki başka bir bir tabloya geçiş olabilir mi?

Benim dosyamda oluyorda diğer arkadaşları bilmiyorum.

 

[limanC34]

Sayın Evren Gizlen
İnanın ilk mesajınızdan beri sürekli bakıyorum ama anlayamadım tablodan tabloya geçişinizi.Herşey için çok teşekkürler.
Saygılarımla.

 

[limanC34]

Üstadlarımın sayesinde bende birşeyler eklemeye çalıştım.Umarım işinize yarar.
Sayın N.Ziya Hiçdurmaz
Sayın Evren Gizlen
Sayın veyselemre ' ye teşekkür ederim.
Saygılarımla.

Not:İlk açılışta comboboxa TABLO 12 gibi bir sayı yazın.

 

[Seyit Tiken]

Gerçi konu bir şekilde çözüme kavuşmuş. Her program birden fazla yöntem ve tasarımla yapılabilir. Burda önemli olan az kodla ve etkin bir tasarımla proje geliştirmek. Ben bu çalışmada esinlenerek bir demene çalışması yaptım.