Listbox a koşullu veri ekleme

[realastala]

Herkese selam;

Listbox'a AddItem ile eklemek için referans aralığı : A1 : B100

aktif hücrenin konumuna göre, aktif hücre ve sağındaki hücreyi listboxa ile eklemek istiyorum ( 2 sütun halinde)

örnek :
aktif hücre A1 de ise ----> A1:B1 listboxa eklensin veya
aktif hücre A8 de ise ----> A8:B8 listboxa eklensin gibi

 

[turist]

ListBox sayfada mı, UserForm'da mı?
En iyisi; hızlı ve doğru cevap almak isterseniz, "örnek" excel dosyanızı foruma iletin.
Örnek dosya ekleme konusunda bilgi edinmek isterseniz;
https://www.excel.web.tr/threads/soru-ile-ilgili-oernek-excel-dosyasi-ekleme.174755/
bakınız.

 

[Orion1]

Herkese selam;

Listbox'a AddItem ile eklemek için referans aralığı : A1 : B100

aktif hücrenin konumuna göre, aktif hücre ve sağındaki hücreyi listboxa ile eklemek istiyorum ( 2 sütun halinde)

örnek :
aktif hücre A1 de ise ----> A1:B1 listboxa eklensin veya
aktif hücre A8 de ise ----> A8:B8 listboxa eklensin gibi

A veya B sütununa çift tıklayın.
Dosyanız aşağda liktedir.

DOSYAYI INDIR

.

 

[realastala]

A veya B sütununa çift tıklayın.
Dosyanız aşağda liktedir.

DOSYAYI INDIR

.

dosyayı indiremedim
yapmak istediğim aşağıdaki if alanına aktif hücre ve sağındaki 1 hücreyi additem ile eklemek



Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 100
Cells(i, 1).Select
If ActiveCell.Value <> "" Then

ListBox1.AddItem ActiveCell

End If
Next i
End Sub

 

[Korhan Ayhan]

Merhaba,

Bir hücre içeriğini bir nesnede göstermek için seçme işlemi yapmanıza gerek yok.

Örnek dosya üzerinde açıklama yaparsanız yardım almanız kolaylaşır.

 

[realastala]

Merhaba,

Bir hücre içeriğini bir nesnede göstermek için seçme işlemi yapmanıza gerek yok.

Örnek dosya üzerinde açıklama yaparsanız yardım almanız kolaylaşır.

örnek dosya ektedir

listboxta çift tıklama yapınca hücreleri siliyorum dolayısıyla listboxta aralarda gereksiz boşluklar oluşuyor
silme işleminin ardından boşluksuz olarak tekrar listeletmek için kullanacağım


örnek dosya;
https://drive.google.com/file/d/1fnOooPMgP74SD54QYl6TZq48pDGS1BGN/view?usp=sharing

 

[Orion1]

Dosyanız linktedir

DOSYAYI INDIR.

.

 

[realastala]

teşekkür ederim elinize sağlık Allah razı olsun. İstediğim oldu

 

[Orion1]

teşekkür ederim elinize sağlık Allah razı olsun. İstediğim oldu

Rica ederim.
Kolay gelsin.