İstenilen Satır Değerlerini Değiştirmek

[SER973]

DATA Sayfasında Kayıtlı olan verileri Aktif Sayfadaki Verilere Göre Değiştime işlemlerini macro ile yapmak için çözüm önerileriniz ve yardımlarınızı bekliyorum..

Konu ile ilgli açıklamalı örnek dosya ektedir.

 

[leumruk]

Selamlar,
Aşağıdaki kodu deneyiniz.

Sub Aktar()
For i = 4 To [a65536].End(3).Row
For x = 2 To [DATA!b65536].End(3).Row
If Cells(i, "a") = Sheets("DATA").Cells(x, "b") Then
Sheets("DATA").Cells(x, "b").Offset(0, 3) = Cells(i, "a").Offset(0, 2)
Sheets("DATA").Cells(x, "b").Offset(0, 4) = Cells(i, "a").Offset(0, 3)
End If
Next x
Next i
End Sub