Makro ile şarta bağlı kopyalama

[muratcx]

Merhaba arkadaşlar
Örnek dosyada görüleceği üzere Sayfa1 de SERİ NO ve DURUM adlı 2
sütundan oluşan bir tablo var
Yapmak istediğim şey ise SERİ NO sütununda bulunan herhangi bir rakamın
yanına OK yazdığımda otomatik olarak (buton atamadan) Sayfa2 de gösterilen yere OK yazılan hücrenin yanındaki sayıyı kopyalaması ve ayrıca sağındaki hücreye şimdi ki TARİHİ atması. Kayıtlar en sol dulu satıra kaydedilecek şekilde olması lazım.
Şimdiden ilginiz için teşekkür ederim

 

[N.Ziya Hiçdurmaz]

yanıt

Sayfa kod bölümüne uygulayınız

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [c3:c1000]) Is Nothing Then Exit Sub
    If Cells(Target.Row, "c") = "OK" Then
        son = Sayfa2.Cells(Rows.Count, "b").End(xlUp).Row + 1
        Sayfa1.Cells(Target.Row, "b").Copy Sayfa2.Cells(son, "b")
        Sayfa2.Cells(son, "c") = Date
    End If
End Sub

 

[muratcx]

Çok teşekkür ederim hocam eline emeğine sağlık