|
|
|
 |
|
|
 |
 |
Soru-Cevap:
35 - M. Temel Korkmaz - 28.04.2004
Sayılarımı Transpose olarak sıralamak istiyorum ama nasıl? |
|
|
|
|
 |
Soru - 35:
Benim yapmak istediğim şey şu;
Birden çok sütun var ve bu sütunlarda binlerce satırda
veri(sayı) mevcut.
1) Sayfa1 deki sütunları sayacak, ilk sütun hariç
2) İlk sütunda her bir satırda toplam sütun sayısı kadar
satır açacak
3) İlk sütun hariç diğer sütunlardaki verileri o acılan
satırlara transpozunu alarak yazdıracak.
Örnek: A1=A sütunu 1.satır anlamında kullandım.
A1=1 B1=4 C1=7
A2=2 B2=5 C2=8
A3=3 B3=6 C3=9
böyle veriler olsun. İşlemler gerçekleştikten sonra ilk
sütunda verilerin aşağıdaki gibi yer almasını istiyorum
A1=1
A2=4
A3=7
A4=2
A5=5
A6=8
A7=3
A8=6
A9=9
Yardımcı olursanız çok sevinirim.
Cevap - 35:
Öncelikle tablonuzun aşağıdaki gibi olduğunu varsayalım.
Aşağıdaki makroyu yazın ve sayfada oluşturduğunuz düğmeye
atayın.
Sub Sirala()
Dim i As Integer
Range("A1:A1000").ClearContents
sutunsay = 256 -
WorksheetFunction.CountBlank(Range("A1:IV1"))
satirsay = 65536 -
WorksheetFunction.CountBlank(Range("B1:B65536"))
m = 0
For k = 1 To
satirsay
For i = 1 To
sutunsay
m = m + 1
Cells(m, 1) =
Cells(k, i + 1)
Next i
Next k
End Sub
Makroyu çalıştırdığınızda sonuç sizinde istediğiniz gibi
aşağıdakine benzer olacaktır.
|
|
|
 |
|
|
|
