Makro ile Sırala Run-time error 1004

[mahircinar01]

büyükten küçüğe sıralama yapmak istiyorum ama şöyle bir hata alıyorum.
Run-time error 1004
Bu işlem için birleştirilen hücrelerin aynı boyutta olması gerkli .
bu hatanın çözümü konusunda yardımlarınızı bekliyorum. dosyamı ekliyom

 

[hamitcan]

    Range("A14" & ":H" & sat - 1).Select

kod satırını aşağıdaki ile değiştirin.

    Range("A15" & ":H" & sat - 1).Select

 

[mahircinar01]

sıralama sorunum çözüldü teşekkürler
ama sıra no lar sıralı olmuyor bunu nasıl çözebiliriz.

 

[hamitcan]

Kodu, B sütunundan başlatırsanız, istediğiniz olur

Range("B15" & ":H" & sat - 1).Select

 

[mahircinar01]

üstadım çok teşşekkürler. bu konu ile ilgili bir şey daha sormak istiyorum.
ilgili formda ALES puanı ve Yabancı Dil puanı girilip ön değerlendirmeyi yapınca form kendi kendine sıralama yapmasını istiyorum. bunu nasıl yapabilirim. ilginize çok teşekkürler.

 

[hamitcan]

Sayfanın kod kısmına ekleyin.

Private Sub Worksheet_Calculate()
    Application.EnableEvents = False
    Sırala
    Application.EnableEvents = True
End Sub

 

[mahircinar01]

emeğinize sağlık oldu ama şöyle bir sorunum var. bir sütundan diğer sutuna tab tuşuyla geçmek istediğim zaman formda bir kaç tane sutun seçili duruma geçiyor bende kendim diğer sutuna geçiyorum

 

[hamitcan]

Son sorunuzu anlamadım.

 

[mahircinar01]

sutunlara değer girdikten sonra diğer bir kısma değer yazmak için tab tuşuna bastığım zaman birkaç tane satır seçili duruma geçiyor. çokta önemli değil emeğinize sağlık çok teşşkürler