userformda listbox a veri alma

[ordulu82]

Merhabalar. benim elimde ekteki gibi bir dosya mevcut.
excel listesinde 3 alan var fakat benim kullandığım sadece sözleşme ücretinin olduğu ilk hücre, çünkü öteki 2 hücre sözleşme ücretine göre formülle düzenlenmiş. userformda sadece ücret girişi için bir textbox açtım. benim istediğim userformdaki listboxta sadece sözleşme ücreti değil 3 alan da görünmesi..

 

[Mustafa MUTLU]

Private Sub UserForm_Initialize()
With UserForm1.ListBox1
.BackColor = vbYellow' Zemin Rengi
.ColumnCount = 2 ' Kaç Sütun Görünecek
.ColumnWidths = "20;50" ' Sütun Genişlikleri
.ForeColor = vbBlue ' Yazı Rengi
If Sheets("Sayfa1").Range("B2") = Empty Then
.RowSource = Empty
Else
.RowSource = "Sayfa1!B2:E" & [Sayfa1!B65536].End(3).Row
End If
End With
End Sub

Sayfa1!B2:E olan kısım görünmesini istediğin aralıktır...

 

[Orion1]

alternatif.

.RowSource = "Sayfa1!B2:E" & [Sayfa1!B65536].End(3).Row

yukarıdaki kodu aşağıdaki ile değiştiriniz.

.list = sheets("Sayfa1").range(B2:E" & [Sayfa1!B65536].End(3).Row).value

 

[ordulu82]

alternatif.

.RowSource = "Sayfa1!B2:E" & [Sayfa1!B65536].End(3).Row

yukarıdaki kodu aşağıdaki ile değiştiriniz.

.list = sheets("Sayfa1").range(B2:E" & [Sayfa1!B65536].End(3).Row).value

üstadım kodda sorun çıktı syntex error hatası veriyor

 

[forever215]

Merhaba;

Kırmızı ile belirttiğim eksiklikten kaynaklanıyor muhtemelen bu şekilde düzeltip

dener misiniz?

.list = sheets("Sayfa1").range("B2:E" & [Sayfa1!B65536].End(3).Row).value

 

[ordulu82]

eyvallah üstadlarım elinize sağlık..Şimdi oldu. ben biraz üzerinde çalışayım.. çok teşekkür ederim

 

[ordulu82]

Merhaba;

Kırmızı ile belirttiğim eksiklikten kaynaklanıyor muhtemelen bu şekilde düzeltip

dener misiniz?

.list = sheets("Sayfa1").range("B2:E" & [Sayfa1!B65536].End(3).Row).value

hocam kusura bakma bu listboxun üzerine hücre isimleri yazılıyor ya bunu nasıl yapabiliirm. yani dosyadaki sözleşme ücret, günlük ücret gibi sütun isimlerinin doğrudan lixtboxun üzerinde görünebilir mi

 

[Orion1]

hocam kusura bakma bu listboxun üzerine hücre isimleri yazılıyor ya bunu nasıl yapabiliirm. yani dosyadaki sözleşme ücret, günlük ücret gibi sütun isimlerinin doğrudan lixtboxun üzerinde görünebilir mi

Kolon başlıkları sadece rowsource yönteminde olabiliyor.
sütunda başlıklar için;

listbox1.columnheads = true

 

[ordulu82]

Kolon başlıkları sadece rowsource yönteminde olabiliyor.
sütunda başlıklar için;

listbox1.columnheads = true

üstadım çok şey mi istiyorum bilmiyorum ama ekteki dosya şeklinde bir arama penceresi oluşturmak istiyorum. elinizde o tip bir form varsa ekleyebilirmisniz. üzerinde çalışayım biraz

 

[kediciyizbiz]

Bende birşeyler eklemek istiyorum belki bir arkadaşın işine yarayacak bunlar.
Private Sub ListBox1_Click()
kac = ana.ListBox1.ListIndex

sah = Me.ListBox1.List(kac, 3)
If sah <> "" Then ana.ToggleButton3.Visible = True
If sah <> "" Then ana.ToggleButton4.Visible = True
End Sub

"kac" ile kaçıncı satır olduğunu öğreniyoruz. Tıkladığımız zaman
Sonra sa ile listbox da tıkladığımız satırın 3. elemanına ( sütununa) ulaşıyoruz.
bu şekilde de işlemlere devam ediyoruz.

 

[kykbt]

Kolon başlıkları sadece rowsource yönteminde olabiliyor.
sütunda başlıklar için;

listbox1.columnheads = true

Hocam Merhaba
burada başlık değerlerini

.list = sheets("Sayfa1").range("B2:E" & [Sayfa1!B65536].End(3).Row).value

B1 ve C1 den almak ister isek ne gerekir