[ÇÖZÜLDÜ] Userform üzerinde checkbox işlemi....

[enteresan]

Elimde bulunan oldukça büyük bir listeyi, userform üzerinde bulunan checkbox'ları işaretlemek suretiyle sayfalara ayırmak istiyorum. Örnek dosyayı ekledim. Yardımcı olacaklara minnettar olurum. Saygılar...

 

[mesuttasar]

Örnek olarak Cinsi ve Miktarı Sekmelerini işaretlediğinizde sadece bu 2 sütunumu yeni sayfaya aktarmak istiyorsunuz?

 

[enteresan]

Örnek olarak Cinsi ve Miktarı Sekmelerini işaretlediğinizde sadece bu 2 sütunumu yeni sayfaya aktarmak istiyorsunuz?

Evet mesuttasar rumuzlu arkadaşım. Eğer 2 sekme işaretlediysem 2 tane ayrı sayfaya bilgileri ayırsın, 3 işaretlersem 3 ayrı sayfaya bilgileri ayırsın istiyorum....

 

[enteresan]

Arkadaşlar, üstadlar, çok zor bir soru olduğunu sanmıyorum. Sanırım gözden kaçtı. Bu konuda bir fikri olan yok mu acaba. Saygılarımla...

 

[mesuttasar]

Arkadaşlar, üstadlar, çok zor bir soru olduğunu sanmıyorum. Sanırım gözden kaçtı. Bu konuda bir fikri olan yok mu acaba. Saygılarımla...

Sayın Enteresan nickli arkadaşım buyrun istediğiniz gibi kodları düzenledim. Umarım istediğiniz gibi olmuştur.:hihoho:


Örnek Kod:

If CheckBox1.Value = True Then
Range("[COLOR=blue][B]B1:b1000[/B][/COLOR]").Select
Selection.Copy
Sheets.Add After:=Sheets("Sayfa1")
Range("A1").PasteSpecial
Sheets(2).Name = Sheets("sayfa1").[[COLOR=blue][B]b1[/B][/COLOR]]
End If
 
If CheckBox2.Value = True Then
Sheets("Sayfa1").Select
Range("[COLOR=red][B]c1:c1000[/B][/COLOR]").Select
Selection.Copy
Sheets.Add After:=Sheets("Sayfa1")
Range("A1").PasteSpecial
Sheets(2).Name = Sheets("sayfa1").[[COLOR=red][B]c1[/B][/COLOR]]
End If
 
.....
 
...........

Her Checkbox için bu kodları yazıp sütun adlarını (farklı renkli olanlar) vs değiştirdim.Birde aktarma yapmadan önce ekteki dosyanın içinde sadece Sayfa1 kalsın.Diğer sayfaları silmeniz gerekli.

Ustalar kodları kısaltabilirse bende faydalanmış olurum aslında.

 

[enteresan]

mesuttasar rumuzlu arkadaşa teşekkür ederim. Userformda işaretlediklerim ile aktardıkları farklı. Sütun tanımlamalarını değiştirirsem istediğim gibi olur. Eğer bu kodların kısaltılmış bir şekli varsa umarım ustalar buraya yazarlar. Teşekkürler Mesut bey..

 

[mesuttasar]

mesuttasar rumuzlu arkadaşa teşekkür ederim. Userformda işaretlediklerim ile aktardıkları farklı. Sütun tanımlamalarını değiştirirsem istediğim gibi olur. Eğer bu kodların kısaltılmış bir şekli varsa umarım ustalar buraya yazarlar. Teşekkürler Mesut bey..

Checkbox1 ---> B sütununu
Checkbox2 ---> C sütununu
Checkbox3 ---> D sütununu
Checkbox4 ---> E sütununu
Checkbox5 ---> F sütununu
Checkbox6 ---> G sütununu
Checkbox7 ---> H sütununu
Checkbox8 ---> I sütununu
Checkbox9 ---> J sütununu simgeliyor.Ancak Sizin userformun üstündeki checkbox ların yanında yazan başlıkları bi daha kontrol etmeniz lazım.Önemli olan checkboxların yanında yazan açıklama ile o sütunun başındaki açıklamanın aynı olması lazım.

Benim çözemediğim olay şuydu. Makronun başına öyle bir kod yazmamız gerekirki aktar tuşuna bastığımızda "SAYFA1" haricindeki tüm sayfaları öncelikle silip sonra kodları çalıştırmalı

Bunuda ustalar yapsa iyi olacak aslında.Denedim ama beceremedim.