muhsar
Altın Üye
- Katılım
- 16 Mart 2019
- Mesajlar
- 262
- Excel Vers. ve Dili
- 2010 tütkçe
- Altın Üyelik Bitiş Tarihi
- 21-03-2029
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
.
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
.
Kod:
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