Hatırlatma programı foruma eklenmiştir.
http://www.excelce.net/forum/index.php?topic=1661.0

Gönderen Konu: Çoklu Yatay Tabloyu Dikey Hale Dönüştürme  (Okunma sayısı 3381 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı farisaga

  • Excelce Onbaşı
  • **
  • İleti: 2
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Faris
  • Doğum Yılınız: 1981
  • İl / İlçe: ADANA
  • İşletim Sisteminiz: Windows 10 Pro
  • Mesleğiniz: IT Manager
  • Office Versiyonunuz: 2019 Pro Plus
Çoklu Yatay Tabloyu Dikey Hale Dönüştürme
« : 12 Kasım 2021, 15:02:42 »
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: [Seç]
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: [Seç]
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
« Son Düzenleme: 13 Kasım 2021, 09:19:32 Gönderen: farisaga »

Çevrimdışı farisaga

  • Excelce Onbaşı
  • **
  • İleti: 2
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Faris
  • Doğum Yılınız: 1981
  • İl / İlçe: ADANA
  • İşletim Sisteminiz: Windows 10 Pro
  • Mesleğiniz: IT Manager
  • Office Versiyonunuz: 2019 Pro Plus
Ynt: Çoklu Yatay Tabloyu Dikey Hale Dönüştürme
« Yanıtla #1 : 13 Kasım 2021, 09:19:08 »
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: [Seç]
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: [Seç]
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

Sorun aşağıdaki kod yardımı ile çözülmüştür.

Kod: [Seç]
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