• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Sıralama Komutu

O

oguz demirbas

Katılım
16 Temmuz 2005
Mesajlar
151
Excel Vers. ve Dili
2000 türkçe
Merhaba Arkadaşlar.

exell deki bir dosyamın verilerine F1 den F6000 artan sıralama yap komutunu komut 1 düğmesine eklemek istiyorum. Visualbasic kodu nedir ?
 
Aşağıdaki satırı ilave edin.

[f1:f6000].sort
 
Private Sub CommandButton1_Click()
[f1:f6000].Sort
End Sub


bu şekilde çalıştıramadım.......
 
Haklısınız, aşağıdaki gibi deneyin.

[vb:1:8359035628]Private Sub CommandButton1_Click()
[f1:f6000].Sort Key1:=[f1]
End Sub [/vb:1:8359035628]
 
bu sıralamaya satırlarıda nasıl dahil edebilirim.?...(exell veri>sıralamada sütün sıralamalrını aynı zamanda satırlarada yansıtmaktaydı)
 
Sorunuzdan ne kasdettiğinizi anlayamadım.
 
Yukarıdaki komutla yalnızca F sütununda ki verilere sıralama yapılıyor. Oysa ben A-B-C-D-E sütunlarınındaki verilerin de F deki sıralamaya göre değişmesini istiyorum.

Umarım anlatabilmişimdir....... :hey:
 
Þimdi oldu. Kodu aşağıdaki gibi değiştirin. Burada F sütununa göre sıralanmıştır.

[vb:1:69440b662d]Private Sub CommandButton1_Click()
[a1:f6000].Sort Key1:=[f1]
End Sub [/vb:1:69440b662d]
 
teşekkür ederim...... süper oldu.......

(konu başlığına uygun değil ama bir ricam daha olacaktı: bul - sil işlemlerine ait exell örnekleri var mı? forumda yaptığım araştırmada ki örnekler çok güzel. Fakat bir türlü kendi formumda uygulayamadım. Yeni öğrenenler için basit örnekler lazım) :ok::
 
visual basic kodu:
--------------------------------------------------------------------------------
Private Sub CommandButton1_Click()
[a1:f6000].Sort Key1:=[f1]
End Sub

olan bu kodu dosya açıldığında otomatik olarak nasıl yaptırabilirim? (Not: Çalışma Sayfası Adı: Sayfa1 ve Sayfa3)
 
sub auto_open ()
yukarıdaki makronun adını yazın '(CommandButton1_Click)
End Sub
 
command button_click'in ismini değiştirin mesela "buton" olsun
Sub auto_open()
buton
End Sub
 
bu arada commandbutonu da ismini değiştirdiğiniz makro ile ilişkilendirmelisiniz. veya en iyisi siz dosyayı ekleyin çözümünü yapalım.
veya açılışta çalışmasını istediğiniz makrokodlarını
Sub auto_open()
........'buraya yazın
End sub

olayı içerisine yazın
 
Private Sub CommandButton1_Click()
[a1:f6000].Sort Key1:=[f1]
End Sub


yukarıdaki komutu Userform da kullanmak istediğimde sayfa1 'i nasıl ekleyebilirim? (sayfa1 de sıralamayı nasıl yaptırabilirim?)
 
[vb:1:b3160af15e]Private Sub CommandButton1_Click()
[sayfa1!a1:f6000].Sort Key1:=[f1]
End Sub[/vb:1:b3160af15e]
 
Teşekkür ederim......

Birde dosyayı inceleyip; çalışma sayfası açıldığında otomatik olarak nasıl yaptırabilirim?

Birde otomatik olarak yapmasını istediğim 3 işlev var. Bunları sırası ile yaptırmam mümkün mü? Nasıl?
 
Sub auto_open()
[sayfa1!a1:f6000].Sort Key1:=[f1]
End Sub

auto_open calisma sayfasi acildiginda module'lerde ilk olarak bu makro cagrilir.
 
1. auto_open () bir mesaj kutusunu çalıştırıyorum.
2. sine yukarıdaki formülü gömdüğümde şöyle bir uyarı aldım:

AMBİGUOUS NAME DETECTED : AUTO_OPEN

TAMAM ' I tıkladığımda iki otomatik işlevi de yerine getirmediğini görüyorum. Bu durum nasıl düzeltilebilir?
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst