Combobox'dan veri aktarma

[seddur]

Combobox içindeki verileri istenen sütuna tek tıklamayla nasıl aktarabilirim? Yardımcı olacak arkadaşa teşekkürler.

 

[EmrExcel16]

Deneyiniz..

Private Sub CommandButton1_Click()
    Range("A1:A" & ComboBox1.ListCount) = ComboBox1.List
End Sub

 

[seddur]

Sağol üstadım.olmuş

 

[EmrExcel16]

Rica ederim , iyi çalışmalar..

 

[seddur]

Bir şey daha rica edebilirmiyim.Kusura bakmayın çalışırken ortaya çıktı.Bu sıralamayı A:A sütununda değilde A,B,C,D....vs. olarak yan yana sıralatabilirmiyiz.

 

[EmrExcel16]

O zaman bu şekilde deneyiniz , Cells(1, i) "i" ile "1" in yerlerini değiştirerek ister satıra ister sütuna yazdırabilirsiniz verileri..

Private Sub CommandButton1_Click()   
    For i = 1 To ComboBox1.ListCount
        Cells(1, i) = ComboBox1.List(i - 1)
    Next
End Sub

 

[seddur]

Her sütunda 15 satır olacak .

 

[EmrExcel16]

Sorunuzu açıkçası tam olarak anlamadım

Her sütunda 15 satır olacak .

biraz daha açıklama yapmalısınız yada örnek bir dosya eklemelisiniz.

 

[seddur]

Bütün ekranı kaplayan bir tablo gibi olacak.Örneğin 15 satır 5 sütundan oluşacak bir tablo gibi.Comboboxda benzersiz hale gelmiş veriler listelendğinde bütün ekranı kaplayacak.Böylece daha düzgün ve anlaşılır bir görünüm olacak.

 

[EmrExcel16]

Bu durumda örnek dosya ekleyiniz ve dosya üzerinde olmasını istediğiniz durumu örneklendirin.

 

[seddur]

Dosya büyük olduğundan sadece bir sayfasını koyuyorum.Sayfada yapılan satışların toplam dökümü yer alıyor.Combobox yardımıyla ürünler teke düşürülüyor.Sonnra bu ürünler yan yana olacak şekilde tablo gibi listelenecek.Ve son olarak satılan bu ürünlerin toplam miktarları yanına yazılacakYani toplam miktarları yazmak benim hayalim.Olmasada başka yolunu bulmaya çalışacağım..

 

[EmrExcel16]

Sayfanızda "Combobox" göremedim ve bilgilerin nereye yazılacağını belirtmemişsiniz.

 

[seddur]

Bilgiler aynı sayfaya diğerlerinin üzerine de yazılabilir.Farklı sayfaya da yazılabilir.Combobox umarım eklenmiştir.Command button a tıklandığında bilgiler teke düşüyor.

 

[EmrExcel16]

Combobox eklemişsiniz evet verdiğim kodları da uygulamışsınız ve "A1:A.." veriler ekleniyor , siz nereye eklenmesi istediğinizi ve nasıl eklenmesini istediğinizi örnek olarak belirtmemişsiniz,

 

[seddur]

En uygunu farklı bir sayfaya 15 satır 6 sütun olarak bir tablo görünümünde eklenmesi olacaktır.

 

[seddur]

Toplamları almak içinde aralara boş sütun ekleyip =ETOPLA(Liste!C:C;Sayfa5!A2;Liste!D)) formülü ile bütün satırlara uygulayacağım.

 

[EmrExcel16]

Sayfa1'e 15 satır aşağıya inince yan sütuna geçiyor bilgiler, doğru anlamışımdır umarım..

 

[seddur]

Hocam çok özgün bir kod oldu emeğinize sağlık.Çalışıyor.

 

[EmrExcel16]

İstediğiniz gibi olmasına sevindim , kolay gelsin..

 

[seddur]

If WorksheetFunction.CountIf(Range("c2:c" & i), Range("c" & i).Value) = 1 Then Hocam yazdığınız bu kod aktif sayfada "c" sütunundaki verileri çekiyor.Benim yapmak istediğim Liste adlı sayfada "c" sütunundaki verileri çekmesi.İlgili koda sayfa eklemesini yapamadım.Böylece 1 sayfadan tasarruf etmiş olacağım.Saygılarımla.