excell kaydederken dosya adına tarih ekleme

[alpijan]

Merhaba;

Ben excell dosyası kaydederken otomatik olarak adına tarih eklenmesini istiyorum. Yani;
benim sürekli çalıştığım bir excell dosyası var adı " dünün tarihi_MEVDUATLAR" Ben o dosyayı bugün tekrar açıyorum ve kaydederken otomatik olarak "bugünün tarihi_MEVDUATLAR" olarak kaydetmek istiyorum. İnternette ve sitede arama yaptım ama kod tarafım çok zayıf hatta sıfır, hiç anlamıyorum, banada sadece bu iş için gerekiyor. Bulduğum konularda kodlar falan verilmiş ama anlamıyorum ki sizden ricam ki eminim bu sitedeki pek çok kişi için basit birşeydir, bana örnek bir dosya atabilirmisiniz, yani kod yazmak yerine o kodun içinde olduğu bir excell dosyası ?

şimdiden çok teşekkür ederim..

 

[Orion1]

Dosya açıkken dosya adı değiştirilebilceğini sanmıyorum.
Bunun yerine bir hücreye günün tarihini atabilirsiniz.
Şartlı dosya açmak istediğiniz zaman.o dosya adını excel4 makro ile istediğiniz hücreden kolaylıkla alabilirsiniz.
Forumda excel4 makro ile veri okuma konusunda bir hayli konu mevcuttur.

 

[alpijan]

Cevap için teşekkürler,
dosya açıkken isim değiştirmek değil, sadece dosyayı kaydederken ismine tarih eklesin istiyorum. Yani dosyayı kaydedip kapatırken dosyayı "bugünün tarihi_MEVDUATLAR" şeklinde kaydetmek istiyorum..

 

[Orion1]

Cevap için teşekkürler,
dosya açıkken isim değiştirmek değil, sadece dosyayı kaydederken ismine tarih eklesin istiyorum. Yani dosyayı kaydedip kapatırken dosyayı "bugünün tarihi_MEVDUATLAR" şeklinde kaydetmek istiyorum..

Anlamadım.Dosya adına ekleme yapıdığında dosya adı değişmiyormu?

 

[efeksk]

Örnek dosya ektedir. Sayfa1 deki kaydet butonuna basarak Sayfa1 isimli sayfayı MEVDUATLAR GÜNÜN TARİHİ olarak istediğiniz yere kaydedebilirsiniz.

 

[Orion1]

Örnek dosya ektedir. Sayfa1 deki kaydet butonuna basarak Sayfa1 isimli sayfayı MEVDUATLAR GÜNÜN TARİHİ olarak istediğiniz yere kaydedebilirsiniz.

Sayfa adını değiştirmeyi sormuyor ki arkadaş.Dosya adını değiştirmeyi soruyor.

 

[efeksk]

Yok hocam....

Sayfa adını değiştirmiyor zaten benim yaptığım.
Sadece Sayfa1-Sayfa2-Sayfa3 içinden Sayfa1'i alıyor ve MEVDUATLAR GÜNÜN TARİHİ olarak isimlendiriyor. Ona dosya yolunu göstermek kalıyor.

 

[alpijan]

efeksk çok teşekkür ederim, aslında istediğim gönderdiğiniz örnekten çok daha basitti, düğmeye falan gerek yoktu ama böyle daha güzel olmuş.. ancakkkk ben çalıştıramadım .. kaydete basınca kitap1 diye kaydediyor, bidaha basınca kitap2 diye ve bu böyle devam ediyor, nerde yanlış yapıyorum ?

 

[alpijan]

Anlamadım.Dosya adına ekleme yapıdığında dosya adı değişmiyormu?

anlatamadım sanırım.. şimdi excelde sadece yazı yazmayı ve basit toplama çıkarma işlemleri yapan biri var karşınızda.. önümüzde bir excel dosya var, onu kaydete basıyorsunuz ve önünüze dosyayı kaydedeceğiniz dosya yolunu gösteren ve dosyanın adını yazdığınız pano açılıyor ya, işte oraya ben her seferinde o günü tarihini girerek kaydete basıyorum ve bazende yanlış tarih yazabiliyorum, o yüzden oraya otomatik olarak bugünü tarihini yazmasını istiyorum

 

[efeksk]

iyi ama benim gönderdiğim o şekilde kaydediyordu zaten. YANİ isim ve tarih ekliyordu.

 

[efeksk]

Birde bunu deneyin

 

[alpijan]

Efeksk evet ama ben sizin örnekte kaydete herbastığımda yeni bir dosya oluşturuyo ve tarih falan yok.. bide tüm kitabı kaydetmek istiyorum zaten sadece tek sayfayı değil, sizin gönderdiğiniz örnek tam istediğim gibi birşey aslında birde çalıştırabilsem, bir ayarı falanmı var, nerde yanlışım

 

[alpijan]

gönderdiğiniz 2. örnektede aynı şey devam ediyor bende. bir güvenlik ayarı falanmı engelliyor acaba, sizde çalışan bende niye çalışmıyor, bu kadar yaklaşmışken sonuca

 

[alpijan]

hiç anlamadığım halde 1 saat uğraşarak kodları buldum


Private Sub CommandButton1_Click()
On Error Resume Next
Sheets("Sayfa1").Select
Dim i As Integer, ii As Byte

With ListView1
For i = 1 To .ListItems.Count
Sheets("Sayfa1").Cells(i + 1, 1) = .ListItems(i)
For ii = 1 To 30
Sheets("Sayfa1").Cells(i + 1, ii + 1) = .ListItems(i).SubItems(ii)
Next
Next
End With

Sheets("Sayfa1").Copy
deg = Right(Now, 2)
DEG1 = Date
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\Administrator\Desktop\MEVDUATLAR " & DEG1 & " " & deg & ".xls", FileFormat:=xls
ActiveWorkbook.Close True
End Sub


şimdi bu örnekteki excellde düğmeye basınca sayfa1 ' i ayrıca açıyor ve ona direk dosya yolunu gösteriyor. Oysa benim istediğim dosyayı yani tüm sayfalarıyla excell kitabını günün tarihiyle kaydetmek.. aklımda düğme yoktu ama oda süper oldu birde çalışsa