5 ayrı hücrede düşeyara yapma

[hakansali]

Arkadaşlar,
ekte dosyamı sundum.
Derdim,
data sayfasında görüldüğü gibi her bir ürün için ayrı 5 ayrı barkod kodum var
ve bana sayfa 2 de görüldüğü gibi karışık barkod listesi geliyor
ve bu listeyi data sayfasında en sağda görünen stok kodunda hangisine denk geldiğini bulmam gerekiyor...
Makroda hangi formülle çözebilirim?
şimdiden çok teşekkürler...

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Bul()
    
    Dim sd As Worksheet, i As Long, c As Range
    
    Set sd = Sheets("DATA")
    
    Sheets("Sayfa2").Select
    Range("B2:B" & Rows.Count).ClearContents
    
    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        Set c = sd.[A:F].Find(Cells(i, "A"), , xlValues, xlWhole)
        If Not c Is Nothing Then
            Cells(i, "B") = sd.Cells(c.Row, "G")
        End If
    Next i
 
End Sub

.

 

[Merhum İdris SERDAR]

Arkadaşlar,
ekte dosyamı sundum.
Derdim,
data sayfasında görüldüğü gibi her bir ürün için ayrı 5 ayrı barkod kodum var
ve bana sayfa 2 de görüldüğü gibi karışık barkod listesi geliyor
ve bu listeyi data sayfasında en sağda görünen stok kodunda hangisine denk geldiğini bulmam gerekiyor...
Makroda hangi formülle çözebilirim?
şimdiden çok teşekkürler...

.

Bu da formülle...


.

 

[hakansali]

merhaba,

bu şekilde deneyin.

sub bul()
    
    dim sd as worksheet, i as long, c as range
    
    set sd = sheets("data")
    
    sheets("sayfa2").select
    range("b2:b" & rows.count).clearcontents
    
    for i = 2 to cells(rows.count, "a").end(xlup).row
        set c = sd.[a:f].find(cells(i, "a"), , xlvalues, xlwhole)
        ıf not c ıs nothing then
            cells(i, "b") = sd.cells(c.row, "g")
        end ıf
    next i
 
end sub

.

çok çok teşekkür ederim. Ellerine sağlık....