Vba / Sayfa adını hücreden alsın

[dgdizayn]

Merhabalar,

Aşağıdaki Hdf.Sheets("Sheet1") kodda Sheet1 kısmını, açık olan sayfanın B37 hücresinden ismini alsın istiyorum. Bunun için bir çok kod denedim ama hata verdi. Yardımcı olabilir misiniz.

Teşekkürler.


Sub verikaydet()
Dim KynkSyf As Worksheet, Hdf As Workbook, HdfSyf As Worksheet
Dim Yol As String, Dosya_Adi As String, sonsatir As Integer
Application.ScreenUpdating = False


Set KynkSyf = ThisWorkbook.ActiveSheet


Yol = "\Yol\" 'Kapalı Dosyanın yolu
Dosya_Adi = "1.xlsx" 'Kapalı Dosyanın Adi

Set Hdf = Workbooks.Open(Yol & Dosya_Adi, False, False)
Set HdfSyf = Hdf.Sheets("Sheet1") 'Kapalı Dosyanın Sayfa adi

sonsatir = HdfSyf.Cells(Rows.Count, "A").End(3).Row + 1
HdfSyf.Range("A" & sonsatir & ":F" & sonsatir).Value = KynkSyf.Range("A37:F37").Value

Hdf.Close True
Application.ScreenUpdating = True

End Sub

 

[RBozkurt]

Merhaba
Deneyiniz.

Dim aktifSayfa As Worksheet
Dim HdfSyf As Worksheet

Set aktifSayfa = ActiveSheet
Set HdfSyf = Sheets(aktifSayfa.Range("B37").Value)

 

[dgdizayn]

Merhaba
Deneyiniz.

Dim aktifSayfa As Worksheet
Dim HdfSyf As Worksheet

Set aktifSayfa = ActiveSheet
Set HdfSyf = Sheets(aktifSayfa.Range("B37").Value)

Sn. RBozkurt;

Yanıtınız için çok teşekkür ederim, sorunum çözüldü.

Kolay gelsin.

 

[RBozkurt]

Kolay gelsin iyi çalışmalar.