Soru Makro ile Tablo adı değşitirmek?

[sjanaz55]

Merhaba,

elimdeki kitap içerisinde "sheet1" sayfasında bulunan "DSR_TAB" adlı bir tablo var.
makro ile bu "sheet1" sayfasının bir kopyasını oluşturup içerisindeki verileri "sadece değer" olarak üzerine kopyalıyorum ve başka bir makro ile bu yeni sayfayı başka bir excell kitabına taşıyarak cloud a kaydediyorum. kaydedip kapatıyorum.


bu işlem sırasında tablo içerisinde makro ile filtrelemeler oluşturdum,
bazı durumlarda "sheet1" i birkaç kez kopyalamam gerekiyor ve her farklı kopyalamada yeni sayfalardaki tablo adı farklı oluyor.
örneğin "DSR_TAB2" , "DSR_TAB3" gibi.

filtreleme için kullandığım makrolarda tablo adı sabit durumda "DSR_TAB2"
tablo adı farklı sayfalarda değiştiği için makro hata veriyor.

farklı sayfalardaki tablo adlarını sabitlemek mümkün müdür?
yada bu oluşturulan tablo adını benim makromda nasıl değişken hale getirebilirim?

Şimdiden teşekkür ederim

 

[ÖmerFaruk]

Kodlarınız bilemediğim için şu şekilde yardımcı olmaya çalışıyorum.
Bir excel kitabında aynı isimli iki tablo tanımlayamıyoruz.
Bu sebeple içinci seçeneğiniz olan tablo adını makronuzda kullanmalısınız.

Aşağıdaki kodlar aktif sayfa içindeki ismi DSR_TAB ile başlayan tabloyu bulur ve ismini DSR_TAB_yeni olarak değiştirir.
Siz bunu kendi kodlarınıza uyarlamalısınız.

Sub FindTableName()
    Dim xTable As ListObject
    For Each xTable In ActiveSheet.ListObjects
        If Left(xTable.Name, 7) = "DSR_TAB" Then
            xTable.Name = "DSR_TAB" & "_yeni"
            Exit For
        End If
    Next
End Sub

 

[sjanaz55]

Kodlarınız bilemediğim için şu şekilde yardımcı olmaya çalışıyorum.
Bir excel kitabında aynı isimli iki tablo tanımlayamıyoruz.
Bu sebeple içinci seçeneğiniz olan tablo adını makronuzda kullanmalısınız.

Aşağıdaki kodlar aktif sayfa içindeki ismi DSR_TAB ile başlayan tabloyu bulur ve ismini DSR_TAB_yeni olarak değiştirir.
Siz bunu kendi kodlarınıza uyarlamalısınız.

Sub FindTableName()
    Dim xTable As ListObject
    For Each xTable In ActiveSheet.ListObjects
        If Left(xTable.Name, 7) = "DSR_TAB" Then
            xTable.Name = "DSR_TAB" & "_yeni"
            Exit For
        End If
    Next
End Sub

Çok teşekkür ederim. elinize sağlık.
kendi makroma uyarladım,
şuanki mevcut sorunumu çözdü.