Şartlı kopyalama - Tarih Güncelleme

[asas44]

S.a. kolay gelsin Excel sayfasında hergün bir üstte kalan tabloyu kopyalayıp tarih güncellemesi yaptığımız tablolar var. Bir butona bağlı olarak en altta kalan tabloyu kopyalayıp bir satır boşluk bırakarak yapıştırıp tarih kolonu kısmına bugünün tarihini yazabilirmi acaba ? Bu işlemi her gün yapacağımız için en altta kalan güncel tabloyu alması tarihi güncellemesi gerek Örnek çalışmayı yükledim yardımcı olursanız sevinirim şimdiden teşekkür ederim.
Ör: Örnek dosya.rar - 7 KB

 

[Necdet]

Merhaba,
Aşağıdaki kodu dener misiniz?

Sub Tablo_Kopyala()

    Dim i   As Long, _
        j   As Long, _
        k   As Integer
        
    i = Cells(Rows.Count, "A").End(3).Row
    
    j = Cells(i, "A").End(xlUp).Row
    
    k = i - j
    
    Range("A" & j & ":G" & i).Copy Range("A" & i + 1)
    
    j = i + 2
    i = j + k - 1
    
    Range("A" & j & ":A" & i) = Date
    
End Sub

 

[recepkull]

Bende bu kodu hazırlamıştım alternatif olsun.

Sub Test()
    sn = Range("A" & Rows.Count).End(xlUp).Row
    Range(Cells(sn - 9, 1), Cells(sn, 7)).Copy Cells(sn + 2, 1)
    Range(Cells(sn + 3, 1), Cells(sn + 11, 1)) = Date
End Sub

 

[asas44]

Çok teşekkür ederim elinize sağlık

 

[asas44]

Bende bu kodu hazırlamıştım alternatif olsun.

Sub Test()
    sn = Range("A" & Rows.Count).End(xlUp).Row
    Range(Cells(sn - 9, 1), Cells(sn, 7)).Copy Cells(sn + 2, 1)
    Range(Cells(sn + 3, 1), Cells(sn + 11, 1)) = Date
End Sub

Hocam bu tam istediğim gibi oluyor ama satır sayıları sabit olmadığı için arasında bir boşluk istemiştim. Yani bir sonraki gün 15 satır olabilir bu veri yada 8 satıra düşebilir. Bü yüzden en son tabloyu boşluga kadar olan kısmı alması mümkün mü acaba ?

 

[asas44]

Konu güncel ... Tabloya günlük veri işleniyor o yüzden kopyalanan en son tablonun satır sayısı değişken konu hakkında yardımcı olabilecek varmı acaba ?

 

[asas44]

Bende bu kodu hazırlamıştım alternatif olsun.

Sub Test()
    sn = Range("A" & Rows.Count).End(xlUp).Row
    Range(Cells(sn - 9, 1), Cells(sn, 7)).Copy Cells(sn + 2, 1)
    Range(Cells(sn + 3, 1), Cells(sn + 11, 1)) = Date
End Sub

Bu kodda son tablonun 10 satırını alıyor hocam. Son tablonun satır sayısına bakmaksızın son tablonun hepsini alması mümkünmü ?