Sıralama

[manisali61]

Arkadaşlar merhaba..
Garajda bulunan bir araç listem var.Örnekte az var ama benim listemde 100 e yakın araç var..aradan bir araç çıktığında alttaki araçların boşluğu ortadan kaldıracak şekilde sıralanmasını istiyorum..
Şimdiden teşekkürler

 

[İhsan Tank]

merhaba

Sub auto_Open()
[COLOR="Red"]Range("B3:D65536").Sort key1:=Range("B3"), ORDER1:=xlAscending
MsgBox "Sıralama Yapılmıştır"[/COLOR]
End Sub

kodu iki şekilde çalıştırdım
1. çalışma kitabınız kapanıp açıldığında aktif oluyor
2. buton'a kod ile yaptım.
dilerseniz kırmızı alanı siz bir buton'a atıyarak yapabilrsiniz.
eki inceleyiniz

 

[manisali61]

Üstadım teşekkürler..tam istediğim gibi olmuş

 

[İhsan Tank]

Üstadım teşekkürler..tam istediğim gibi olmuş

rica ederim iyi çalışmalar