eğer problemim :)

[wolwaren]

eper ile yapılabileceğine inandığım ama ulaşamadığım bir sorum var.
değerleri aynı olan firma isimlerini nasıl yazdırbilirim?

 

[hamitcan]

Sub AyniFiyat()
[a15:c500].Clear
c = 14
For i = 3 To 6
For Each hcr In Range("b" & i & ":o" & i)
If WorksheetFunction.CountIf(Range("b" & i & ":o" & i), hcr) > 1 Then
c = c + 1
 Cells(c, 1) = Cells(hcr.Row, 1)
 Cells(c, 2) = Cells(2, hcr.Column)
If Cells(2, hcr.Column) = "hırka" Then
Cells(c, 3) = hcr
Else
Cells(c, 4) = hcr
End If
End If
Next
Next

 

[wolwaren]

hamitcan hocam sağolun güzel olmuş keşke formüllede yapılabilsydi. ben bu kod kısmında üretici yazan yere üretici firma adınında gelmesini istesem ve hep bakırköy değilde diğer mağazalarıda görebilsem ne yapmalıyım

 

[hamitcan]

Kodda bir hata yapmışım. İlgili satırı aşağıdaki ile değiştirin.

 Cells(c, 2) = Cells(1, hcr.Column)