Anasayfa | Akademik Forum | Sizden Gelenler | Sipariş
Menü Açıklamaları
Sorular - Cevaplar
Makaleler
Makrolar
Yerleşik İşlevler
Animasyonlar
Yumurtalar
Fonksiyonlar
MTK Programlar
ExcelCE
Dosya İndir
Neler Yaptık?
İletişim
Sorular - Cevaplar
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.

Destek
M.ÖZTÜRK - Y.KARAMAN
Bu siteyi, "Hayatını çocuklarının Ahlâklı ve Dürüst yetişmesi için harcamış olan Cefakar ve Fedakar, Canım ANNEM'e adadım."
Copyright © 1998-2011 M. Temel Korkmaz - Tüm hakları saklıdır.