• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

  • Konbuyu başlatan Konbuyu başlatan alpay1
  • Başlangıç tarihi Başlangıç tarihi
A

alpay1

Katılım
22 Ekim 2004
Mesajlar
178
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.
 
yanıt

COMANDBUTTONA İCON EKLEME NOT:DİÐER RESİM EKLEMELERDE FORMATI KABUL ETMİYORSA RESMİ FARKLI KAYDETTEN .JPG FORMATINA ÇEVİRİNİZ.
 
:?
 
Haluk bey alpay1 kardeşimizin butonlara resim eklemeyle ilgili sorusu olmuştuda!
 
Kod: 
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.
Genişletmek için tıkla ...
demişsiniz ama...
 
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.
 
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.
 
Alpay1,
Bu sitede Excele 9 takla attıracak arkadaşlar mevcut... Fakat son isteğiniz benim boyumu aşıyor.
:( Selamlar
 
Gayet güzel çalışıyor fakat kodları ve formülleride kaydediyor.Ben arşivdeki dosyada hiç kod ve formül olmasın istiyorum.
Genişletmek için tıkla ...
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?
 
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.
 
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.
 
Sayın leventm,
Yardımınız için teşekkür ederim.
İyi bayramlar.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst