Sıralı değer Yazdırma

[iaslan517]

Herkese Merhabalar,

Ekte belirttiğim dosyadaki excel deki verileri yatay sütundan dikey sütunda girilen değere göre yazdıran program yapılabilir mi?

 

[Muhammet Okumuş]

Merhaba

Sub Sırala()
For i = 6 To 13
a = 4
x = WorksheetFunction.Match(Cells(3, i), Range("A1:A17"), 0)
For j = x To 17
Cells(a, i) = Cells(j + 1, 1).Value
a = a + 1
Next
Next

End Sub

Kodu deneyiniz.

 

[Ömer BARAN]

Merhaba.

Soruyu Makro-VBA bölümüne açmışsınız ve Sayın Okumuş da makro ile çözümü üretmiş.

Benden de formül ile çözüm önerisi olsun.
Aşağıdaki formülü F4 hücresine uygulayıp, sağa ve aşağı doğru kopyalayarak da aynı sonucu alabilirsiniz.
.

=[COLOR="red"]EĞER[/COLOR](F$3="";"";[COLOR="red"]EĞER[/COLOR]([COLOR="red"]EĞERSAY[/COLOR]($A:$A;F$3)=0;"";[COLOR="red"]EĞER[/COLOR]([COLOR="red"]KAÇINCI[/COLOR]("ZZZ";$A:$A;1)-2<[COLOR="red"]KAÇINCI[/COLOR](F$3;$A$3:$A$17;0)+[COLOR="red"]SATIR[/COLOR](A1);"";[COLOR="red"]KAYDIR[/COLOR]($A$2;[COLOR="red"]KAÇINCI[/COLOR](F$3;$A$3:$A$17;0)+[COLOR="Red"]SATIR[/COLOR](A1);0))))