ÇALIŞMA KİTABINI ARŞİVE GÖNDERME

[alpay1]

Değerli arkadaşlar,
Çalıştığım Excel Çalışma Kitabını "Cari.xls" yıl sonunda "C:\cari_a1" klasörüne o yılın adı ile "2005Cari.xls" Makrosuz ve Formülsüz arşivlemek istiyorum.
Not:Userform üzerindeki "Arşive Gönder" butonona tıklayrak kodları çalıştıracağım.
Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.
İyi çalışmalar.

 

[nziya]

yanıt

COMANDBUTTONA İCON EKLEME NOTİÐER RESİM EKLEMELERDE FORMATI KABUL ETMİYORSA RESMİ FARKLI KAYDETTEN .JPG FORMATINA ÇEVİRİNİZ.

 

[Haluk]

:?

 

[nziya]

Haluk bey alpay1 kardeşimizin butonlara resim eklemeyle ilgili sorusu olmuştuda!

 

[alpay1]

nziya arkadaşıma teşekkür ederim.Bu sorunu çözdüm.
Sağolun.

 

[milhanalp]

Sub Düğme1_Tıklat()
Dim Klasörüm, Dosyam As String
On Error Resume Next
ChDir "C:\"
MkDir ("Cari_A1")
'Exit Sub
'''''''
Tarih = Format(Now, "yyyy")
Klasörüm = "Cari_A1"
Dosyam = Tarih & "-" & (ActiveWorkbook.Name)
If Dir(Klasörüm, vbDirectory) = "" Then MkDir (Klasörüm)

ActiveWorkbook.SaveCopyAs Klasörüm & Application.PathSeparator & Dosyam

ActiveWorkbook.Save
MsgBox " Bu dosya, C:\" & (Klasörüm) & " klasörü içerisine yedeklendi.", vbInformation, "YEDEKLEME İÞLEMİ"

End Sub

ben sayfanın üzerindeki bir butonla makroyu çalıştırdım. siz Form üzerinden çalıştırırsınız.
Gerçi

Makrosuz ve Formülsüz arşivlemek istiyorum.

demişsiniz ama...

 

[alpay1]

Sayın milhanalp,
Yardımınız için teşekkür ederim.Henüz denemedim.Denedikten sonra sonucunu bildiririm.
Çok teşekkür ederim.

 

[alpay1]

Değerli arkadaşım,
Kodunuzu denedim.Gayet güzel çalışıyor fakat kodları ve formülleride kaydediyor.Ben arşivdeki dosyada hiç kod ve formül olmasın istiyorum.
Sadece belge olarak dursun,ben yine o arşivi ana programdan açayım istiyorum.
Teşekkürler.

 

[milhanalp]

Alpay1,
Bu sitede Excele 9 takla attıracak arkadaşlar mevcut... Fakat son isteğiniz benim boyumu aşıyor.
Selamlar

 

[Levent Menteşoğlu]

Gayet güzel çalışıyor fakat kodları ve formülleride kaydediyor.Ben arşivdeki dosyada hiç kod ve formül olmasın istiyorum.

Kodları, modülleri silerek hallettiğimizi düşünelim peki formülleri ne yapmak istiyorsunuz? tamamen silmekmi yoksa formulün bulduğu veriyi sadece değere çevirmekmi?

 

[alpay1]

Sayın leventm,
Formülün bulunduğu veriyi değere çevirmek istiyorum.

 

[alpay1]

Sayın leventm,
Bu sorunuma yardımcı olacağınıza inanyorum.Ben tüm dosyanın formülsüz ve makrosuz arşivlenmesini istiyorum.
İyi çalışmalar diliyorum.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Kod içindeki Module1 yazan yere kendi modülünüzün adını yazın, aynı şekilde userform1 içinde geçerli, userform yoksa ilgili satırı silebilirsiniz. Kodlarda yine Sn Haluk beyin çalışmalarından istifade edilmiştir.

[vb:1:f45dd97c3b]Sub temizle()
On Error Resume Next
For a = 1 To Sheets.Count
Set s1 = Sheets(a)
adr = s1.Cells.SpecialCells(xlCellTypeFormulas, 23).Address
For Each hucre In s1.Range(adr)
s1.Range(hucre.Address) = hucre.Value
Next: Next
say = ActiveWorkbook.VBProject.VBComponents.Count
For b = 1 To say
Set ad = ActiveWorkbook.VBProject.VBComponents.Item(b)
adst = ad.codemodule.CountOfLines
ad.codemodule.DeleteLines 1, adst
Next
ActiveWorkbook.VBProject.VBComponents.Remove ActiveWorkbook.VBProject.VBComponents("Module1")
ActiveWorkbook.VBProject.VBComponents.Remove ActiveWorkbook.VBProject.VBComponents("UserForm1")
End Sub
[/vb:1:f45dd97c3b]

Not:Yukarıda verdiğim kod sadece formülleri değere çevirir ve modülleri siler. Dosyanın yedeklenmesi ile ilgili kodlarıda siz monte edersiniz.

 

[alpay1]

Sayın leventm,
Yardımınız için teşekkür ederim.
İyi bayramlar.