Listelemede hata...

[ozgretmen]

Merhaba arkadaşlar , sorum ekte.Yardımlarınız için şimdiden teşekkürler...

 

[Ayhan Ercan]

Selam,,

kodunuz eger "1" ise çalışıyor. "0" veya "x" ise sorun yapıyor diyorsunuz.

0 veya x ise ne yapmasını istiyorsunuz?
siz kodunuzda "bir" adında bir tanımla yapmışsınız.

bir = bir & Cells(x, 7).Value & "-"

bu tanımlamayıda .... hücrede "1" varsa demişsiniz. dolayısyla eger o hücrede 1 yoksa "bir" tanımlaması olmayacak.

Acaba böyle bişeymi istiyorsunuz??
Aşağıdaki gibi kodunuz değişitirip deneyiniz...

Sub liste_al()
Dim bir As String
For y = 8 To 12
    For x = 8 To 17
        If Cells(x, y) = "1" Then
            bir = bir & Cells(x, 7).Value & "-"
            Cells(18, y).Value = Left(bir, Len(bir) - 1)
        End If
    Next
bir = ""
Next
End Sub

 

[ozgretmen]

Teşekkürler Sayın ercan , sorun ortadan kalktı.Allah Razı olsun ...

 

[Ayhan Ercan]

Teşekkürler Sayın ercan , sorun ortadan kalktı.Allah Razı olsun ...

Rica ederim. Cümlemizden..
İyi çalışmalar...