sütunları alt alta yazma

[rufneck]

Merhaba web site üzerinden veri çekerek bi excel dosyası oluşturdum. 450 sütun 39 satır olarak elimde veri var. Her sütun bir ürünü temsil ediyor. Ben bu sutünları alt alta kaydırmadan 1 sütun şeklinde nasıl eklerim. Yapmak istediğim sayfa 1 de 3 sütun var bunlar ürün ID, özellik grubu ve özellikler.Sayfa 1 de ürün id 39 satır boyunca aynı olacak 39 satırdan sonra 1 artacak(Ürün ID 2333 ise 39 satır eklendikten sonra 2334 olacak). Sayfa 1 de özellik gurubu ise 39 tane sabit satırdan oluşuyor. bu satır grubu sürekli tekrar edecek. Sayfa 1 de özellikler ise sayfa 2 deki sütunlardan alınan bilgilerle alt alta konumlanacak. Bunu sabaha kadar araştırdım ama bulamadım. Dosayayı ekte veriyorum. Bunu bana öğretirseniz çok sevinirim.

excel Dosyası

 

[derisa963]

merhaba ekteki gibi bir veri mi istediniz (sayfa3)

dosyayı buradan da indirebilirsiniz

 

[rufneck]

teşekkürler ama böyle değil sayfa 1 deki gibi yapmam gerekiyor nasıl yaparım.(sayfa 1 de örnek olarak 2 ürün yaptım)

 

[rufneck]

Yardım edecek biri yok mu? sayfa2 deki tüm sütunları sayfa 1 deki c sütununa alt alta eklemek istiyorum.

 

[netzone]

Merhaba,

Şu şekilde deneyiniz;

-Sayfa 2 de yer alan verileri seçin ve kopyalayın.
-Yeni bir sayfa açıp A1 e Sağ Tuş > Özel yapıştır ile karşınıza gelecek olan pencereden Sağ atta bulunan Devrik Dönüşüm'ü işaretleyin ve Tamam'a basın.

Tablonuz istediğiniz hale gelmiş olacaktır.

iyi çalışmalar.

 

[rufneck]

Merhaba,

Şu şekilde deneyiniz;

-Sayfa 2 de yer alan verileri seçin ve kopyalayın.
-Yeni bir sayfa açıp A1 e Sağ Tuş > Özel yapıştır ile karşınıza gelecek olan pencereden Sağ atta bulunan Devrik Dönüşüm'ü işaretleyin ve Tamam'a basın.

Tablonuz istediğiniz hale gelmiş olacaktır.

iyi çalışmalar.

Ben sayfa 2 deki tüm sutunların sayfa 1 deki c sütununda alt alta sıralanmasını istiyorum. Bu sıralamada olması gerektiği için
Bu arada bu kodu buldum ama ne kadar doğru şuan belli değil.



Sub Tablo()

Dim S2 As Worksheet, sat As Long, i As Integer, son As Long

Set S2 = Sheets("Sayfa2")

Sheets("Sayfa1").Select
S2.Range("A:A").ClearContents

sat = 1
For i = 1 To 7721
son = Cells(Rows.Count, i).End(xlUp).Row
Cells(1, i).Resize(son, 1).Copy S2.Cells(sat, "A")
sat = S2.Cells(Rows.Count, "A").End(xlUp).Row + 1
Next i

End Sub

 

[turist]

Sayın @rufneck

Dosyanızın Linki

İndirdikten sonra, Sayfa3 teki "Listele" butonuna basarak sonuçları inceleyiniz.

 

[rufneck]

Sayın @rufneck

Dosyanızın Linki

İndirdikten sonra, Sayfa3 teki "Listele" butonuna basarak sonuçları inceleyiniz.

Çok teşekkür ederim Elinize sağlık. Peki bunu nasıl yaptınız bunu size zahmet olmazsa öğretir misiniz? Başka dosyalarımda var onlara uygulamak istiyorum.

 

[turist]

Makro kodları VBA sayfasındadır.
Klavyeden Alt Tuşuna basılı tutup "F11" tuşuna basarak o sayfayı açabilirsiniz.
Sonra, sol tarafta bulunan Sayfa3'e çift tıklayın, sağ tarafında açılan pencerede Makro kodunu görürsünüz.

 

[rufneck]

Makro kodları VBA sayfasındadır.
Klavyeden Alt Tuşuna basılı tutup "F11" tuşuna basarak o sayfayı açabilirsiniz.
Sonra, sol tarafta bulunan Sayfa3'e çift tıklayın, sağ tarafında açılan pencerede Makro kodunu görürsünüz.

Çok teşekkür ederim tekrar

 

[turist]

Sağolun.