Buton ile Çalışma Kitabı Açma ve İstenen Sayfaya Gitme

[delipoyraz5353]

İyi günler forumda aramalarımda bir kod buldum ama tam istediğimi yapamıyorum. Benim istediğim bir kodla D sürücüsündeki dosyayı açıyorum ama içinde 31 sayfa var 1...31 Yani her gün bir sayfa ben kodla çalışma kitabı açılacak ve içinde bulunduğumuz günün sonraki günü o sayfayı açmak yardım eden herkese teşekkürler şimdiden Çalışma kitabını açtığım kodu ;
Workbooks.Open Filename:="D:\RİZE\PERSONEL TAKİP\PERSONEL TAKİP 2016\Şubat 2016/" & [A1].Text & ".xlsm"
Bu komut A1 hüçresindeki dosyayı açıyor Benim ise yapmak istediğim hem çalışma kitabını açmak hemde 1 ile 31 sayfa arasındaki sayfaya gitmek.

 

[Orion1]

O kodların altına aşağıdakileri ekleyin.

syf = Day(Date) + 1
Sheets(CStr(syf)).Select

 

[delipoyraz5353]

Sayın Orion1 teşekkürler. Tam istediğim oldu.

 

[Orion1]

Sayın Orion1 teşekkürler. Tam istediğim oldu.

Rica ederim.
İyi çalışmalar.

 

[delipoyraz5353]

Sayın Orion1 bir şey daha sorabilir miyim
Workbooks.Open Filename:="D:\RİZE\PERSONEL TAKİP\PERSONEL TAKİP 2016\Şubat 2016/" & [A1].Text & ".xlsm"
Bu koddaki [A1] yerine direk çalişma kitabının adını yazabilir miyim yada direk sürücüdeki dosyayı nasıl açtırabilirim.

 

[Orion1]

[A1].Text & ".xlsm"

Yukarıdaki yere aşağıdakini yazın.
dosya adı test tir.Siz kendi dosya adınızı yazın.

"D:\RİZE\PERSONEL TAKİP\PERSONEL TAKİP 2016\Şubat 2016\[B][COLOR="Red"]test.xlsm[/COLOR][/B]"

 

[Kardiyak]

O kodların altına aşağıdakileri ekleyin.

syf = Day(Date) + 1
Sheets(CStr(syf)).Select

Teşekkürler.