Kodla sıralamada problem

[TİKOS]

Arkadaşlar,
Ömer hocamın yardımı ile yaptığım projem bitti ama , ufak bir problemim var.
Ben çözemedim.
Ekteki dosyada Anasayfa ile girdiğim userformda -üretim gününe göre sıralamaya tıkladığımda sıralama yapıyor ama boşverileri yukarı dolu verileri daha aşağıya sıralıyor. Benim istediğim dolu veriler yukarıdan başlasın.
Eğer yardımcı olursanız sevinirim.
Şimdiden teşekkürler

 

[İhsan Tank]

merhaba

Private Sub CommandButton1_Click()
Range("B5:Q475").Sort key1:=Range("B5"), ORDER1:=xlAscending
soru = MsgBox("Sıralama Yapılmıştır. Teşekkür İçin Lütfen Evet'e Tıklayın?", vbQuestion + vbYesNo)
If soru = vbYes Then
Shell "explorer.exe http://www.excel.web.tr", 1
End If
End Sub

öncelikle rakamları metin olarak kayıt etmeyin
özet2 sayfasını kontrol edin

 

[TİKOS]

çok teşekkürler
Ozet2 sheetindeki verileri silip tekrar denedim,
ama sıralama yapmadı,
metin olarak kayıt ile numerik rakamları kayıt ederken nasıl bir kod kullanıyoruz,
mevcut olanı değiştireyim.

 

[İhsan Tank]

çok teşekkürler
Ozet2 sheetindeki verileri silip tekrar denedim,
ama sıralama yapmadı,
metin olarak kayıt ile numerik rakamları kayıt ederken nasıl bir kod kullanıyoruz,
mevcut olanı değiştireyim.

merhaba
userform'da buralara kayıt yapıyorsanız zaten userform metin olarak kayıt yapıyor onun için kayıt yaptığınız textbox'un sonuna (*1) yıldız 1 ( bir ) koyunuz
elle giriş yapıyorsanız eğer b sutununa sağ tuş tıklayıp hücre biçimlendir yaptıktan sonra istege uyarlanmıştan ( 00 ) iki adet sıfır koyunuz ve rakamları tekrardan giriniz
kolay gelsin

 

[TİKOS]

teşekkürler

 

[İhsan Tank]

teşekkürler

rica ederim iyi çalışmalar