Soru dikey verileri yatay yapma

[alp902]

234 20,59
20,67
20,63
235 20,04
19,84
19,94
236 23,00
23,20
23,10
237 24,95
24,75
24,85
yukarıdaki verileri

234 20,59 20,67 20,63
235 20,04 19,84 19,94
236 23,00 23,20 23,10
237 24,95 24,75 24,85
şekline dönüştürmek istiyorum. binlerce veri var bu şekilde lütfen yardım

 

[cems]

Başlığınızı düzeltmelisiniz . Ayrıca bu verilerden bir kısım örnek taşıyan bir sayfa hazırlarsanız destek vermek isteyen kişiyi buradan kopyala verileni önce yarat sonra istenene göre çöz durumundan kurtarmış olursunuz.

 

[Ömer BARAN]

Merhaba.
Sanıyorum yeni üye olmanızdan kaynaklanıyor ancak kullandığınız konu başlığı FORUM KURALLARIna aykırı.
Durumu bölle olan konular, forum yöneticileri tarafından silinmektedir.
Konu başlığınızı güncelemenizi önermeliyim.

Ayrıca sorularınızı, örnek belge üzerinden sorarsanız daha hızlı ve net sonuca ulaşmanız kolaylaşır.
Örnek belge özellikleri ve örnek belge yükleme yöntemine ilişkin kısa açıklama cevabımın altındaki İMZA bölümünde var.
.

 

[Ömer BARAN]

Merhaba.
Hassasiyet için teşekkürler.
Böylece benzer ihtiyacı olup forumda arama yapanların bu konu sayfasına ulaşması kolaylaşmış oluyor.

Kod, örnek belgeye göre güncellendi.

Sub TOPARLA()
Range("G2:J" & Rows.Count).ClearContents
[G2] = "LİSTE": [H2] = 1: [I2] = 2: [J2] = 3
For s = 3 To Cells(Rows.Count, "B").End(3).Row Step 3
    sat = Cells(Rows.Count, "G").End(3).Row + 1
    Cells(sat, "G") = Cells(s, "B"): Cells(sat, "H") = Cells(s, "D")
    Cells(sat, "I") = Cells(s + 1, "D"): Cells(sat, "J") = Cells(s + 2, "D")
Next
End Sub

 

[alp902]

https://drive.google.com/drive/folders/1OI1z5bH8o-1xtcAbKDEL4HbSi_vu-ajn?usp=sharing

 

[Ömer BARAN]

Tekrar merhaba.
Sayfayı yenileyerek önceki cevabımı kontrol ediniz.Verdiğim kod'u örnek belgeye göre güncelledim.
.

 

[alp902]

Çok teşekkür ederim üstat Problem çözüldü. Beni büyük bir zaman kaybından kurtardınız.

 

[Ömer BARAN]

Estağfurullah, ihtiyaç görüldüyse mesele yok.
İyi çalışmalar dilerim.
.