Günlük Kayıt Uygulaması Hk.

[petrol16]

Merhaba,

Her gün "raporlar" adında klasörün içinde bulunan bir excel sayfasını içeriğini değiştirmeden farklı kaydederek yeni bir kayıt işlemi yapıyorum. fakat bazen unutarak kaydetme düğmesine bastığım için bu işlemi bir formül yardımı ile yapmam konusunda yardımlarınızı talep ediyorum.

Daha açık anlatmam gerekir ise;
Masa üstüne "raporlar" adında bir klasör açtım.
Bu klasörün içinde bulunan "belge" isimli excel dosyasının 1. sayfasına her gün değişik bilgiler giriyorum.
İşlem bittikten sonra (bir düğme yaratarak) excel dosyasını aynı klasörün içine farklı kaydetmek istiyorum. Adınında A1 sütunundaki tarih olmasını istiyorum.

Yardım ederseniz çok sevinirim.

Saygılarımla,

Erkan ÇAĞLAR

 

[Kemal Demir]

Sn.Alpi ye ait bir kod.

Sub SaveAsAll()
Dim Budosya As String
Budosya = ThisWorkbook.FullName
Fname = Format(Now, "dd_mm_yyyy") & " " & Budosya & ".xls"
klasor = "YEDEK"
Set ws = ActiveWorkbook
Application.DisplayAlerts = False
ac:
Set Fs = CreateObject("Scripting.FileSystemObject")
If Fs.FolderExists("c:\" & klasor) Then
GoTo devam
Else
Fs.CreateFolder ("c:\" & klasor)
'GoTo ac
End If
devam:
With ws
.SaveAs "c:\" & klasor & "\" & Fname
Workbooks.Open (Budosya)
Workbooks(Fname).Close
End With
MsgBox "Yedekleme işleminiz tamamlandı. "
End Sub

 

[alpi]

Ekteki örnekte Dosyanızı kaydetmek için kullandığınız Kaydet düğmesine tıkladığınızda dosyanızın yedeğini almak için kullanabilirsiniz.

Yedek Dosya Sayfa1 deki A1 hücresinde yazılı olan ad ile kaydedilir.

 

[petrol16]

günlük kayıt uygulaması

arkadaşlar merhaba,

excel sayfasını farklı kaydetmek ile ilgili formül, sayfadaki tüm makrolarla birlikte yeni bir dosya oluşturmaktadır. bir dosya yaklaşık 3 mb olduğu için her defasında hafıza gereksiz yere dolmakta. aşağıdaki formülü tüm sayfa özelliklerini değil de, sadece sayfadaki değerleri aktarması konusunda yardımcı olabilir misiniz?


Private Sub CommandButton1_Click()

tar = Range("A1").Value
dosyaadi = " " & tar & ".xls"

ActiveWorkbook.SaveAs Filename:= _
"C:\Raporlar\" & dosyaadi _
, FileFormat:=xlNormal
End Sub

 

[alpi]

Sayın Petrol dosyanızın boyutunu yazılan makrolar çok fazla etkilemez. Bunu etkileyen hücre renkleri ve formülleridir. Ama yinede ben makroların silinmesini istiyorum diyorsanız forumda makro silme hakkında konular mevcuttur. Arama yaparsanız bulursunuz.

 

[petrol16]

günlük kayıt uygulaması

bu makroları silmem imkansız. çünkü kullanmış olduğum sayfada bir çok işmi kolaylaştıran işlemler mevcut.