Çözüldü Tarihi bugün olan excel dosyasını açma

Sayın @selis .

Dosya isimlerinde bir DÜZEN varsa, bu düzene göre açılacak dosya ismi DEĞİŞKEN olarak tanımlamak mümkün olabilir.

İsimdeki değişim nasıl oluyor ?
Örneğin; .....Formu (rev 1).xlsx deki 1 sayısı mı değişiyor, ya da 8.5.1-02_Pla.... kısmındaki sayılar mı değişiyor vs.

.

Merhaba Ömer bey teşekkür ederim, aşağıdaki şekilde yapınca çalıştı, ancak şimdide açılan yeni sayfayı aktif etmiyor, neden olabilir sizce?
Dim i As Integer
Dim n As Integer
Dim myDate As Date
Dim dosya As String
dos = ActiveWorkbook.Name

say = Cells(Rows.Count, "A").End(xlUp).Row


myDate = Date
dosya = "FR_8.5.1-51_Sac_İmalat_İş_Planı(rev2)" & "_" & myDate
Workbooks.Open("\\Fs1-mitas\msim\02_Sac_Imalat_Fabrika\01_Üretim_Planlama\01_İş_Planı_Raporu\" & dosya & ".xlsm").Sheets("Güncel Proje Takibi").Select
On Error Resume Next

dos1 = ActiveWorkbook.Name
Windows(dos1).Activate 'dos1 i aktif etmiyor yine ilk açık olan excelden işlem yapıyor.

Makrolarla işlem yapılırken.
İşlem yapılacak dosyanın AKTİF olması her zaman şart değil zaten.
Ayrıca zorunlu olmadıkça, makro kodlarında ....Select / ...... Activate kodlarının zaten olmamasında yarar var.

Bir'den fazla dosya/sayfa arasında işlem yapan kodlarda,
KİTAP/SAYFA/SATIR/SÜTUN gibi tanımlamalara dikkat etmek lazım.

Verdiğiniz son kod satırlarına baktığımda böyle tanımlamarın eksik olduğunu görüyorum.

Örneğin;
-- dos = .... satırını Set dos = ThisWorkbook diye değiştirin.
-- bunun altına işlem yapılacak SAYFA hangisiyse onun adını kullanarak Set shf = dos.Sheets("xxxxxxx") şeklinde bir satır ekleyin.
-- Workbooks.Open(...... satırının sonundaki .Select kısmına gerek olmaması lazım.
-- dos1 satırına gerek yok gibi görünüyor çünkü dosya değişkeni zaten dosyanın adını gösteriyor.
-- dos1 dediğiniz dosya yeni açıldığına ve ilk dosya için başka bir activate kod satırı olmadığına göre,
açılan yeni dosya zaten aktifdir. Bunun için ....Activate koduna gerek var mı?
vs.

Bence bir adet veri okunacak dosya adı, bir adet veri yazılacak dosya olmak üzere 2 örnek belge ekleyip,
yapmak istediğiniz işlemi açıklayın. Belki de istediğiniz işlem için başka bir kodlama önerilir.

.

Teşekkür ederim dediğiniz gibi denedim ama select için hata verdi o yüzden koddan silmedim, bide açılan yeni excelde işlem yapmıyor bir türlü yine thisworkbook olarak açtığım excelde işlem yapıyor. Şimdiden teşekkür ederim iyi çalışmalar..