Tarihe Göre Workbook Aktif Etme

[norepinefrin]

Arkadaşlar her gün raporlama yaptığım için bir gün öncenin tarihine göre data alıyorum ve bu dataları excel dosyaları olarak kaydediyorum. Bu dosyaların sayısı çok fazla olduğu için tarihe göre dosyaları öne getiren bir koda ihtiyacım var.

Bunun bir kısmını araştırarak buldum, şöyle ki;

Mesela kur bilgilerinin olduğu 13062008_KUR.xls dosyasını

Sheets("Makro").Select
Range("C3").Select
kur = ActiveCell.Value
Windows(kur & " _KUR.xls").Activate
kurdosyasi = ActiveWorkbook.Name

koduyla C3 e 13062008 yazarak açtırabiliyorum. Benim sorunum dataların otomatik olarak 118-20080612.xls gibi isimlerle gelmesi burda görüldüğü üzere tarih dosya isminin sağında, böyle olduğu zaman yukarıdaki kod işe yaramıyor, nasıl yapılabileceğini çözemedim, data dosyaları da çok fazla miktarda olduğu için dosya isimlerini tek tek değiştiremiyorum.

İlgili durumda nasıl bir kod kullanılması gerektiği konusunda yardıma ihtiyacım var. İlgilenen arkadaşlara şimdiden teşekkürler. İyi çalışmalar.

 

[Ayhan Ercan]

Merhaba,

Windows(kur & " _KUR.xls").Activate

satırını aşağıdaki gibi değiştrerek denermisiniz.?

Windows("118-" & kur ).Activate

C3 e de 20080612 yazın..

 

[norepinefrin]

Ayhan Bey ilginiz için teşekkürler bunu sanırım ben de denemiştim ama böyle yaptığımda subscript out of range hatası alıyorum nedenini bulamıyorum

 

[Ayhan Ercan]

Ayhan Bey ilginiz için teşekkürler bunu sanırım ben de denemiştim ama böyle yaptığımda subscript out of range hatası alıyorum nedenini bulamıyorum

Merhaba,

kur = Sheets("Sayfa1").Range("c3").Value
xx = "118-"
Windows(xx & kur & ".xls").Activate
kurdosyasi = ActiveWorkbook.Name

deneyiniz....


subscript out of range hatası alıyorum diyorsunuz ya. 20080612 rakamını C3 hücresine yazıyorsunuz değilmi?

 

[norepinefrin]

Değerin yeri doğru, İlk deneme değil ama

xx = "118-"
Windows(xx & kur & ".xls").Activate

işime yaradı çok teşekkür ederim Ayhan Bey. İyi çalışmalar...

 

[Ayhan Ercan]

Değerin yeri doğru, İlk deneme değil ama

xx = "118-"
Windows(xx & kur & ".xls").Activate

işime yaradı çok teşekkür ederim Ayhan Bey. İyi çalışmalar...

Rice ederim. İşinize yaradıysa sorun yoktur demek.
İyi çalışmalar...

 

[norepinefrin]

Yeni başlık açmak istemedim o yüzden buraya soruyorum Dosya aktif etmeyi anladım ama şimdi de benzer bir problemi dosya açma ve save etmede yaşıyorum... Normalde

Dim MyDate

MyDate = Range("B1").Value

Workbooks.Open Filename:= _
"J:\Rapor\" & MyDate & " KUR.xls"

kodunu kullanarak dosyayı açabiliyorum ama aynı sorun devam ediyor, dosya isminde tarih yer değiştirdiğinde dosya açmak ve save etmek için nasıl bir kod kullanmalıyım yine içinden çıkamadım

 

[Ayhan Ercan]

Merhaba,

Dim MyDate
xx = "118-"
MyDate = Range("B1").Value
Workbooks.Open Filename:= _
"c:\ayhan\" & xx & MyDate & ".xls"