Farklı adetteki satır bilgilerini, sütunlara çevirmek.

[yst10]

İyi geceler arkadaşlar,
Gecenin bu saati oldu ama işin içinden çıkamadım.
Sorum, sorunum ekli dosyada,
Önerilerinizi bekliyorum.
Hoşçakalın.
Yavuz Tümer

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub AKTAR()
    Set S1 = Sheets("ELDEKİ LİSTE")
    Set S2 = Sheets("SONUÇ")
    S1.Select
    S2.[A2:F65536].Clear
    SATIR = 2
    For X = 2 To 8 Step 3
    For Y = 2 To S1.Cells(65536, X).End(3).Row
    S2.Cells(SATIR, 1) = S1.Cells(1, X)
    S2.Cells(SATIR, 2) = S1.Cells(Y, X)
    S2.Cells(SATIR, 3) = S1.Cells(Y, X + 1)
    S2.Cells(SATIR, 4) = S1.Cells(Y, X + 2)
    If X = 8 Then
    S2.Cells(SATIR, 5) = S1.Cells(Y, X + 3)
    S2.Cells(SATIR, 6) = S1.Cells(Y, X + 4)
    End If
    SATIR = SATIR + 1
    Next
    Next
    Set S1 = Nothing
    Set S2 = Nothing
    MsgBox "Aktarım işlemi tamamlanmıştır.", vbInformation
End Sub

 

[yst10]

Korhan Bey, Selamlar,
İlginize nasıl teşekkür ederim bilemiyorum, beni mahçup ediyorsunuz.
Verdiğiniz kodu denedim, ""S2.Cells(SATIR, 1) = S1.Cells(1, X)"" satırında, "Run-time error '1004': Application-defined or object-defined error" şeklinde bir hata verdi. Size gönderdiğim örnekte uyguladım.
Teşekkür ederim.
Yavuz Tümer

 

[Orion1]

Set S2 = Sheets("SONUÇ")

Set S1 = Sheets("ELDEKİ LİSTE")

SONUÇ isminde sayfanız varmı?
Veya ELDEKİ LİSTE isminde sayfa varmı?

 

[yst10]

Set S2 = Sheets("SONUÇ")

Set S1 = Sheets("ELDEKİ LİSTE")

SONUÇ isminde sayfanız varmı?
Veya ELDEKİ LİSTE isminde sayfa varmı?

Elbette var, örnek dosya ne ise, o. Aynı dosyaya uyguladım bir buton ile.

 

[Orion1]

65536ncı satırda bazı veriler vardı.Ben sadece onları sildim.
Dosya bende sorunsuz çalıştı.
Ekli dosyayı inceleyiniz.

 

[yst10]

Sn. Evren Gizlen, Haklısınız.
Allta kalan sayılar işi bozmuş. Şimdi sorunsuz çalışıyor, sadece kolon başlıklarını oluşturmuyor. Aslı, uzun ve geniş bir liste olduğundan, yapabilse iyi olurdu. Olmazsa da sağlık olsun.
Size ve Korhan hocama ayrı ayrı teşekkür ederim.
Varlığınız ve yardımlarınız, kendimi şanslı hissettiriyor.
Ellerinize sağlık, Allaha emanet olun.
Yavuz Tümer