Ürün stok miktarlarını yan yana yazdırmak

[kneehot]

Arkadaşlar merhaba, anlatması çok zor olacak diye hem bir görsel hem de örnek dosya ekliyorum. Tüm yardımlara şimdiden teşekkürler.

 

[Muhammet Okumuş]

Merhaba,
Kodu deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("K12")) Is Nothing Then Exit Sub
If WorksheetFunction.CountIf(Range("C:C"), Range("K12")) = 0 Then
Range("L12") = ""
MsgBox "Kod bulunamadı.", vbInformation, "Uyarı"
Exit Sub
End If
x = WorksheetFunction.Match(Range("K12"), Range("C:C"), 0)

sut = WorksheetFunction.CountA(Range("D" & x & ":H" & x))
n = 1
For i = 4 To 8
If Cells(x, i) <> "" Then
If n = 1 Then
a = Cells(x, i) & " " & Cells(11, i)
n = 2
Else
a = a & ", " & Cells(x, i) & " " & Cells(11, i)

End If

End If


Next
Range("L12") = a

End Sub

 

[Korhan Ayhan]

Alternatif;

=METİNBİRLEŞTİR(", ";1;EĞER(KAYDIR(C11;KAÇINCI(K12;C11:C16;0)-1;1;;5)<>"";KAYDIR(C11;KAÇINCI(K12;C11:C16;0)-1;1;;5)&" "&KAYDIR(C11;;1;;5);""))

 

[kneehot]

Tüm yardımlara teşekkürler