Satırı Sütuna koşullu taşıma

[davutatar]

İyi günler üstatlar,

18 satır ve 17 sütunda bulunan 0 dışında ki değerleri tek bir sütuna taşımak istiyorum. Ancak burada aramış olduğum koşul şu;

2. satırı sütuna taşıdıktan sonra 3. satırın son değerinden başlayarak aynı işlemi yapmak istiyorum. Örnek dosyayı ekliyorum buraya. Örnek dosyada verinin orjinal hali ve istenilen konuyu tekrardan açıkladım. Şimdiden çok teşşekkür ederim.

 

[çıtır]

Deneyiniz.

Sub alyaz()
 Set s1 = Sheets("değerler")
    Set s2 = Sheets("istenen")
    s2.Range("A2:A" & Rows.Count).Cells.ClearContents
    ss = s2.Range("A" & Rows.Count).End(3).Row + 1
    t = 2
Bas:
    For i = 2 To s1.Range("A" & Rows.Count).End(3).Row
        If s1.Cells(t, i) >= 1 Then
            s2.Cells(ss, 1) = s1.Cells(t, i)
            ss = ss + 1
        End If
    Next
    t = t + 1
     For i = s1.Range("A" & Rows.Count).End(3).Row To 2 Step -1
        If s1.Cells(t, i) >= 1 Then
            s2.Cells(ss, 1) = s1.Cells(t, i)
            ss = ss + 1
        End If
    Next
    t = t + 1
     If t < 19 Then
     GoTo Bas
     End If
End Sub

 

[davutatar]

Sayın çıtır öncelikle yardımınız için teşekkür ederim ancak vermiş olduğunuz kod ile sütunları tek bir sütun şekline getiriyor. Yapmak istediğim şey satırları tek bir sütuna toplamak. Bu yüzden vermiş olduğun kod sorunu çözmeme yetmedi. Yinede çok teşekkür ederim emeğiniz için.

 

[çıtır]

Kodu yeniledim.Bu kodu deneyiniz.Umarım olmuştur.

 

[davutatar]

Kodu yeniledim.Bu kodu deneyiniz.Umarım olmuştur.

Tam olarak istediğim buydu çok teşekkür ederim. Ellerinize sağlık. Bunu orjinal verinin olduğu sayfaya nasıl uyarlayabilirim.

Çünkü bunun gibi birçok excel sayfası var hepsinde bu kodu çalıştırmak istiyorum.

 

[çıtır]

Tam olarak istediğim buydu çok teşekkür ederim. Ellerinize sağlık. Bunu orjinal verinin olduğu sayfaya nasıl uyarlayabilirim.
Çünkü bunun gibi birçok excel sayfası var hepsinde bu kodu çalıştırmak istiyorum.

Rica ederim.Orjinal veriniz örnekle tam uygun değil ,başta boşluk var ,sütun sayısı fazla, orjinal veride nasıl olaçağı konusu tam net değil ben AH sütunundan başlanaçağı ve sonu kadar giderek (CC sütunundan) dönüş yapılaçağını varsayarak kodu düzenledim. Uygun değilse gerekli düzenlemeleri yaparsınız diye düşündüm.Dosya olarak ekliyorum.Kolay gelsin.