Bir hücreye göre diğer hücreleri kopyalama

[recoon]

Arkadaşlar benim yapmak istediğim bir hücredeki değere göre başka hücrelerdeki değerleri başka bir sayfadaki hücrelere kopyalamak veya taşımak istiyorum. örneğin a1 hücresinde ali yazıyorsa b1 hücresini alsın 3.sayfadaki d1hücresine kopyalasın.

Bir arkadaş ;

Sub aktar()
If (Range("a1") = "Ali" Or "1") Then
Range("B1").Select
Selection.Copy
Sheets("Sheet3").Select
Range("D1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
End Sub

gibi bir şey önerdi ama bunu nasıl kullanacağım nerede kullanacağım. office 2007 ingilizce kullanıyorum. Yardımcı olursanız çok sevinirim.

 

[zaferpur]

Tools/macro/visual basic e tıkla.insert menusunden modul e tıkla .çıkan bos yere aşagıdakini yapıstır ve run yada f5 tuşundan çalıstır.
Sub deneme()
If Cells(1, 1) = "ali" Then
Cells(1, 2).Copy Destination:=Sheets(2).Cells(1, 4)
End If
End Sub

 

[recoon]

Olmuyor 400 şeklinde bir hata veriyor makroyu çalıştırınca

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub Düğme1_Tıklat()
Sheets("Sayfa1").Select
If Range("A1").Value = "Ali" Or Range("A1").Value = 1 Then
    Range("B1").Copy Sheets("Sayfa3").Range("D1")
End If

End Sub