DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
sevgili arkadaşlar ekli dosyada veri_tabanı'nında bulunan bilgiler dosya kapatılıp açıldığında A dan Z ye sıralanması lazım yardımcı olursanız sevinirim saygılar.
Private Sub Workbook_Deactivate()
Sheets("veri_tabanı").Range("B2:V65536").Sort key1:=Range("B2"), ORDER1:=xlAscending
MsgBox "Sıralama Yapıldı", , "İhsan Tank"
End Sub
sevgili İhsan hocam çok teşekkür ederim saygılar ve sevgiler iyiki varsınız