Tablo ve formül

[contct]

Ustalar emeğinize sağlık.yardımlarınız için ekte belirttiğim dosyada yapmaya çalıştığımı anlattım yardımcı olursanız tşk.lerimi sunarım

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu hergün "00:05" te elle çalıştırın.

Option Explicit
 
Sub YEDEKLE()
    Dim FSO As Object, DOSYA_YOLU As String, DOSYA_ADI As String
    
    DOSYA_YOLU = "D:\YEDEK"
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    If Not FSO.FolderExists(DOSYA_YOLU) Then FSO.CreateFolder (DOSYA_YOLU)
        
    DOSYA_ADI = Format(Date, "dd_mm_yyyy") & ".xls"
    
    ActiveWorkbook.SaveCopyAs Filename:=DOSYA_YOLU & "\" & DOSYA_ADI
    Range("C4:Q27").ClearContents

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[contct]

Merhaba,

Aşağıdaki kodu hergün "00:05" te elle çalıştırın.

Option Explicit
 
Sub YEDEKLE()
    Dim FSO As Object, DOSYA_YOLU As String, DOSYA_ADI As String
    
    DOSYA_YOLU = "D:\YEDEK"
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    If Not FSO.FolderExists(DOSYA_YOLU) Then FSO.CreateFolder (DOSYA_YOLU)
        
    DOSYA_ADI = Format(Date, "dd_mm_yyyy") & ".xls"
    
    ActiveWorkbook.SaveCopyAs Filename:=DOSYA_YOLU & "\" & DOSYA_ADI
    Range("C4:Q27").ClearContents

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

yardımınız için tşkler ANCAk verdiğiniz bu kodlarda formullerde gidiyor formullerin kalması için nasıl bir yöntem uygulamam lazım mesela bu verdiğiniz koda ilave olarak örneğin E10:G33 arasına ellemeden diğer hücreleri sil gibi bişi olabilir mi

 

[Korhan Ayhan]

Merhaba,

Sizin eklediğiniz dosyada sadece "R" sütununda formül var. Bende kodu buna göre düzenlemiştim.

Silinecek alanlar hangi sütunlardır?

 

[contct]

Merhaba,

Sizin eklediğiniz dosyada sadece "R" sütununda formül var. Bende kodu buna göre düzenlemiştim.

Silinecek alanlar hangi sütunlardır?

hocam dosyanın aslı farklı ve büyük olduğu için aslını göndermemiştim.Asıl dosyada formul olan sutunlar ve gizli sütünlar var sadece silinmesini istediğimiz kısımlar için kod eklememiz mümkün mü?
yani
AC10:AL33
AK10:AP33 ü bunun gibi satır ve sütünları ekleyebileceğimiz yerleri silmesi diğer yerlere dokunmadan olduğu gibi kalması için bir kod üretebilirmiyiz?

 

[Korhan Ayhan]

Merhaba,

Kod içindeki aşağıdaki satır silme işlemi yapıyor.

Range("C4:Q27").ClearContents

Siz bu satır yerine aşağıdaki gibi kullanırsanız istediğiniz sonuca ulaşabilirsiniz.

Range("AC10:AL33,AK10:AP33").ClearContents