Verilerin Değişmesi

[ANTALYA 01]

Merhabalar
Ekteki Çalışmada D Sütunundaki verileri ÇEVİR Düğmesine Tıkladığımda G Sütunundaki verilere göre
Makronun değiştirmeisini istiyorum.

ÖRNEK
D sütununda AHMET Satıcı 2 Olacak
VELİ Satıcı 1 Olacak
Hakan Satıcı 10 Olacak
Mustafa Satıcı 4 Olacak

Kısaca D Sütunudaki veriler G Sütunundaki verilere bakarak Değişecek

 

[Orion1]

Dosyanız ekte.

Sub degistir()
Dim i As Long
Sheets("Sayfa1").Select
For i = 2 To Cells(65536, "F").End(xlUp).Row
    Range("d2:d65536").Replace What:=Cells(i, "F").Value, Replacement:=Cells(i, "G").Value
Next
MsgBox "İşlem Tamamdır.."
   
End Sub

 

[ANTALYA 01]

D

Teşekkür Ederim.Tam istediğim gibi