Sırala makrosu

[celofb]

Merhaba Arkadaşlar;
Sırala makrosu butonundan sonra ekrana çıkan çalıştırma ekranını nasıl gizleyebilirim. Örnek dosyam ekte. İlgilenen arkadaşlara şimdiden teşekkür ederim.

 

[bmk2702bmk]

Merhaba Sıralamayı herseferinde aynı değer üzerinden yaptırmak istiyorsanız. Otomatik makro kaydederek yapabilirsiniz.
Geliştirici-Makro kaydet- ( yapmak istediğiniz sıralama işlemini yapın) kaydır durdur'a tıklayın. sonrasında istediğiniz makroyu ilgili düğme üzerine sağ tıklayarak "makro ata" diyerek işlem yaptığınızda sıralama ekranını getirmeden makro çalıştırır.

 

[celofb]

Merhaba yazılan değerler değişken sabit değin

 

[celofb]

konuyu çözemedim.Yardımcı olacak arkadaş yokmu ? ?

 

[ayagiz44]

DENEMİSİN

 

[celofb]

Denedim Sıralama yapmıyor.

 

[Necdet]

Merhaba,

Alternatif olsun.
B sütununda sıra numarasının değişmesini istiyorsanız aşağıdaki kodu B4 ten başlatın.

Sub Sırala()

    Dim i As Long
    
    i = Cells(Rows.Count, "L").End(3).Row
    
    Range("C4:L" & i).Sort Key1:=Range("L1"), Order1:=2

End Sub

 

[celofb]

dosyama macroyu koydum ama çalıştıramadm.

 

[Necdet]

dosyama macroyu koydum ama çalıştıramadm.

Ne deyim şimdi ben? Kodları bir modüle koydunuz mu? Koyduysanız Butonla ilişkisini sağladınız mı?

 

[ayagiz44]

dene