sayfa 1 den sayfa 2 ye koşullu satır kopyalama

[aarslan]

sorunum ekteki dosyada mevcut daha önce birçok soruma cevap aldım onlar içinde tekrar ve tekrar teşekkür ederim

 

[apocalyt]

sayfa1 sekmesine sağ klik yapıp kod görrüntüle diyin..çıkan ekrana alttaki kodu kopyalayın..sayfa1 de m sutununa KENARDA yazdığınız zaman satır kopyalancaktır..

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [m:m]) Is Nothing Then Exit Sub
If Target = "KENARDA" Then
Rows(Target.Row).Copy
Sheets(2).Range("a" & Target.Row).PasteSpecial
End If
Application.CutCopyMode = False
End Sub

 

[aarslan]

hızlı cevap için çok teşekkürler ama dediklerini yaptım beceremedim
eğer mümkünse yapıp yollayabilirmisin bana

 

[apocalyt]

buyrun..dosyanızı açtığınızda makroyu etkinleştirmeyi unutmayın..

 

[aarslan]

apocalyt çook çok teşekkürler allah razı olsun

 

[apocalyt]

rica ederim..senden de..

 

[knnkenan]

çok özürr de bu kenarda yazdığımda kopyalama kısmını kenarda ve x yazıyosa 2 koşul yanı sizin formülden ilerleyerek yapamadım
hatta 3 koşullu içinde örnek verirseniz çokk mutlu olurum.