Listbox'a veri aktarma

[TİKOS]

arkadaşlar dosya açıkladım.
Şimdiden teşekkürler

 

[Orion1]

Dosyanız ekte.

Private Sub CommandButton15_Click()
Dim i As Long, ad As String, blm As String, k As Byte, x As Long
ListBox1.RowSource = vbNullString
With Sheets("ANALİSTE")
    For i = 2 To .Cells(65536, "B").End(xlUp).Row
        If adsoyad.Value = "" Then
            ad = .Cells(i, "B").Value
            Else
            ad = adsoyad.Value
        End If
        If bolum.Value = "GENEL" Or bolum.Value = "" Then
            blm = .Cells(i, "C").Value
            Else
            blm = bolum.Value
        End If
        If ad = .Cells(i, "B").Value And blm = .Cells(i, "C").Value Then
            ListBox1.AddItem
            For k = 2 To 9
                ListBox1.Column(k - 2, x) = .Cells(i, k).Value
            Next k
            ListBox1.Column(2, x) = Format(.Cells(i, "D").Value, "dd.mm.yyyy")
            ListBox1.Column(3, x) = Format(.Cells(i, "E").Value, "dd.mm.yyyy")
            x = x + 1
        End If
    Next i
End With
End Sub

Private Sub CommandButton8_Click()
Dim ad As String, blm As String, s1 As Worksheet
Set s1 = Sheets("ANALİSTE")
If adsoyad.Value = "" Then
    ad = "*"
Else
    ad = adsoyad.Value
End If
If bolum.Value = "GENEL" Or bolum.Value = "" Then
    blm = "*"
Else
    blm = bolum.Value
End If
s1.Range("A1").AutoFilter
s1.Range("A1").AutoFilter field:=2, Criteria1:=ad
s1.Range("A1").AutoFilter field:=3, Criteria1:=blm
s1.PageSetup.PrintArea = "ANALİSTE!B2:I" & s1.Cells(65536, "B").End(xlUp).Row
Me.Hide
s1.PrintPreview
s1.Range("A1").AutoFilter
s1.PageSetup.PrintArea = vbNullString
Me.Show


End Sub

 

[Emsdmr]

Sayın Evren Hocam Bir de benim Formu Minimize etmek için kod girdiğimde butonlar hata veriyor konu başlıklı probleme bir çözüm bulurmusunuz.

 

[TİKOS]

Listbox'a aktarma

evren hocam teşekkürler,
biraz dosyayı değiştirdim daha anlaşılır olsun diye,
bölüm 'e göre rapor istediğimde o bölümde çalışanlar listelensin,(genelde tüm personel)
birde listboxta kılavuz çizgiler olursa şahane olur
teşekkürler

 

[TİKOS]

Listbox'a aktarma

evren hocam teşekkürler,
biraz dosyayı değiştirdim daha anlaşılır olsun diye,
bölüm 'e göre rapor istediğimde o bölümde çalışanlar listelensin,(genelde tüm personel)
birde listboxta kılavuz çizgiler olursa şahane olur
teşekkürler