makroya hücreden veri çekme

[muhsar]

günaydın;aşağıda ki kodda bulunan

yol = ThisWorkbook.Path & "\ŞİFA.xlsx."
Workbooks.Open yol
Sheets("eylül_2019").Activate bölümündeki sayfa adı her ay değiştiği için ben bu kodlarımda güncelleme yapıyorum,

öğrenmek istediğim; yukarıdaki "eylül_2019" kısmını bağlantı isimli sayfamın A100 hücresinden alma imkanı olabilirmi;birden çok güncelleme yaptığım kod olduğundan dolayı ben A100 değiştirince kodlarımda yeni değişikliğe göre çalışabilirmi
.

Sub şifacopyşifa()
Application.ScreenUpdating = False
Application.Run "'VERİ_GİRİS.xlsm'!çıkanlar"
Sheets("AKTİF_HASTA_LİSTESİ").Range("$B$1:$H$7326").AutoFilter Field:=1, Criteria1:="şifa"
Sheets("AKTİF_HASTA_LİSTESİ").Range("$B$1:$H$7326").AutoFilter Field:=7, Criteria1:="<>"
Rows("9:" & Cells(Rows.Count, "A").End(xlUp).Row).Copy
yol = ThisWorkbook.Path & "\ŞİFA.xlsx."
    Workbooks.Open yol
Sheets("eylül_2019").Activate
Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1).PasteSpecial xlPasteAll
ActiveWorkbook.Save
ActiveWindow.Close
Application.Run "'VERİ_GİRİS.xlsm'!tümlist"
Application.ScreenUpdating = True
End Sub

 

[Muzaffer Ali]

Merhaba.

Sheets("eylül_2019").Activate
yerine

sheets(sheets("SayfaAdı").range("A100")).activate

yazın. "SayfaAdı" kısmına hangi sayfanın A100 hücresi ise o sayfanın adını yazın.

 

[muhsar]

Merhaba.

Sheets("eylül_2019").Activate
yerine

sheets(sheets("SayfaAdı").range("A100")).activate

yazın. "SayfaAdı" kısmına hangi sayfanın A100 hücresi ise o sayfanın adını yazın.

Sheets(Sheets("BAĞLANTI").Range("A100")).Activate

bu şekilde yazdım ama olmadı hata verdi
bu satırda

 

[Muzaffer Ali]

Verdiği hata mesajı nedir?

 

[Korhan Ayhan]

Aşağıdaki gibi deneyiniz.

Sub şifacopyşifa()
    Application.ScreenUpdating = False
    Application.Run "'VERİ_GİRİS.xlsm'!çıkanlar"
    Sheets("AKTİF_HASTA_LİSTESİ").Range("$B$1:$H$7326").AutoFilter Field:=1, Criteria1:="şifa"
    Sheets("AKTİF_HASTA_LİSTESİ").Range("$B$1:$H$7326").AutoFilter Field:=7, Criteria1:="<>"
    Rows("9:" & Cells(Rows.Count, "A").End(xlUp).Row).Copy
    sayfa = Sheets("BAĞLANTI").Range("A100").Value
    yol = ThisWorkbook.Path & "\ŞİFA.xlsx."
        Workbooks.Open yol
    Sheets(sayfa).Activate
    Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1).PasteSpecial xlPasteAll
    ActiveWorkbook.Save
    ActiveWindow.Close
    Application.Run "'VERİ_GİRİS.xlsm'!tümlist"
    Application.ScreenUpdating = True
End Sub

 

[muhsar]

çok teşekkür ederim elinize sağlık