Soru Tablo ismini vba kodu ile değiştirmek

[van_65166]

Merhaba farklı bir sistemden Excel formatında bir liste çekip bunları bazı şartlara göre mail olarak gönderiyorum fakat içindeki tablo her seferinde ismi değiştiği için yazdığım kodlar hata veriyor bununla alakalı olarak ne yapabilirim fikrinizi alabilir miyim kolay gelsin

 

[Korhan Ayhan]

Bu kod size aktif sayfadaki tablo isimlerini listeler.

Sub SayfadakiTablolarıListele()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim tabloAdları As String
    
    Set ws = ActiveSheet
    
    If ws.ListObjects.Count > 0 Then
        For Each tbl In ws.ListObjects
            tabloAdları = tabloAdları & tbl.Name & vbNewLine
        Next tbl
        MsgBox "Bu sayfadaki tablolar:" & vbNewLine & tabloAdları
    Else
        MsgBox "Bu sayfada tablo bulunmamaktadır."
    End If
End Sub

 

[van_65166]

Bu kod size aktif sayfadaki tablo isimlerini listeler.

Sub SayfadakiTablolarıListele()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim tabloAdları As String
   
    Set ws = ActiveSheet
   
    If ws.ListObjects.Count > 0 Then
        For Each tbl In ws.ListObjects
            tabloAdları = tabloAdları & tbl.Name & vbNewLine
        Next tbl
        MsgBox "Bu sayfadaki tablolar:" & vbNewLine & tabloAdları
    Else
        MsgBox "Bu sayfada tablo bulunmamaktadır."
    End If
End Sub

Üstadım peki kodla ismini değişebilir miyim

 

[van_65166]

Bu kod size aktif sayfadaki tablo isimlerini listeler.

Sub SayfadakiTablolarıListele()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim tabloAdları As String
   
    Set ws = ActiveSheet
   
    If ws.ListObjects.Count > 0 Then
        For Each tbl In ws.ListObjects
            tabloAdları = tabloAdları & tbl.Name & vbNewLine
        Next tbl
        MsgBox "Bu sayfadaki tablolar:" & vbNewLine & tabloAdları
    Else
        MsgBox "Bu sayfada tablo bulunmamaktadır."
    End If
End Sub

üstadım merhaba

çözdüm teşekkür ederim.