hayır merge yapmak istemiyorum. 5 sütunlu 1092 satırlı bir datam var. ben satırları sütun haline getirip alt alta ekleyerek 1 adet upuzun bir sütun yaratmak istiyorum.
kes yapıştır yapsan? makroya ne gerek var bu kadar basit bir iş için?
hocam 1092 tane satır var. örneğin a1'den e1'e kadarki satırı seçiyorum. sonra misal h1 hücresini seçiyorum. sağ tıklıyorum paste special diyorum, transpose'u seçiyorum. sütunumun ilk 5 satırı halloldu. bu işlemi geri kalan 1091 satıra daha yapmam lazım.
derdimi anlatmakta zorlandım sanırım.
evet farklı bir şey anlatmışsın.
verilerini
a1
a2
a3
a4
a5
b1
b2
...
şeklinde dizmek istiyorsun.
bunu da yapmanın kolay yolu var.
tamam o kolay yol nedir? =)
valla anlatması biraz zor, istersen yapıp göndereyim, istersen anlatayım.
şimdi yaptım ben 350x5 tablo için.
Range("G1:G5").Select
Selection.FormulaArray = "=TRANSPOSE(A1:E1)"
bu kod tek satır için yapıyor. ihtiyacım olan bu kodu 1092 defa loopa sokmak.
for i=1 to 1092
....
..
.
next i
gibi bir kullanım öğrendim ama bu i'leri nasıl kullanacağımı çıkaramadım.
1092x5'lik tablonun bir sol sütununu 1'den 1092'ye kadar numaralandır.
ondan sonra ilk sütundaki 1092 hücreyi seç ve alt alta 4 kere daha yapıştır.
1
2
3
..
1092
1
2
3
..
1092
gibi olacak.
ondan sonra sayfanın en üstüne çık, bu koyduğun sayılardan birini seç ve sırala de
senin veri tablonun her satırından sonra 4 boş satır koyacak sıralama yaptığı için.
sonra tablonun B1'den başladığını sayarsak, şu formülleri yaz:
G1'e =B1
G2'ye =C1
G3'e =D1
G4'e =E1
G5'e =F1
ilk 5 satırını böylece elde etmiş oldun. sonra bu 5 hücreyi kopyala, ve aşağı doğru 5460 hücreye (G1'den G5460'a kadar) yapıştır.
umarım yaparsın, skype'ın varsa 1'e 1 anlatayım.
hocam dediğinizi tam olarak anlayamadım. 6935x4 lük bir verisetinde çalışmam var ama maalesef istediğim gibi değil şu anda o veriler. bunları düzeltmek için çok zaman harcayacağım gibi duruyor yardımcı olabilir misin?
