H

Çözüldü Kodun bir bölümünü ayrı butona almak

  • Konuyu başlatan Konuyu başlatan hakki83
  • Başlangıç tarihi Başlangıç tarihi
H

hakki83

Site Üyesi
Excel Versiyonu
Excel 2016
Excel Sürümü
32 Bit
Excel Dili
Türkçe
İyi günler hocalarımız

Örnek dosyadaki kodlar, Saygıdeğer Ömer Baran hocamızın kodudur.

Tırnaklar arasındaki alttaki üçü, sıralama kodudur.

Olmasını istediğim, tırnaklar arasındaki kodları, ikinci bir butona almak. (Son sütuna göre sıralar satırını kullanıyorum)


Yani birinci düğme sadece sonuçları dökecek, ikinci düğme de sadece sıralayacak.

Ayrıca ikinci kodda da
Cells(1, XDu) = “SONUÇLAR”
ve
Cells(1, XDu).Activate satırları olmalı

Aslında fazlalıkları silerek yapmaya çalıştım, oldu da hatta,
Ama yine de amatörce olduğu için (belki bir yeri eksik ailmişimdir veya fazla silmişimdir diye) bilinçsizce yapmayayım, işi uzmanlarına bırakayım dedim.
 

Ekli dosyalar

Çözüm
Ö
@hakki83

Mevcut kodda NEXT satırından sonraki satırları silin/pasif hale getirin.
Sıralamayı şu kodla yapabilirsiniz.
En sondaki 1 sayısı ARTAN sıralama yapılmasını sağlar, AZALAN için bunu 2 olarak değiştirmeniz gerekir.

VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(7 satır)
Tarihe göre sırala Oylamaya göre sırala
Bir de değerli hocalarımız

En son sütun boş ise, boşta çalıştırınca yanlış bir iş yapmaması için sanıyorum

If en sonda SONUÇLAR başlığı yoksa Then Exit Sub

gibi bir sstırın olması lazım.

Bu durumda galiba

Cells(1, XDu) = “SONUÇLAR”
ve
Cells(1, XDu).Activate

satırlarının iptal olması gerekecek.
Olsun önemli değil. Zaten bu satırlar birinci düğmede varlar.
 
Oyla 0 Olumsuz oyla
@hakki83

Mevcut kodda NEXT satırından sonraki satırları silin/pasif hale getirin.
Sıralamayı şu kodla yapabilirsiniz.
En sondaki 1 sayısı ARTAN sıralama yapılmasını sağlar, AZALAN için bunu 2 olarak değiştirmeniz gerekir.

VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(7 satır)
 
Oyla 1 Olumsuz oyla
Çözüm
Ömer hocam emeğinize sağlık. Şöyle bir ilave yapabilir miyiz acaba

Kod son sütunu sıralama yapıyor ama benim tam istediğim şu;
SONUÇLAR başlığı olan son sütun sıralansın,
Eğer son sütunda SONUÇLAR diye bir başlık yok ise, then exit sub yapsın.

Çünkü boştayken düğmeye bastığımızda sonuçlar başlığı olmayan son sütun (örneğe göre J sütunu) sıralanınca, listeye faydası olmayan bir sıralanma olmuş oluyor

Teşekkürler.
 
Oyla 0 Olumsuz oyla
Sıralama yapan satırın üstüne bir kod satırı ekledim (denemedim).
Sayfayı yenileyerek, önceki cevabımın yeni halini bir deneyin bakalım.

Hatırlatma: SIRALAMAya tabi tutulan şey tüm tablodur, sıralama kriteri son sütun o kadar.
 
Oyla 0 Olumsuz oyla
Hemen deniyorum hocam.

Aynen belirttiğiniz gibi, sıralamaya tabi tutulanın tüm tablo olması gerekir, aksi halde korkunç hatalar ortaya çıkar.

Genelde birinci satır başlık olarak kullanıldığına göre, başlık hariç, tüm tablonun sıralanması, kullanıcının hatasız iş yapmasını sağlayacaktır.
 
Son düzenleme:
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Üst