liste güncelleme hakkında yardım

[serkankaplan]

Merhaba! elimde güncellenmesi gereken bir liste var yardımcı olursanız çok sevinirim.İlk liste olan güncel listenin C sütunundaki kodlar ile güncellenecek olan B sütunundaki kodlar ortaktıktır bu kodlar refarans alınarak güncel listede D sütunundaki fiyatlar güncellenecek listedeki D sütununa aktarılacak.Anlatabildiysem eğer.

 

[Ömer BARAN]

Merhaba. Foruma hoşgeldiniz.

Formülü D2 hücresine uygulayın ve aşağı doğru liste boyunca kopyalayın.
.

=EĞER(EHATALIYSA(KAÇINCI(B2;'GÜNCEL FİYAT LİST'!$C$2:$C$4059;0));"";İNDİS('GÜNCEL FİYAT LİST'!$D$2:$D$4059;KAÇINCI(B2;'GÜNCEL FİYAT LİST'!$C$2:$C$4059;0);0))

 

[veyselemre]

Makroyla yapmak isterseniz,

Sub fiyatGuncelle()
    Set s1 = Sheets("GÜNCEL FİYAT LİST")
    Set s2 = Sheets("GÜNCELLENECEK LİSTE")
    
    a = s1.Range("C2:D" & s1.Cells(Rows.Count, 1).End(3).Row).Value2
    
    With CreateObject("Scripting.Dictionary")
        For i = LBound(a) To UBound(a)
            key = a(i, 1)
            If key <> "" Then .Item(key) = a(i, 2)
        Next i
        s2.Select
        For i = 2 To Cells(Rows.Count, 2).End(3).Row
            key = Cells(i, 2)
            If key <> "" And .exists(key) Then Cells(i, 4) = .Item(key)
        Next i
    End With
End Sub

 

[serkankaplan]

Ömer bey çok teşekkür edediyorum.Allah razı olsun.

 

[serkankaplan]

Emeğinize sağlık başarılar diliyorum ayrı ayrı sağolunuz.