listbox

[hamitcan]

Listbox’da multiselectsingle, multiselectmulti, multiselectextended ile seçim yapmak ve listbox’da seçilenleri excelde bir yada birkaç hücreye atamak istiyorum

yardımlarınız için teşekkürler....

 

[Hüseyin]

Selam,
deneme amacıyla aşağıdaki makroları oluşturdum;
bir uygulayın açık kalan yerler varsa, tekrar haberleşiriz:

Formun kodlarına:

Formun kodlarına ekleyin:
Private Sub UserForm1_Initialize()
ListBox1.ColumnCount = 1
ListBox1.RowSource = "a1:a6"
ListBox1.ControlSource = "c1"
ListBox1.BoundColumn = 0
End Sub

'Form üzerine ekleyeceğimiz KAPAT butonu için:
Private Sub CommandButton1_Click()
UserForm1.Hide
End Sub

Private Sub ListBox1_Click()
Range("C1").Value = ListBox1.Value
End Sub

Module ekleyin ve sayfadaki bir butona ekleyin:

Sub formgoster()
UserForm1.Show
End Sub

 

[hamitcan]

LISTBOX

öncelikle mesajınız için teşekkürler. Gönderdiğiniz kod ile tekli seçim yapılabiliyor zannedersem , listbox içinde birden fazla seçim yapıp bunu excelde hücrelere atayabilir miyim?

İyi çalışmalar...

 

[Hüseyin]

Merhaba,
aşağıdaki kodları deneyin;

A1:A6 kaynak liste olmalıdır.

Private Sub CommandButton1_Click()
Dim x As Long
Dim satir As Integer
satir = 1
Range("C1:C6").ClearContents
For x = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(x) = True Then
Sheets("Sheet1").Cells(satir, 3) = ListBox1.List(x)
satir = satir + 1
End If
Next x
End Sub

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 1
ListBox1.RowSource = "a1:a6"
ListBox1.BoundColumn = 0
End Sub

 

[hamitcan]

TEÞEKKÜR

ÇOK TEÞEKKÜR EDERİM KOD İSTEDİÐİM GİBİ.

YALNIZ LISTBOX'IN Ã?ZELLİKLERİNDEN 'MULTISELECTEXTENTED' SEÇENEÐİNİ İÞARETLEMEK GEREKİYOR. BU KODU KULLANMAK İSTEYEN ARKADAÞLARA YARDIMCI OLMASI AÇISINDAN BELİRTMEK İSTEDİM.
BU SAYEDE LISTBOX İÇİNDEN 3 FARKLI SEÇİM YAPILABİLİYORSUNUZ.

 

[Korhan Ayhan]

Selamlar,

Listboxta seçilen bu kayıtları başka bir sayfaya nasıl aktarabilirim. Ã?rneğin 3 kayıt seçip aktardım. Daha sonra 2 kayıt seçip aktar dediğimde önceki aktardıklarımın altına eklesin. Bu işlemide 5 sütun için nasıl kodlarız.

 

[enderturk]

merhaba

sanırım satir=1
satırı yerine satır=WorksheetFunction.CountA(Range("C1:C65000")) + 1
yazarsanız ve Range("C1:C6").ClearContents satırını silerseniz alt alta ekleme olur

 

[Korhan Ayhan]

Selamlar,

İstediğimi karşılamadı benim istediğim Listbox1 den seçtiğim kayıtları bir buton yardımıyla Sayfa2 ye aktarmak fakat daha önce aktarılanları silmeden altına ekleyerek aktarmak.

 

[makam61]

tamamda bu sadece 1 satır için ben bunların sdayısını artırmak istiyorum ama olmadı yapamadım bunu nasıl yapabilirim en az 10

 

[zafer]

Merhaba
Sayın Cost_control Sn.Hüseyinin kodlarınına ilave olarak
5 sütun olarak istemistiniz

