combobox'a başlık ekleme ve seçili bölümleri aktarma.

[leumruk]

Selamlar,
Bir userform aracılığıyla oluşturduğum comboboxa 3 adet başlık eklemek istiyorum. Bu başlıklardan birincisine tıkladığımda belirtilen sayfanın örneğin; A1:A30 aralığını anasayfanın belirtilen kısmına örnek olarak; B5:B35 aralığına aktarmasını istiyorum. İkinci başlığa tıkladığımda A1:A50 aralığını, üçüncü başlığı tıkladığımda da A1:A75 aralığını, B5:... bölümüne aktarmasını istiyorum. Aktarma işlemi kopyala yapıştır formatında olursa sevinirim, çünkü biçimlerin korunmasını istiyorum. Yardımlarınızı bekliyorum. Şimdiden teşekkürler.

 

[htsumer]

ComboBox'ta 3 başlık nasıl oluyor..Ayrı ayrı 3 comboyu üstüstemi getirip 3 başlıklı demek istiyorsunuz.

 

[leumruk]

Hayır, liste açıldığında başlıklar görünecek. Tek combobox'a üç başlık. Gönderdiğim örnekte aktar butonunda başlıklar var, bu başlıklar verileri aktarmaya yarıyor. Bu butonda ekleme yapabiliyoruz ve bunda yazılı makro belirtilen sayfada gördüğü veriyi alıyor. Benim istediğim ise, Böyle bir butona 3 adet başlık eklemek mesela (başlık1, başlık2, başlık3) gibi. Başlık1'e tıkladığımda sayfa2'deki A1:A30 aralığını kopyalayıp, sayfa1'in B1:B30 aralığına yapıştırsın, başlık2'ye tıkladığımda sayfa2'deki A1:A50 ralığını kopyalayıp, sayfa1'in B1:B50 aralığına aktarsın, başlık3'e tıkladığımda da sayfa2'deki A1:A75 aralığını sayfa1'in B1:B75 aralığına kopyalasın. Bu üçbaşlık dışında da buton üzerine kayıt eklenmesin. Başlık sadece makro koduyla eklenebilisin. Sanırım daha açık oldu.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[leumruk]

Evet, hocam tam istediğim gibi. Çok teşekkür ederim. Veri aktarıldıktan sonra userform otomatik kapanıp verinin aktarıldığı sayfaya geçmek mümkün mü?

 

[Korhan Ayhan]

Selamlar,

Tabiki mümkün.

Combobox1 nesnesine ait kodların sonuna aşağıdaki kod bloğunu ekleyin.

Unload Me
Sheets("ANA_SAYFA").Select

 

[leumruk]

Hocam, ellerinize sağlık. Hızır gibi yetiştiniz. Çok teşekkür ederim. Diğer "veri silme" ile ilgili sorumu da halledeceksiniz değil mi?