hücreleri birleştirip yazdırma

[edirik]

bi kumaşın içindeki muhteviyatı tek satır olarak yazdırmaya çalışıyorum tek bir hücreye. mesela aşağıdaki gibi yüzdelerde bir içerik var

vis 45%
cot 0%
pes 35%
acr 20%


burada 0 olan değeri yazdırmasın , atlasın ve diğerlerini yazdırırken araya virgül koysun.

yani sonuç olarak

vis 45%,pes35%,acr20% şeklinde yeni bir hücreye yazdırsın.

mümkünmü acaba ?

örnek dosya ektedir.

Teşekkürler.

 

[Orion1]

Sub z()
Dim i As Byte, deg As String
For i = 3 To 6
    If Cells(i, "C").Value > 0 Then deg = deg & "," & Cells(i, "B").Value & Format(Cells(i, "C").Value, "#,##0%")
Next
deg = Right(deg, Len(deg) - 1)
Range("A1").Value = deg
End Sub

 

[Excel113]

Formülle alternatif;

 

[Excel113]

Formülle cevap aramaya devam...

 

[edirik]

Kod süper çalışıyor. hedefi 12 den formülle alternatiflerde güzel. ikinci alternatifte virgülleri çıkarırsam aradan daha iyi duruyor. Formülle acaba 0 olan değeri boş olarak bile yazmasa. böyle bir şey mümkünmü.

Çok teşekkürler.

 

[Excel113]

Sn. edirik,

Virgül sorunu tamamdır...

 

[edirik]

teşekkürler