Excel Veri Yedekleme İşlemi

[yusufatas]

Hayırlı Bayramlar;

-----------------------------------------------------------------------------------------------------------------------------------------------
1-) Aşağıdaki kod BB adlı sayfadaki seçili hücrelerdeki verileri excel dosyasının kapanışında CC adlı sayfaya tek satır farklı sutunlara yedekliyor.Bu yedekleme işlemini 2 sutun serbest satır olarak değiştirmek istiyorum.Yani verileri yatay yedeklemeden dikey yedekleme işlemine ve 2 sıra halinde yedekleme işlemine dönüştürmek.Mümkünse aşağıda yedeklenmesi seçilmiş hücreler boş ise yedeklenmemesi.



Private Sub kaydet()
Set s1 = Sheets("BB")
Set s2 = Sheets("CC")
sut = 2
son = s2.Cells(Rows.Count, "A").End(3).Row + 1

s2.Cells(son, "A") = Now

For Each hcr In s1.Range("D12,D32,D16,H32")
s2.Cells(son, sut) = hcr.Value
sut = sut + 1
Next
ThisWorkbook.Save
End Sub

-----------------------------------------------------------------------------------------------------------------------------------------------

2-) Excel dosyasının her kapanışda belirli bir klasörde yedeklenmesi.



Bu konularda yardımcı olur musunuz