Mengurutkan Semua Sheet

Sheet1 - Kecil.png

 

Tulisan kali ini berjudul Mengurutkan Semua Sheet akan membahas bagaimana mengurutkan semua sheet dari A-Z ataupun sebaliknya Z-A, Mengurutkan Semua Sheet akan sangat terasa sekali manfaatnya jika kita memiliki banyak sheet dengan nama-nama sheet yang acak, terutama untuk mempermudah pengecekan keberadaan sheet tersebut.

 


 

Berikut adalah kode VBA untuk Mengurutkan Semua Sheet, copy paste kode dibawah ini pada halaman modul. Silahkan buka jendela VBA Editor (Alt + F11) lalu tambahkan modul baru (Menu Insert >> Modul).

 

Sub Mengurutkan_Sheet()

Dim lCount As Long, lCounted As Long
Dim Sheetakhir As Long
Dim Tanya As Long

Tanya = MsgBox("Mengurutkan semua sheet A-Z pilih 'Yes'. " & vbNewLine & _
"Mengurutkan semua sheet Z-A pilih 'No'", vbYesNoCancel, "Mengurutkan Sheet")

If Tanya = vbCancel Then Exit Sub

Sheetakhir = Sheets.Count

If Tanya = vbYes Then 'yang ini mengurutkan A-Z
    For lCount = 1 To Sheetakhir
        For lCount2 = lCount To Sheetakhir
            If UCase(Sheets(lCount2).Name) < UCase(Sheets(lCount).Name) Then
               Sheets(lCount2).Move Before:=Sheets(lCount)
            End If
        Next lCount2
    Next lCount
Else 'yang ini mengurutkan Z-A
 For lCount = 1 To Sheetakhir
        For lCount2 = lCount To Sheetakhir
            If UCase(Sheets(lCount2).Name) > UCase(Sheets(lCount).Name) Then
                Sheets(lCount2).Move Before:=Sheets(lCount)
           End If
        Next lCount2
    Next lCount
End If

End Sub



Seperti biasanya, jalankan Sub /kode dengan tekan F5 pada VBA Editor atau jalankan dengan macro pada halaman Excel. dan lihat hasil pengurutan sheet secara otomatis dan cepat.

Download File Contoh rar.pngmengurutkan_semuasheet.rar

Semoga bermanfaat,
Salam berkreasi.

HUBUNGI KAMI

Kantor berkreasi.net
Alamat :
 

Jl. Cilincing jakarta utara

JL. Karangrejo Timur  Surabaya

Email              : Alamat email ini dilindungi dari robot spam. Anda memerlukan Javascript yang aktif untuk melihatnya.
Form Kontak  : Klik Disini
SMS only : 085 606 139 312  im3 (Mas Ali)

Pembayaran Via Transfer :

bni.jpg
Bank BNI Cab. Jember
No.rek. 019 598 5992
Atas nama Sdri IMAS KHASANAH

bri.jpg
Bank BRI Cab. Wonokromo
No.rek. 0976 01 004629 50 8
Atas nama IMAS KHASANAH

TIM PENGEMBANG

Amien sawedi
M. Agus Fanani
Sahrudin
Muhammad Risal Maros
Didik P Wicaksono
Wayan Mulyana
Adi sabaro