ilgili veriye bağlı olarak sayfalar arası kopyalama

[muratfix]

değerli arkadaşlar örnek oluşturacak dosyayı ekledim. sayfa2 deki verileri sayfa 1 deki ilgili veriyi dikkate alarak kod yardımıyla kopyalamak istiyorum. Bir iki yol denedim ama başarısız oldum yardımlarınızı bekliyorum.

 

[monelogg]

Merhabalar, şu kodun işinizi göreceğini düşünüyorum.

Sub kopyala()
Application.ScreenUpdating = False
For i = 4 To 1000 Step 4
If Cells(i, 3).Value = "A" Then
Sheets("Sayfa2").Select
Range("F4:FL5").Select
Selection.Copy
Sheets("Sayfa1").Select
Cells(i + 1, 4).Select
ActiveSheet.Paste
ElseIf Cells(i, 3).Value = "B" Then
Sheets("Sayfa2").Select
Range("F9:FL10").Select
Selection.Copy
Sheets("Sayfa1").Select
Cells(i + 1, 4).Select
ActiveSheet.Paste
If Cells(i, 3) = "" Then
Exit For
End If
End If
Next
Application.ScreenUpdating = True

End Sub

 

[muratfix]

çök teşekkür ederim istediğim tam da böyle bir şey idi...