Başka bir sayfadaki tarihleri bazı şartlara göre alıp başka sayfaya yapıştırma

[bülent123456bülent]

Merhaba arkadaşlar.
Ekteki dosyada SAYFA 2 de
"1. Adım Sil"
"2. Veri Deposundan Kopyala"
"3. İşlem Yaptır"
"4. Tikleri Kopyala Yapıştır"
"5. TarihArtırıcı" var bunlara birer makro ekli.

Benim istediğim bu makrolar yukarıdaki sırayla çalışsın. bunu yapabilirim. Ama "5. Tarih Artırıcı" da sorun yaşıyorum.
Benim istediğim ilk dört adım sırayla çalışsın. Sonra 5. Adımda tarih artırıcı Benzer tarihleri silmek sayfasına gitsin oradaki A3 hücresindeki tarihi SAYFA 2 deki B2 hücresine yapıştırsın. sonra Tekrar en başa dönsün ilk dört adım çalışsın. 5. adıma gelince Tarih Artırıcı bu sefer Benzer tarihleri silmek sayfasındaki A4 hücresindeki tarihi SAYFA 2 deki B2 ye yapıştırsın. Ve bu şekilde 100 tekrar yapsın her seferinde "Benzer tarihleri silmek" sayfasındaki bir altaki veriyi SAYFA 2 deki B2 hücresine yapıştırsın.

Yardım edeceklere şimdiden çok teşekkür ederim...

 

[Ferhat Pazarçevirdi]

Aşağıdaki gibi yeni bir makro oluşturarak deneyiniz.

Sub Islemler()
    Dim i As Integer
    
    For i = 1 To 100
        Call SİL
        Call kopyalayapıştır
        Call adımadımişlemyaptır
        Call tiklerikopyalayapıştır1
        Sheets("SAYFA 2").Range("B2") = Sheets("Benzer tarihleri silmek").Range("A" & i + 2).Value
        Call TarihSayacı
    Next i
 
End Sub