Hücre dolu ise başka hücreye kopyalama

[StarsScream]

Merhaba Arkadaşlar.
Siteye bağlı online bir excel var bunu her gün tarihi ile kopyalamam lazım bunun için de bir makro lazımmış.
C17 den C433 e kadar bir yeri kopyaladıktan sonra 2. sayfada ilk gün B2'ye ikinci gün C2'ye... bu şekilde her gün tıklayabileceğim bir buton oluşturabilen bir kod yazabilecek bir kişi yardım edebilir mi?

B2 dolu ise C2'ye, C2 dolu ise D2'ye kopyalayabilecek bir kod kısacası.

Şimdiden teşekkürler.

 

[Necdet]

Merhaba,

Aşağıdaki kodları deneyiniz, uymazsa kendinize göre uyarlayınız.

Kopyalanacak alan (C17:C433) sabit kabul edildi.

Sub Kopyala()

    Dim s1  As Worksheet, _
        s2  As Worksheet, _
        Kol As Integer
    
    Set s1 = Sheets("Sayfa1")
    Set s2 = Sheets("Sayfa2")
    
    On Error Resume Next
    
    Kol = s2.Range(Cells(2, 1), Cells(2, Columns.Count)).Find("*", , , , xlByColumns, xlPrevious).Column
    Kol = Kol + 1
    
    
    s1.Range("C17:C433").Copy s2.Cells(2, Kol)
    
End Sub

 

[StarsScream]

Yardımın için teşekkürler.