listeleme

[ozgretmen]

Merhaba arkadaşlar ,
Sorum ekte.Yardımlarınızı bekliyorum.Saygılar...Herkese iyi çalışmalar...

 

[Orion1]

Dosyanız ekte.

Sub listele()
Dim deg As String
For x = 8 To 22
c = 0
For y = 8 To 17
If Cells(y, x) = "1" Then
deg = deg & Str(Cells(y, 7).Value) & "-"
'Cells(c + 17, x) = Cells(y, 7).Value
End If
Next
Cells(18, x).Value = Left(deg, Len(deg) - 1)
deg = ""
Next
End Sub

 

[ozgretmen]

Teşekkürler Sayın Evren Gizlen ! Sizlerin sayesinde Excele gün geçtikçe daha hakim olmaya başladım.Saygılar...

 

[Orion1]

Teşekkürler Sayın Evren Gizlen ! Sizlerin sayesinde Excele gün geçtikçe daha hakim olmaya başladım.Saygılar...

Rica ederim.
İyi çalışmalar.