sütunları gruplar halinde satırlara dönüştürme

[Athena_59]

Sayın arkadaşlar yardımlarınıza gerçekten ihtiyacaım var.Öncelikle sorunum şu excel de yanyana dizili 18 tane satırda bulunan verileri üçerli gruplar halinde alt alta 6 satıra yazmam gerekiyor.Haftasonuna kadar yetiştirmem gereken bir çalışma ve tam 1500 ürünü bu şekilde alt alta 6 satıra yazmam lazım bu da tam 1500*6=9000 sütun demek lütfen pratik bir yol gösterin.Şimdiden teşekkürler.:frown:

 

[Ömer BARAN]

Merhaba.
Foruma hoşgeldiniz.

Cıngıldak hangi bölgemizde bir şehir acaba?
Bulmacada filan sorulursa, aklımızda bulunsun diye soruyorum.

 

[MFA2000]

Merhaba,

Çalışma dosyanızı görmeden yorum yapmak zor. Excel' de satırlar sütunlara, sütunlar satırlara çevrilebilir.
Çevrilecek alanı seçip kopyalayın, kopyalamak istediğiniz yere gidin, yapıştıracağınız alanın sol üst köşesinde - sağ tuş - transpose tuşuna basarak sütunları satırlara dönüştürmüş olursunuz. İlk dosyanızdaki sol üst köşe ana köşegen olmak üzere hücreler o köşegen boyunca 90° döndürülmüş olur.

İyi çalışmalar,

 

[ihyasin]

Merhaba. Benimde bu şekilde bir sorum olacaktı.
A1 ve A100 arasında sütundaki verileri C1:F25 arasındaki 4 sütunluk tabloya sırasıyla yapıştırmak istiyorum. Sırası çok önemli, sıkıntıda orada zaten. Ne yapmalıyım ?

Örnek: V1= Veri 1
____A_____B____C______D_____E_____F____G_
1__V1__________V1____V2____V3____V4______
2__V2__________V5____V6____V7____V8______
3__V3__________V9___V10___V11___V12______
4__V4
5__V5
6__V6
7__V7
8__V8
9__V9
10_V10
11_V11
12_V12
13_V13
14_V14
15_V...
.
.
.
.

 

[sakman26]

selam,
link te verilen eki inceleyiniz..
kolay gelsin..


link : http://s3.dosya.tc/server4/teajd5/denemecalisma.xlsx.html

 

[veyselemre]

Merhaba. Benimde bu şekilde bir sorum olacaktı.
A1 ve A100 arasında sütundaki verileri C1:F25 arasındaki 4 sütunluk tabloya sırasıyla yapıştırmak istiyorum. Sırası çok önemli, sıkıntıda orada zaten. Ne yapmalıyım ?

Sub TEST()
    For i = 1 To Cells(Rows.Count, 1).End(3).Row Step 4
        sat = sat + 1
        Cells(sat, 3).Resize(1, 4).Value = WorksheetFunction.Transpose(Cells(i, 1).Resize(4, 1).Value)
    Next i
End Sub

 

[ihyasin]

selam,
link te verilen eki inceleyiniz..
kolay gelsin..


link : http://s3.dosya.tc/server4/teajd5/denemecalisma.xlsx.html

Dosyanın sütun kısmını ayarlayan bölümünde hata veriyor ve excel i kapatıyor. onun dışında çalışıyor.


----------------

 

[ihyasin]

Sub TEST()
    For i = 1 To Cells(Rows.Count, 1).End(3).Row Step 4
        sat = sat + 1
        Cells(sat, 3).Resize(1, 4).Value = WorksheetFunction.Transpose(Cells(i, 1).Resize(4, 1).Value)
    Next i
End Sub

-------------------

Çalıştı. Makroyu çalıştırıyorum ve listeyi veriyor. Emeğiniz için teşekkür ederim.
İlgilenen diğer arkadaşlara da teşekkürler.

----------------

 

[sakman26]

Dosyanın sütun kısmını ayarlayan bölümünde hata veriyor ve excel i kapatıyor. onun dışında çalışıyor.


----------------

selam,
bende herhangi bir problem olmadan çalışıyor.
kolay gelsin.

 

[Murat OSMA]

Hiç uğraşmayıp PowerQuery'de kullanabilirsiniz.​

 

[ihyasin]

selam,
bende herhangi bir problem olmadan çalışıyor.
kolay gelsin.

-----------------

Dosya içeriği çok iyiydi, çok beğendim. Ama ben 2 farklı bilgisayarda denedim (Office 2007) yinede aynı hatayı verdi. Emeğinize saygılar.

-----------------