Soru Açılır Listedeki Tabloyu Gosterme

[Micraims]

Merhaba arkadaslar, oncelikle sormak istedigim seyi muhtemelen baslikta yazamadim cunku ne yazsam bilemedim. Sormak istedigim su; Excelde acilir bir liste olusturdum ve bu listede tablo isimleri var. Listeden sectigim bir tabloyu biraz asagi ya da bir yan hucreye getirmesini istiyorum fakat makro kullanmadan olsun cunku excelin mobil versiyonu makro desteklemiyor. Buna uygun bir formul ya da kod bilen varsa yardimci olabilir mi?

 

[Micraims]

Yardimci olabilecek birisi var mi?

 

[ÖmerFaruk]

Tablo isimlerinden kastınız Tablo olarak tanımlanmış aralıkların ismimidir?

Hatta örnek veri içeren bir dosyanızı paylaşırsanız daha kolay yardım alırsınız.

 

[Micraims]

Tablo isimlerinden kastınız Tablo olarak tanımlanmış aralıkların ismimidir?

Hatta örnek veri içeren bir dosyanızı paylaşırsanız daha kolay yardım alırsınız.

Evet, tablo isimlerinden bahsediyorum. Excelin diger sayfalarinda tablolar var ve bu tablolari acilir liste ile ana sayfada gormek istiyorum. Boyle birsey mumkun mu? Internette cok aradim hatta yabanci sitelere goz attim fakat bulamadim. Dosya paylasamiyorum sanirim altin uyelik istiyor onun icin henuz yeni kaydoldum ben.

 

[ÖmerFaruk]

Harici dosya sitelerine dosyanızı yükleyip link paylaşabilrisiniz.
Dosya.co , Upload.com, Drive gibi

 

[Micraims]

Dosyadaki gibi Tablo1 ve Tablo2 sayfalari var ve bu sayfalarda tablolar var. Bu tablolari Ana Sayfada Acilir Liste ile goruntulemek istiyorum. Acilir Listede Tablo isimleri yazacak ve tikladigimda tablonun tamami o sayfada cikacak.

İndir Kitap1

Dosyayı indir Kitap1

dosya.co

 

[ÖmerFaruk]

Örneğin A1 hücresinde Tablo isimleriniz var.
(Verdiğiniz Örnek Dosyaya uygun olarak listenizde Tablo2 ve Tablo6 var gibi olmalı)

3 satır aşağısı 2 sütun sağı yani C4 hücresine aşağıdaki formülü yazabilirsiniz.
=DOLAYLI(A1&"[#Tümü]")

 

[Micraims]

Örneğin A1 hücresinde Tablo isimleriniz var.
(Verdiğiniz Örnek Dosyaya uygun olarak listenizde Tablo2 ve Tablo6 var gibi olmalı)

3 satır aşağısı 2 sütun sağı yani C4 hücresine aşağıdaki formülü yazabilirsiniz.
=DOLAYLI(A1&"[#Tümü]")

Sanirim bunu ariyordum cok iyi oldu fakat tablodaki bicim ve kurallarida (kosullu bicimlendir) ayni sekilde koyabilir miyim?

 

[ÖmerFaruk]

Bu durumda işin içine VBA girer.
İstermisiniz?

 

[Micraims]

Bu durumda işin içine VBA girer.
İstermisiniz?

Mobilde VBA desteklemiyor fakat bilgisayarda kullanmak icin isime yarar. Bir de o sekilde yapabilir misiniz?

 

[ÖmerFaruk]

Şu an uyumam lazım. İlk müsait olduğumda bakarım. Ya da bir başka arkadaş görüp yardımcı olacaktır.

 

[Micraims]

Şu an uyumam lazım. İlk müsait olduğumda bakarım. Ya da bir başka arkadaş görüp yardımcı olacaktır.

Peki yinede tesekkurler. Musait oldugunuzda yardimci olursunuz, iyi geceler.

 

[Micraims]

Bu durumda işin içine VBA girer.
İstermisiniz?

Hocam musaitseniz VBA versiyonunu yapabilir misiniz?

 

[ÖmerFaruk]

Kodu bir module atayıp çalıştırabilirsin.
Tablolarınız listesinin A1 hücresinde olduğunuz varsaydım

Sub TablolarıKopayala()
    Dim myObject As ListObject, i As Integer
    For i = 1 To Worksheets.Count
        For Each myObject In Worksheets(i).ListObjects
            If Worksheets("Ana Sayfa").Range("A1") = myObject.Name Then
            myObject.Range.Cells.Copy
            'Yapıştırmak isteğiniz sol üst hücre C3 değilse
            'buradaki 2 satırda gerekli değişikliği yapabilirsiniz
            Worksheets("Ana Sayfa").Range("C3").PasteSpecial xlPasteValues
            Worksheets("Ana Sayfa").Range("C3").PasteSpecial xlPasteFormats
            Exit Sub
            End If
        Next
    Next
    MsgBox Worksheets("Ana Sayfa").Range("A") & " isminde bir tablo çalışma kitabında bulunamadı"
End Sub

 

[Micraims]

Kodu bir module atayıp çalıştırabilirsin.
Tablolarınız listesinin A1 hücresinde olduğunuz varsaydım

Sub TablolarıKopayala()
    Dim myObject As ListObject, i As Integer
    For i = 1 To Worksheets.Count
        For Each myObject In Worksheets(i).ListObjects
            If Worksheets("Ana Sayfa").Range("A1") = myObject.Name Then
            myObject.Range.Cells.Copy
            'Yapıştırmak isteğiniz sol üst hücre C3 değilse
            'buradaki 2 satırda gerekli değişikliği yapabilirsiniz
            Worksheets("Ana Sayfa").Range("C3").PasteSpecial xlPasteValues
            Worksheets("Ana Sayfa").Range("C3").PasteSpecial xlPasteFormats
            Exit Sub
            End If
        Next
    Next
    MsgBox Worksheets("Ana Sayfa").Range("A") & " isminde bir tablo çalışma kitabında bulunamadı"
End Sub

Hocam bir yerde hata yapiyorum sanirim, olmadi. Gonderdigim ornek dosyaya yapip tekrar upload edebilir misiniz?

 

[ÖmerFaruk]

https://dosya.co/oons4pctkbkh/Tablolar.xlsm.html

 

[Micraims]

https://dosya.co/oons4pctkbkh/Tablolar.xlsm.html

Cok tesekkur ederim isimi gordu bu