[Yardım]  Listbox seçim hakkında yardım!!

Verilerinizi listeleyebileceğiniz liste kutusu

Listbox seçim hakkında yardım!!

İleti#1)  berberoglu70 » 05 Eyl 2019 21:48

Merhaba..
500 e yakın personelin bilgileri bulunan Örnek dosyada userform üzerindeki listbox verileri "VERİ!AF sütunundan çekiyor.
Benim istediğim VERİ sayfasındaki "H" sütununda Kadro durumu 4/B Sözleşmeli olanları listelemesidir.
Yardımcı olursanız sevinirim.
Hayırlı akşamlar dilerim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
berberoglu70
Yeni Başlamış
 
Kayıt: 04 Mar 2018 13:27
Meslek: kamu
Yaş: 38
İleti: 23
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Karaman

Cevap: Listbox seçim hakkında yardım!!

İleti#2)  mcb1991 » 06 Eyl 2019 00:30

Combobox1
Kod: Tümünü seç
Private Sub ComboBox1_Change()
Dim k As Range, adrs As String, j As Byte, a As Long, myarr()
ReDim myarr(1 To 30, 1 To 1)
With Worksheets("veri")
Me.ListBox1.RowSource = veri
If .FilterMode Then .ShowAllData
Set k = .Range("H5:H1000").Find(ComboBox1.Text & "*", , xlValues, xlWhole)
If Not k Is Nothing Then
adrs = k.Address
Do
a = a + 1
ReDim Preserve myarr(1 To 30, 1 To a)
For j = 1 To 30
myarr(j, a) = .Cells(k.Row, j).Value
Next j
Set k = .Range("H5:H1000").FindNext(k)
Loop While Not k Is Nothing And k.Address <> adrs
ListBox1.Column = myarr
End If
End With
End Sub


Listbox kodu
Kod: Tümünü seç
Private Sub ListBox1_Click()
Dim S1 As Worksheet
Set S1 = Sheets("veri")
S1.Select
X = ListBox1.ListIndex + 6
   S1.Cells(X, 2).Select
On Error Resume Next
    ComboBox7.Value = ListBox1.Column(1)
    ComboBox1.Value = ListBox1.Column(2)
    ComboBox2.Value = ListBox1.Column(5)
    TextBox3.Value = ListBox1.Column(7)
    ComboBox3.Value = ListBox1.Column(6)
    ComboBox8.Value = ListBox1.Column(8)
    ComboBox9.Value = ListBox1.Column(9)
    ComboBox10.Value = ListBox1.Column(3)
End Sub


Örnek dosyayı ekledim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
mcb1991
Yeni Başlamış
 
Kayıt: 12 Ağu 2019 10:06
Meslek: Genel Koordinatör
Yaş: 28
İleti: 18
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Pendik

Cevap: Listbox seçim hakkında yardım!!

İleti#3)  berberoglu70 » 06 Eyl 2019 18:36

Ben otomatik olarak combobox suz 4/b Sözleşmelileri süzüp göstermesini istiyordum.
Teşekkür ederim. Birde böyle deneyim.
Kullanıcı avatarı
berberoglu70
Yeni Başlamış
 
Kayıt: 04 Mar 2018 13:27
Meslek: kamu
Yaş: 38
İleti: 23
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Karaman


Forum ListBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe