Sıralama Komutu

[oguz demirbas]

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 ?

 

[Levent Menteşoğlu]

Aşağıdaki satırı ilave edin.

[f1:f6000].sort

 

[oguz demirbas]

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


bu şekilde çalıştıramadım.......

 

[Levent Menteşoğlu]

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]

 

[oguz demirbas]

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ı)

 

[Levent Menteşoğlu]

Sorunuzdan ne kasdettiğinizi anlayamadım.

 

[oguz demirbas]

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:

 

[Levent Menteşoğlu]

Þ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]

 

[oguz demirbas]

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) k::

 

[oguz demirbas]

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)

 

[Mahmut Bayram]

sub auto_open ()
yukarıdaki makronun adını yazın '(CommandButton1_Click)
End Sub

 

[oguz demirbas]

Sub auto_open()
CommandButton1_Click()
End Sub


bu şekilde çalıştıramadım.

 

[Mahmut Bayram]

command button_click'in ismini değiştirin mesela "buton" olsun
Sub auto_open()
buton
End Sub

 

[Mahmut Bayram]

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

 

[oguz demirbas]

Mahmut Bey:

örnek ektedir.

 

[oguz demirbas]

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?)

 

[veyselemre]

[vb:1:b3160af15e]Private Sub CommandButton1_Click()
[sayfa1!a1:f6000].Sort Key1:=[f1]
End Sub[/vb:1:b3160af15e]

 

[oguz demirbas]

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?

 

[iggydarsa]

Sub auto_open()
[sayfa1!a1:f6000].Sort Key1:=[f1]
End Sub

auto_open calisma sayfasi acildiginda module'lerde ilk olarak bu makro cagrilir.

 

[oguz demirbas]

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?