Listbox'a excel den veri alma

[catalinastrap]

Merhabalar,
"DENEME_v1" isimli excel dosyamda "SUZ"isimli bir sayfam var,
"SUZ"Sayfasındaki "ı" kolonunda formül sonucu "BİTMEK ÜZERE" değerini içeren satırların aynı sayfada bulunan B-C-G kolonlarındaki datanın
Oluşturduğum İsmi "LISTE" olan formdaki Listbox1 e gelmesini sağlamak istiyorum (yani "bitmek üzere" yazan satırları süzüp ilgili kolondaki dataları aktarmak istiyorum)


Yardımlarınız için şimdiden çok teşekkür ederim

 

[catalinastrap]

Merhabalar,
"DENEME_v1" isimli excel dosyamda "SUZ"isimli bir sayfam var,
"SUZ"Sayfasındaki "ı" kolonunda formül sonucu "BİTMEK ÜZERE" değerini içeren satırların aynı sayfada bulunan B-C-G kolonlarındaki datanın
Oluşturduğum İsmi "LISTE" olan formdaki Listbox1 e gelmesini sağlamak istiyorum (yani "bitmek üzere" yazan satırları süzüp ilgili kolondaki dataları aktarmak istiyorum)


Yardımlarınız için şimdiden çok teşekkür ederim

Aşağıdaki koda ı kolonunda "BİTMEK ÜZERE" değeri olanları al diye bir kural ilave edebilir miyiz


Private Sub UserForm_Initialize()
For i = 1 To [a65536].End(3).Row
If Cells(i, 1) <> "" Then
c = c + 1
With ListBox1
.ColumnCount = 3
.AddItem
.List(c - 1, 0) = Cells(i, 2)
.List(c - 1, 1) = Cells(i, 3)
.List(c - 1, 2) = Cells(i, 7)
End With
End If
Next

End Sub

 

[Orion1]

Örnek dosyanızı yollarsanız daha erken cevap alabilirsiniz.

 

[Orion1]

Şunu deneyin.

For i = 1 To [a65536].End(3).Row
If Cells(i, 1).Value = "BİTMEK ÜZERE" Then

 

[catalinastrap]

Şunu deneyin.

For i = 1 To [a65536].End(3).Row
If Cells(i, 1).Value = "BİTMEK ÜZERE" Then

bu şekilde yazdım bu sefer boş geldi hocam


Private Sub UserForm_Initialize()

For i = 1 To [a65536].End(3).Row
If Cells(i, 1).Value = "BİTMEK ÜZERE" Then

c = c + 1
With ListBox1
.ColumnCount = 3
.AddItem
.List(c - 1, 0) = Cells(i, 2)
.List(c - 1, 1) = Cells(i, 3)
.List(c - 1, 2) = Cells(i, 7)
End With
End If
Next

End Sub

 

[Orion1]

Buyurun.

For i = 1 To [a65536].End(3).Row
If Cells(i, 1) <> "" And Cells(i, "I").Value = "BİTMEK ÜZERE" Then
c = c + 1
With ListBox1
.ColumnCount = 3
.AddItem
.List(c - 1, 0) = Cells(i, 2)
.List(c - 1, 1) = Cells(i, 3)
.List(c - 1, 2) = Cells(i, 7)
End With
End If
Next

 

[catalinastrap]

Buyurun.

For i = 1 To [a65536].End(3).Row
If Cells(i, 1) <> "" And Cells(i, "I").Value = "BİTMEK ÜZERE" Then
c = c + 1
With ListBox1
.ColumnCount = 3
.AddItem
.List(c - 1, 0) = Cells(i, 2)
.List(c - 1, 1) = Cells(i, 3)
.List(c - 1, 2) = Cells(i, 7)
End With
End If
Next

ellerinize sağlık çok teşekkür ederim