A Sütunundaki Verileri C Sütununda Sıralama
20 Nisan 2021
26 Nisan 2021
1126
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 | |
|---|---|
| Kes / Alternatif | Shift Delete |
| Bul Penceresini Açma | Ctrl F |
| Eş Anlamlılar Sözlüğü | Shift F7 |
| İlişkili Hücre Aralığı Seçimi Yapma | Ctrl Shift Boşluk |
| Bitişik Olmayan Hücrelerde Sola Gitme | Ctrl Alt ← |