DropDown içeriğini kopyalamak

[excelman]

Merhabalar;

Excel sayfamda B13 satırında dropdown(Açılan kutu) nesnesi kullanarak veri girişi yaptığım bir listem var.

Drop down nesnesine hücre bağlantısı yapmadan nesnenin içeriğini B14 satırına yazdırmanın bir yolu var mı?

Kolay Gelsin.

 

[Levent Menteşoğlu]

Bu nesneye kod yazmak zahmetli bir iştir. Bunun yerine neden combobox kullanmıyorsunuz? Açılan kutuda ısrarlı iseniz, veri listesini aldığınız hücre aralığını verirmisiniz.

Ekte bir örnek hazırladım inceleyin. Dosyada açılan kutuya bir makro bağlanmıştır.

 

[excelman]

Sayın Leventm;

Dosya yı ekte gönderiyorum.

 

[Merhum İdris SERDAR]

Dosyanız olmuş mu? Ekte.

 

[Levent Menteşoğlu]

Aşağıdaki kodu bir modül sayfasına kopyalayın sonrada açılan kutu üzerine sağ klik yaparak makroyu bağlayın.

Sub yaz()
ActiveSheet.Shapes("Drop Down 1").Select
[b15] = Evaluate("=INDIRECT(""veri!A" & Selection.Value + 1 & """" & ")")
[b13].Select
End Sub

 

[excelman]

Sayın Yurttaş ilginize teşekkür ederim fakat benim bu olayı Combobox olmadan halletmem lazım.

Sayın Leventm cevabınız için teşekkür ederim.
İşime yaradı ellerinize sağlık.
Kolay Gelsin. k::

 

[excelman]

Merhabalar;

Sayın Leventm sorun çözüldü demiştim fakat sorunu tam olarak çözemedim.Şimdi dosyayı parçalayarak küçük bir kısmını ekledim.
Benim istediğim Sayfa 1 deki verileri sırasıyla data sayfasına kopyalamak.
Fakat dünde dediğim gibi dropdownlarda hücre bağlantısı olmayacak.

İlgilenecek arkadaşlara şimdiden teşekkürler.
Kolay Gelsin.

 

[excelman]

Arkadaşlar yok mu bir cevap?

 

[Korhan Ayhan]

Selamlar,

Sayfa1 deki bilgiler ne zaman veya hangi durumda data sayfasına kopyalanacak ? Konuyu biraz açarmısınız. :arkadas:

 

[excelman]

Sayfa 1 deki formdan bende 1000 e yakın var.Ben bunları tek dosyada toplayacağım.

Benim istediğim Formun içerisinde mevcut olan drop down nesnelerinde şeçili olan değeri bulunduğu satıra yazacak.Daha sonra form daki verileri Data sayfasına kopyalayacak.
Umarım açıklayabilmişimdir.

 

[Korhan Ayhan]

Selamlar,

Peki bu bahsettiğiniz 1000 adet form farklı dosyalar içindemi yoksa aynı dosya içindemi ?

 

[excelman]

Farklı dosyalar içinde.

 

[Korhan Ayhan]

Selamlar,

Ekte size bir dosya hazırladım. Şu şekilde kullanırsanız sıkıntı yaşamayacağınızı tahmin ediyorum. Bu örnek dosyayı açın ve 1000 adet farklı dosyadaki formlarınızı bu dosyanın içerisine sekme rengi kırmızı olan sayfalardan sonra gelecek şekilde kopyalayın. Daha sonra data sayfasındaki aktar butonuna tıklayın 1000 sayfa olacağı için işlem biraz uzun sürecektir. Umarım işinize yarar.

Not : Eğer formlarınızın formatı örnek olarak gönderdiğiniz dosya gibi değilse hata oluşacaktır.

 

[excelman]

Sayın COST CONTROL teşekkür ederim.İstediğim buydu.

 

[caykasigi]

ekteki dosyalarin hala ekte olmasini isterdim