bir sayfadaki hücreyi diğer bir sayafaya aktarmak

[seranonet]

ben bir sayafada seçtiğim hücreler diğer sayfaya aktarmak istiyorum

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub Düğme4_Tıklat()
For i = 2 To 4
    If Cells(i, "A").Value = True Then
        Sheets("Sayfa2").Cells(i, "B").Value = Cells(i, "B").Value
    End If
Next
MsgBox "Aktarma Yapıldı..!!"
End Sub

 

[seranonet]

Ekli dosyayı inceleyiniz.

Sub Düğme4_Tıklat()
For i = 2 To 4
    If Cells(i, "A").Value = True Then
        Sheets("Sayfa2").Cells(i, "B").Value = Cells(i, "B").Value
    End If
Next
MsgBox "Aktarma Yapıldı..!!"
End Sub

arkadaşım eki eklemeyi unuttun sanırım :s