Bir sütunda bulunan verileri yenisi ile değiştirme

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar, Ekli dosyamın B sütununda bulunan plakaları H sütununda belirtmiş olduğum plakaları makro ile değiştirmek istiyorum. Yardımlarınız için şimdiden teşekkür ederim. İyi geceler.

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kod ile yapabilirsiniz.

Sub Test()
    Dim Bak As Integer
    For Bak = 2 To Cells(Rows.Count, "G").End(xlUp).Row
        Range("B:B").Replace Cells(Bak, "G"), Cells(Bak, "H"), lookat:=xlWhole
    Next
    MsgBox "İşlem tamamlandı."
End Sub

 

[Hacı Bayram ÖZKAN]

Sayın Muzaffer Abim çok teşekkür ederim. Eline sağlık dua ile kal.

 

[Muzaffer Ali]

Rica ederim. İyi akşamlar.

 

[Hacı Bayram ÖZKAN]

Sayın abim; Bu dosyada B:B sütununda bulunan bütün verileri G:G sütununa alıp, yada almadan yinelenenleri kaldırmak için nasıl bir kod yazılır. Benzersiz olanlar G2'den aşağı doğru olacak. Teşekkürler.

 

[Muzaffer Ali]

Soruyu daha açar mısınız? Anlamadım.

 

[Hacı Bayram ÖZKAN]

Sayın abim 1 nolu mesajımın ekinde bulunan dosyada B sütununda alt alta yüzlerce veya binlerce plakalar var görüldüğü gibi bunları sizin yazdığınız kodla değiştireceğim ya, Bu B sütununda bulunan 11 adet plakayı bu plakalar G sütununda görünüyor, ben bunu makro ile (G sütununda yazılı değil iken) B sütununda yinelenenleri kaldırım 11 adete düşürmek istiyorum.

 

[Muzaffer Ali]

Aşağıdaki kod ile yapabilirsiniz.

Sub Test()
    Range("B:B").Copy Range("G1")
    Range("G:G").RemoveDuplicates Columns:=1, Header:=xlYes
End Sub

 

[Hacı Bayram ÖZKAN]

Sayın abim çok teşekkür ederim, bilmek bu olsa gerek iyi geceler

 

[Korhan Ayhan]

Merhaba,

Rica etsem profilinizde ki excel sürüm (2003) bilgisini günceller misiniz?

 

[Hacı Bayram ÖZKAN]

Sayın Korhan hocam dediğiniz yeri bulamadım, hatta profil adımı da değiştirmek istiyorum, yardımcı olur musunuz?