Yardım

Yigit7444

Altın Üye
Katılım
4 Haziran 2022
Mesajlar
18
Excel Vers. ve Dili
Excel Öğrenmek
Yardım
İleti#1) YİĞİT » 15 Haz 2022 18:19

Merhaba Kıymetli Hocalarım
Bu kodu listbok a cevirip 3 Satırı getirmek istiyorum becermedim
combobok ta adı geliyor
benim istediğim listbox ta adı soyadı ve baba adı getirsin
bu kodu bu şekilde değiştirseniz çok mutlu olurum


Dim X As Byte, Sayfa As Worksheet, Satır As Long
Dim lstv As ListItem, topla As Double
Application.ScreenUpdating = False

On Error Resume Next
For X = 1 To 5
If Me.Controls("ComboBox" & X) = Empty Then Me.Controls("ComboBox" & X) = "*"
Next

Me.Lstgenellıste.ListItems.Clear

For Each Sayfa In Worksheets

If Sayfa.AutoFilterMode Then Sayfa.Range("A1").AutoFilter

If ComboBox1 <> "" And ComboBox1 <> "*" Then Sayfa.Range("A1").AutoFilter field:=1, Criteria1:=ComboBox1

If ComboBox2 <> "" And ComboBox2 <> "*" Then Sayfa.Range("A1").AutoFilter field:=2, Criteria1:=ComboBox2
If ComboBox3 <> "" And ComboBox3 <> "*" Then Sayfa.Range("A1").AutoFilter field:=3, Criteria1:=ComboBox3
If ComboBox4 <> "" And ComboBox4 <> "*" Then Sayfa.Range("A1").AutoFilter field:=4, Criteria1:=ComboBox4
' If ComboBox5 <> "" And ComboBox5 <> "*" Then Sayfa.Range("A1").AutoFilter Field:=5, Criteria1:=ComboBox5
For X = 3 To Sayfa.Cells(Rows.Count, 1).End(3).Row
If Sayfa.Cells(X, 1).EntireRow.Hidden = False Then
Set lstv = Me.Lstgenellıste.ListItems.Add(, , Sayfa.Cells(X, 1).Value)
lstv.SubItems(1) = Sayfa.Cells(X, 2).Value
lstv.SubItems(2) = Sayfa.Cells(X, 3).Value
lstv.SubItems(3) = Sayfa.Cells(X, 4).Value
lstv.SubItems(4) = Sayfa.Cells(X, 5).Value


topla = topla + lstv.SubItems(3)
End If
Next

If Sayfa.AutoFilterMode Then Sayfa.Range("A1").AutoFilter

Next

Application.ScreenUpdating = True

If Me.Lstgenellıste.ListItems.Count = 0 Then MsgBox "Kriterlerinize uygun kayıt bulunamamıştır !", vbCritical, "Dikkat !"
Set lstv = Nothing
Me.Label7.Caption = Format(topla, "#,##0.00")
 
Üst