Yardım Çoklu Yatay Tabloyu Dikey Hale Dönüştürme

farisaga

Yeni Üye
Katılım
12 Kas 2021
Mesajlar
2
En iyi yanıt
0
Puanları
1
Yaş
40
Konum
ADANA
Ad Soyad
Faris AGA
Office Versiyon
2019 TR
Herkese selamlar.
Excel 2019 kullanıyorum. 4 satırdan oluşan ve tek sütunda alt alta sıralanmış olan verilerimi yatay bir hale getirmek istiyorum. Aşağıdaki örnek gibi...
Bu arada; 9 adet çalışma sayfam var ve her birinde yaklaşık 9000 satır bulunuyor.
Yardımcı olursanız çok mutlu olurum.

Orjinal hali :
Kod:
A SÜTUNU
------------------------
13:27
Online
Price: 0,014 USD
Price incr.: 0,012 USD
14:56
Online
Price: 0,15 USD
Price incr.: 0,12 USD
19:41
Offline
Price: 1,49 USD
Price incr.: 1,1 USD
20:01
Online
Price: 0,01 USD
Price incr.: 0,004 USD

Olması gereken hali :
Kod:
A SÜTUNU | B SÜTUNU | C SÜTUNU         | D SÜTUNU
---------------------------------------------------------------
13:27    | Online   | Price: 0,014 USD | Price incr.: 0,012 USD
14:56    | Online   | Price: 0,15 USD  | Price incr.: 0,12 USD
19:41    | Online   | Price: 1,49 USD  | Price incr.: 1,1 USD
20:01    | Online   | Price: 0,01 USD  | Price incr.: 0,004 USD
 

mesudiye_052

Yeni Üye
Katılım
29 Eyl 2021
Mesajlar
9
En iyi yanıt
0
Puanları
3
Yaş
41
Konum
Çekmeköy/İstanbul
Ad Soyad
Fatih Yörük
Office Versiyon
Excel 2007
Merhabalar
Her bir 4 satır 4 sütuna hep sabit dağıtılacak ise makro kaydet ile yapabilirsiniz
 

farisaga

Yeni Üye
Katılım
12 Kas 2021
Mesajlar
2
En iyi yanıt
0
Puanları
1
Yaş
40
Konum
ADANA
Ad Soyad
Faris AGA
Office Versiyon
2019 TR
Merhabalar
Her bir 4 satır 4 sütuna hep sabit dağıtılacak ise makro kaydet ile yapabilirsiniz
Merhabalar. Bende makro kullanmayı denedim ancak çözüm bulamadım.
Cevap için teşekkür ederim.
İlgili sorun aşağıdaki kod yardımı ile çözülmüştür.

Kod:
Sub transpose()
Set oku = Sheets("sayfa1")
Set yaz = Sheets("sayfa2")
yaz.Range("A2:D20000").ClearContents
ss = oku.Range("A" & Rows.Count).End(xlUp).Row
y = Range("A1:A" & ss)
sat = 2: süt = 1
For i = 1 To UBound(y)
If süt = 5 Then süt = 1: sat = sat + 1
yaz.Cells(sat, süt) = y(i, 1)
süt = süt + 1
Next i
End Sub
 
Üst Alt