Otomatik sıralama

[TİKOS]

Arkadaşlar,
ekteki dosyayı bir buton yardımı ile ad ve soyada göre sıralatmak istiyorum.
Yardımlarınız için şimdiden teşekkürler,
Allah yolunuzu açık etsin

 

[Ali]

Aşağıdaki kodları bir butona bağlayınız.

Sub sırala()
 
    Range("A1:D120").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

 

[ECYavuz]

Örnek dosyayı inceleyiniz.

 

[TİKOS]

Ali kardeş, bu konularda biraz zayıfım butona bağlayamadım,
dosyaya bir el atarsan çok sevinirim. Teşekkürler

 

[Ali]

Ali kardeş, bu konularda biraz zayıfım butona bağlayamadım,
dosyaya bir el atarsan çok sevinirim. Teşekkürler

Örneğiniz ektedir.

Ayrıntılı öğrenmek isterseniz Excel Dersanesini inceleyebilirsiniz.

Linkler

Excelde Makro (Kaydetmek, Düzenlemek (Macro))1

Kod Yazmayı Öğreniyorum

 

[ECYavuz]

Dosyanıza uyarlanmış butonlu örneğe baktınızmı?