x koy, satırı komple sayfa 1 e kopyala

[arol11]

Tekrar Selamlar ve iyi akşamlar,
Ekli örnekteki uygulama sadece bir sutundaki veriyi kopyalıyor.Acaba yardımcı olmanız ve kodları tekrara düzenlemeniz mümkünmü sayın cost control.
X koyduğum tüm satır sayfa 1 e aktarılmalı.
Teşekkür ediyorum.

 

[N.Ziya Hiçdurmaz]

yanıt

Bu şekil denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, [A2:A65536]) Is Nothing Then Exit Sub
    For i = 1 To [a65536].End(3).Row
    If Range("a" & i) = "x" Then
    Rows(i).Copy
    s = s + 1
    Sheets("Sayfa1").Range("a" & s).PasteSpecial Paste:=xlValue
    End If
    Next
    Application.CutCopyMode = False
End Sub

 

[arol11]

Sayın V.Basic For Applications,
kodlarınız çok gürültülü çalışıyor.nerdeyse sağır oldum.
Teşekkür ediyorum.İyi geceler.