Aynı hücreleri koşullu yanındaki hücre değeriyle beraber kopyalama ?

[garbanzo]

Merhaba arkadaşlar,
Ofis 2007 kullanıyorum.
Tekrarlanan hücreleri bulup yanındaki ilişkili hücreyle beraber kopyalayabilirmiyiz ?
sırala ve filtre uygulamadan yapıyorum aynı isimleri kopyalıyor ama yanındaki hücredeki değer sabit kalıyor..Örnek dosyadan bakarsanız sevinirim.

 

[Necdet]

Merhaba,

Sorunuzu pek anlamadım, sonucu örnek dosyada gösterir misiniz?

 

[garbanzo]

Merhaba,
ilginize teşekkür ederim.istediğim Sonucu ekli dosyada gösterdim.

 

[Necdet]

Merhaba,

Kodları deneyiniz.

Sub Duzenle()
    Dim i   As Long, _
        Son As Long, _
        c   As Range
    
    Application.ScreenUpdating = False
    Range("F:H").Clear
    Son = Cells(Rows.Count, "A").End(3).Row
    
    Range("A2:B" & Son).Copy Range("F2")
    Range("H2") = "Fiyat/TL"
    
    For i = 3 To Son
        Set c = Range("C:C").Find(Cells(i, "F"), LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then Cells(i, "H") = Cells(c.Row, "D")
    Next i
    
    MsgBox "Düzenleme Bitti..", vbInformation, "N. YEŞERTENER --> [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
    
    Application.ScreenUpdating = True
    
End Sub

 

[garbanzo]

teşekkür ederim çok başarılı..

 

[Necdet]

teşekkür ederim çok başarılı..

Güle güle kullanınız.