Private Sub CommandButton1_Click()
c = Sheets("sayfa2").Cells(65536, 1).End(xlUp).Row
For x = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(x) = True Then
For j = 0 To 3
Sheets("Sayfa2").Cells(c+1, j + 1) = ListBox1.List(x, j)
Next
c = c + 1
End If
Next
End Sub

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 5
ListBox1.RowSource = "a2:e6"
ListBox1.BoundColumn = 0
End Sub

Edit : Tekrar Düzenledim Başlanğıç olarak 2 satırı aldım.

 

[btermeli]

Selamlar,

Secileni degil de secilenin yanindaki hucreyi alip, tum secilenlerin toplamini yine ayni userform'da gostermek mumkun mu?

 

[Altay3555]

Selamlar,

İstediğimi karşılamadı benim istediğim Listbox1 den seçtiğim kayıtları bir buton yardımıyla Sayfa2 ye aktarmak fakat daha önce aktarılanları silmeden altına ekleyerek aktarmak.

Private Sub CommandButton1_Click()
Sheets("Sayfa5").Activate
If ListBox1.ListIndex = -1 Then
MsgBox " Önce kutudan seçmelisiniz"
Exit Sub
Else
Dim iListCount As Integer, iColCount As Integer
Dim iRow As Integer
Dim rStartCell As Range
Set rStartCell = Sheets("Sayfa5").Range("A65536").End(xlUp).Offset(1, 0)
For iListCount = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(iListCount) = True Then
ListBox1.Selected(iListCount) = False
iRow = iRow + 1
For iColCount = 0 To Range("a2:e20").Columns.count - 1

rStartCell.Cells(iRow, iColCount + 1).Value = _
ListBox1.List(iListCount, iColCount)
Next iColCount
End If
Next iListCount
Set rStartCell = Nothing
End If
End Sub
Private Sub ListBox1_Click()
'CommandButoon1_Click teki kodları buraya alırsanız tek tıklamayla eklenir
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'CommandButoon1_Click teki kodları buraya alırsanız çift tıklamayla eklenir
End Sub

Private Sub UserForm_Activate()
Sheets("Sayfa3").Activate
On Error Resume Next
ListBox1.Enabled = False
ListBox1.Clear
ListBox1.RowSource = "Sayfa3!A2:G" & Sheets("Sayfa3").Range("G65536").End(xlUp).Row
ListBox1.ColumnCount = 7
ListBox1.ColumnWidths = "30;50;70;80;50;50;50"
ListBox1.ColumnHeads = True
ListBox1.Enabled = True
End Sub


Sevgili hocam,
Formumuzda ListBoxu incelerken arşivime ekleyebileceğim birşeyler bulabilirmiyim umuduyla dolaşırken bu eski konuyu buldum,bir başka yerde bulduğum (ç)ALINTI yı size haddim olmayarak göndermek istedim,dilerim olur,ve misliyle bize döner.
Sevgilerimle.

 

[Orion1]

Private Sub CommandButton1_Click()

Sevgili hocam,
Formumuzda ListBoxu incelerken arşivime ekleyebileceğim birşeyler bulabilirmiyim umuduyla dolaşırken bu eski konuyu buldum,bir başka yerde bulduğum (ç)ALINTI yı size haddim olmayarak göndermek istedim,dilerim olur,ve misliyle bize döner.
Sevgilerimle.

Korhan bey bunu 2005'te yazmış.O zamanlar benim yaptığım gibi. :Cool:

 

[Altay3555]

Korhan bey bunu 2005'te yazmış.O zamanlar benim yaptığım gibi. :Cool:

Hocam Selam,
Demekki benim bilmeden başka bir siteden alıntı yaptığım kod bölümü,Korhan Hocamın yaptığı çalışmaymış,O nu da eller çalmış,nihayetinde de bizim gibi acemi hocama tere satmaya kalkmışız.
Güldüğünüz kadar varmış,komik bir durumda kaldım ama acemiliğie verilince hoşgörüldü tabi ki.
Selamlar.