A Sütunundaki Verileri C Sütununda Sıralama
20 Nisan 2021
26 Nisan 2021
1233
A Sütunundaki Verileri C Sütununda Sıralama kodu, karışık olarak yazılmış verileri başka bir sütunda sıralı olarak yazdırma işlemini yerine getirmektedir.
Sub Deneme()
Dim Dizi As Variant
Dizi = ActiveSheet.Range("A1:A12").Value
Sirala Dizi
End Sub
Private Sub Sirala(Dizi As Variant)
Dim i As Integer, j As Integer, TempValue As Variant
For i = LBound(Dizi) To UBound(Dizi) - 1
For j = i + 1 To UBound(Dizi)
If Dizi(i, 1) > Dizi(j, 1) Then
TempValue = Dizi(j, 1)
Dizi(j, 1) = Dizi(i, 1)
Dizi(i, 1) = TempValue
End If
Next j
Next i
ActiveSheet.Range("C1").Resize(UBound(Dizi, 1)).Value = Dizi
End SubGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- Araç çubuklarından Insert -> Module yazısına tıklayın.
- Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
- Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
A sütunda karışık olarak yazılmış bulunan verileri C sütununda sıralamak için bu kodu kullanabilirsiniz.
Etiketler :
Hazır Dosyayı İndir
Dosyayı indirmek için giriş yapmanız ve VIP Üyelik Paketine sahip olmanız gerekir.
| YARARLI KISAYOLLAR | |
|---|---|
| İşlem Yapılmış En Üst Hücreye Gitme | Ctrl Home |
| Veri Aralığının En Üstüne Gitme | Ctrl ↑ |
| Bitişik Hücre Aralığı Seçme | Shift Tıklama |
| Eğik Yazdırma / Alternatif | Ctrl 3 |
| Hızlı Grafik Oluşturma | Alt F1 |