CheckBox sıralama yaparken taşımam lazım..

[mavidus]

arkadaşlar sıralama yaparken CheckBox da birlikte taşımam lazım nasıl yapabilirim. sıralama komutum
[a14:g6000].Sort Key1:=[a14] CheckBox u f sutununa yerleştirecem

 

[Levent Menteşoğlu]

Bir örnek dosya eklermisiniz.

 

[mavidus]

syn leventim örneyiyolladım

 

[Levent Menteşoğlu]

sıralanmasını istediğiniz checkbox tabloda sadece 1 adet mi bulunacak.

 

[mavidus]

hayır her satırda birer tane olacak

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin. Checkboxlar değilde onların işaretli değerleri taşınarak sıralama yapılmıştır. Buradaki tek zahmetli durum tüm checkboxları kodun içinde tanımlama gerekliliğidir.

 

[mavidus]

ya dediğin gibi yaptım ama sanırım bir kaç yerde yanlış yaptım bir türlü kendi çalışmamda çalıştıramadım.Projemin aşağıya ekledim.
"userform da Kaydet butonuna basınca kayıt edip satırları sıralamasını istiyorum ama bir yerde hata yaptım galiba . Ayrıca yardımların içinde çok teşekkürler.....

 

[Levent Menteşoğlu]

Hatanız sadece aşağıdaki satırlarda

[vb:1:d484b208a6][a14:g6000].Sort Key1:=[a14]
.
.
Columns(16).ClearContents
[/vb:1:d484b208a6]

yukarıdaki satırı aşağıdaki ile değiştirin.

[vb:1:d484b208a6][a14:h6000].Sort Key1:=[a14]
.
.
Columns(8).ClearContents
[/vb:1:d484b208a6]

 

[mavidus]

Hatanız sadece aşağıdaki satırlarda

[vb:1:98d6d7b7ca][a14:g6000].Sort Key1:=[a14]
.
.
Columns(16).ClearContents
[/vb:1:98d6d7b7ca]

yukarıdaki satırı aşağıdaki ile değiştirin.

[vb:1:98d6d7b7ca][a14:h6000].Sort Key1:=[a14]
.
.
Columns(8).ClearContents
[/vb:1:98d6d7b7ca]

dediğiniz yerleri düzelttim ama yine aynı hatayı veriyor.Ne yapmalıyım acaba...?

 

[Levent Menteşoğlu]

Haklısınız. Aşağıdaki değişikliğide yapmak gerekiyor. Tüm checkbox ların başına aşağıdaki ilaveyi yapın.

Sheets("ocak (2)").CheckBox1.Value

 

[mavidus]

ya ben bir türlü beceremedim yine yanlış yere yazdım sanırım örnek vermen mümkünmü acaba...Ben şu şekilde yazmayı deniyorum
Application.ScreenUpdating = False
Sheets("ocak (2)").CheckBox1.Value
[h14] = CheckBox1.Value
.
.
.
.
a14:h6000].Sort Key1:=[a14]
Sheets("ocak (2)").CheckBox1.Value
CheckBox1.Value = [h15]
.
.
Columns(8).ClearContents
end

böyle kodladım.
Bir diğer sorum ise ""Columns(8).ClearContents"" kodunu neden yazıyoruz?Mesala 16 checkbox değilde 20 yaparsak veya 25 yaparsak bunu değiştirmelimiyiz....

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin.

Bir diğer sorum ise ""Columns(8).ClearContents"" kodunu neden yazıyoruz?

Bu komut sadece 8. yani H kolonundaki bilgileri siler. Kod; H kolonuna checkboxların işaretli olup olmadığına dair bilgileri yazar sonrada bu bilgileri sıralamada kullandıktan sonra yukarıdaki satır ile bu gereksiz hale gelen bilgiler silinir.

 

[mavidus]

örnek için çok teşekkür ederim.Yalnız sorunum tam olarak çözülmüş değil..Bu defa da sıralama yapmıyor sıralama kodunun yanına Sheets("ocak (2)") eklememe rağmen sıralama yaptıramadım.

 

[Levent Menteşoğlu]

Sıralama yapıyor deneyerek gönderdim. Tarihlerin yerini ve chekboxların işaretlerini değiştirerek tekrar deneyin.

 

[mavidus]

tarih ve ckeckbox ların yerini değiştirdim ama sorun çözülmedi.Ã?ncelikle tüm bilgileri siliyorum yeniden giriş yapıyorum 31/12/05 yazıyorum ardından 01/01/05 yazıyorum sıralıyor daha sonra 28/2/05 yazıyorum onuda sıralıyor ama tekrar giriş yapıyorum 31/1/05 olarak yazınca 28/02/05 tarihinin üstünde yer alıyor.Tekrar kontrol etmen mümkünmü acaba.

 

[Levent Menteşoğlu]

checkboxların yerini kesinlikle değiştirmeyin. Çünkü isim sırasına göre dizili olmaları gerekiyor. Ben sadece üzerindeki işareti değiştirin anlamında söylemiştim. Dosyada birde aşağıdaki değişikliği yapın. Bu tarihin hücreye aktarılmasındaki hatayı düzeltecektir.

[vb:1:ec76ef0dc0]Range("A48").Value = TextBox1.Text[/vb:1:ec76ef0dc0]

Kod içinde bulunan yukarıdaki satırı tamamen silin ve aşağıdaki satırı onun yerine yazın.

[vb:1:ec76ef0dc0]Range("A48").Value = CLng(CDate(TextBox1.Text))[/vb:1:ec76ef0dc0]

 

[mavidus]

çok teşekkür ederim ellerin dert görmesin sorunum tam olarak çözüldü....