sayfa 2 de deger karşılıgını sayfa 1 ye yazıracak

[oydemir]

arkadaşlar sayfa2de h1=kam sayfa2 a1 karsılığını sayfa 1de a1 sutununa yazacak bu işlemi sayfa 2 nin sonuna kadar yapacak sayfa1 re yazarkan alalta yazacak bunu makro olarak yapabilirmiyim.şimdiden yardımlarınız için teşekkürler

 

[hamitcan]

Sub Aktar()
    c = 1
    Sayfa1.[a2:a500].ClearContents
    For Each hcr In Sayfa2.Range("h1:h" & Sayfa2.[h65536].End(3).Row)
        If hcr.Text = "kam" Then
            c = c + 1
            Sayfa1.Cells(c, 1) = Sayfa2.Cells(hcr.Row, 1)
        End If
    Next
    MsgBox "Bitti"
End Sub

 

[numan şamil]

arkadaşlar sayfa2de h1=kam sayfa2 a1 karsılığını sayfa 1de a1 sutununa yazacak bu işlemi sayfa 2 nin sonuna kadar yapacak sayfa1 re yazarkan alalta yazacak bunu makro olarak yapabilirmiyim.şimdiden yardımlarınız için teşekkürler

Merhaba
Ekili dosyayı inceler misiniz

 

[oydemir]

elinize sağlık teşekkürler çok iyi olmuş emeğinize saglık

 

[oydemir]

tam istediğim gibi (adrese teslim)