Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: voleclub - 03 Nisan 2010, 11:05:54

Başlık: LİSTE KUTUSU
Gönderen: voleclub - 03 Nisan 2010, 11:05:54

SELAM
BEN  LİSTE KUTUSUNA  SAYFA1 DEN VERİ ALDIM.LİSTE KUTUSUNUN DENETİM BİCİMLENDİRME KISMINDAN BİRDEN ÇOK SECTİM.HEDEF BAĞLANTI HÜCRESİNİDE D1:D10 ARALIĞINDA BELİRLEDİM.BENİM SORUM ŞU LİSTTE KUTUSUNDAN İLK SEÇTİĞİM D1 'e İKİNCİ SECTİĞİM D2'e ÜÇÜNCÜ SECTİĞİM D3'e GİTSİN
YANİ KAYSERİ D12 e NİĞDE D2 YE İSTANBUL D3 E GİTSİN
BİR DOSYA GÖNDERİYORUM İNCELERSENİZ SEVİNİRİM
TEŞEKKÜRLER

Başlık: Ynt: LİSTE KUTUSU
Gönderen: Excelce.Net - 03 Nisan 2010, 11:09:01

Merhaba.

Lütfen mesajınızı, sadece cümlelerin ve özel isimlerin ilk harfleri büyük olacak şekilde düzenler misiniz!

Teşekkürler.

Başlık: Ynt: LİSTE KUTUSU
Gönderen: voleclub - 03 Nisan 2010, 11:47:48

Selam
Ben  Liste Kutusuna  Sayfa1 den veri aldım.Liste Kutusunun Denetim Bicimlendirme kısmından birden çok seçtim.Hedef Bağlantı hücresinide D1:D10 Aralığında Belirledim.Benim sorum şu Listte Kutusundan İlk Seçtiğim D1 'E İkinci seçtiğim D2'e üçüncü seçtiğim D3'e gitsin yani Kayseri D12 e Niğde D2 Ye İstanbul D3 e gitsin
Bir Dosya Gönderiyorum İncelerseniz Sevinirim
Teşekkürler

Başlık: Ynt: LİSTE KUTUSU
Gönderen: Bülent Öztürk - 03 Nisan 2010, 11:51:20

Selamlar.

D1, D2 ve D3'e veri gönderme işlemi, her seçişte mi olacak, yoksa seçme işlemleri 3'e tamamlanınca otomatik olarak mı, ya da seçme işlemleri sonrası bir düğme yardımıyla mı yapılsın?

Başlık: Ynt: LİSTE KUTUSU
Gönderen: voleclub - 03 Nisan 2010, 12:15:03

liste kutusunda açılan verileri tıkladığımda sırasıyla d1 d2 ve d3 'e gitmesini istiyorum Yani üçünüde aynı anda secebileyim

Başlık: Ynt: LİSTE KUTUSU
Gönderen: voleclub - 03 Nisan 2010, 12:33:45

3'ünün tamamlasına gerek yok bazen iki bazen dört seçsemde sırayla yerleşsin yani ilk tıkladığım d1'e ikinci tıkladığım d2'ye üçüncü tıkladığım d3'e dördüncü tıkladığım d4'e gitsin
 ilginiz için teşekkürler

Başlık: Ynt: LİSTE KUTUSU
Gönderen: Bülent Öztürk - 03 Nisan 2010, 13:01:44

Formlar yerine, Denetim Araç Kutusunu kullanırsanız, yapmak istediklerinizi makro ile daha kolay yapabilirsiniz.

Dosyanızı düzeledim.



[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

Başlık: Ynt: LİSTE KUTUSU
Gönderen: voleclub - 03 Nisan 2010, 13:14:21

İsteğim gibi ama, visial basicin listbox1'iyle değilde formdaki liste kutusu veya açılır menüyle aynısını yapabilir miyiz?

Başlık: Ynt: LİSTE KUTUSU
Gönderen: Bülent Öztürk - 03 Nisan 2010, 13:17:01

Zor...

Başlık: Ynt: LİSTE KUTUSU
Gönderen: voleclub - 03 Nisan 2010, 13:19:33

listboxa veriyi excelden nasıl alabiliriz

Başlık: Ynt: LİSTE KUTUSU
Gönderen: Bülent Öztürk - 03 Nisan 2010, 13:36:19

Alıntı yapılan: voleclub - 03 Nisan 2010, 13:19:33

Listbox'a veriyi Excel'den nasıl alabiliriz?

Tasarım modunda, Denetime sağ tıklayıp, Özellikler'i seçin.
ListFillRange özelliğine Sayfa1!A1:A11 yazın.

Veya makro ile aşağıdaki kodu kullanın;

Kod: [Seç]

ListBox1.ListFillRange = "Sayfa1!A1:A9"

Başlık: Ynt: LİSTE KUTUSU
Gönderen: voleclub - 03 Nisan 2010, 18:49:34

oldu ama ben listboxı kopylayıp sayfa 2, sayfa3 ,sayfa4 ,sayfa 5  .... kopyaladığımda (yani kopyaladığım her sayfaya)da kopyaladığım sayfalarında aynı hücrelere aynısı gibi sıralanmasını istiyorum sadece sayfa 1 i nasıl her sayfa şeklinde yapabilirim
excelce net ailesine çok teşekkür ederim

Başlık: Ynt: LİSTE KUTUSU
Gönderen: voleclub - 03 Nisan 2010, 23:30:41

sayfaları kopyalayıp çoğaltım list box1 deki verileri tılayınca o sayfadaki d sutununa yazmıyor devamlı sayfa 1deki  d sutununa yazıyor ben her sayfanın listbox kendi d sütununa yazmazını istiyorum

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

Başlık: Ynt: LİSTE KUTUSU
Gönderen: Excelce.Net - 04 Nisan 2010, 17:04:30

Kodlardaki kırmızı yazılı sayfa isimleri sil veya uygun sayfa adı ile değiştir;

Private Sub ListBox1_Click()
Excelce_Sonsatir = WorksheetFunction.CountA(Worksheets("Sayfa1").Range("D1:D65530"))
Worksheets("Sayfa1").Range("D" & Excelce_Sonsatir + 1) = ListBox1.List(ListBox1.ListIndex)
End Sub

Başlık: Ynt: LİSTE KUTUSU
Gönderen: İsmailCen - 02 Mayıs 2010, 12:14:48

Sanırım sorun çözülmüş, teşekkür benden!

Emeğinize sağlık...