İsaretli veriyi aktarma

[buseen]

selam arkadaşlar bir sayfadan diger sayfaya işaretleyip aktarmak isyiyorum kayıtları
mesala X işareti koyp o satırı kopyalamak diger sayfaya örnek bulamadım

 

[Orion1]

A sütununda X leri kontrol edip satır sayfa2 ye atıyor.

Sub xleriaktar()
Sheets("Sayfa1").Select
Sheets("Sayfa2").Cells.ClearContents
sat = 1
For i = 1 To Cells(65536, "A").End(xlUp).Row
    If UCase(Cells(i, "A").Value) = "X" Then
        Sheets("Sayfa2").Range(Sheets("Sayfa2").Cells(sat, "A"), _
        Sheets("Sayfa2").Cells(sat, "IV")).Value = _
        Range(Cells(i, "A"), Cells(i, "IV")).Value
        sat = sat + 1
    End If
Next i
MsgBox "Akatrım tamamlandı"
        
End Sub

 

[Yesilyurtlu]

Evren Uzmanım;

Hazıra Konmış gibi olduk ama bizde bu koddan yararlandık. TEşekkür ederim. Bunun gibi örneklerinizi bekleriz. İnanın mükemmel bir örnek

 

[Orion1]

Evren Uzmanım;

Hazıra Konmış gibi olduk ama bizde bu koddan yararlandık. TEşekkür ederim. Bunun gibi örneklerinizi bekleriz. İnanın mükemmel bir örnek

Rica ederim.
İyi çalışmalar.

 

[buseen]

Sayın Evren Teşekkürler.

 

[buseen]

Sayın Evren sayfa adları isim ise nasıl isimsayfasına nasıl aktarılabilir o satır
a sutunu isaret koyduk b sütünda isim var o kişeye aitte safya

 

[buseen]

Arkadaşlar yardım