Listbox -bos satirlari göstermemek

[Yakut]

slm

bir baska kod altinda , listboxdaki bos satirlari göstermek istemiyorum. am bir türlü ayarlayamadim.


Private Sub UserForm_Initialize()
Dim i As Long
On Error Resume Next
Sheets("Sayafa1").Select
With ListBox1
.MultiSelect = fmMultiSelectMulti
.ListStyle = fmListStyleOption
End With
For i = i To 500
If Sheets("Sayfa1").Cells(i, 1) <> "" Then _
ListBox1.AddItem Sheets("Sayfa1").Cells(i, 1)
Next

son = [a500].End(3).Row
For i = 2 To son
If Cells(i, "AW") = "*" Then
ListBox1.Selected(i - 2) = True
End If
Next

End Sub


saygilar

 

[Ayhan Ercan]

Merhaba

Aşağıdaki kırmızı yazılı satırlara dikkat ediniz..
Dim i As Long
On Error Resume Next
Sheets("Sayfa1").Select
With ListBox1
.MultiSelect = fmMultiSelectMulti
.ListStyle = fmListStyleOption
End With
For i = 1 To 500
If Sheets("Sayfa1").Cells(i, 1) <> "" Then _
ListBox1.AddItem Sheets("Sayfa1").Cells(i, 1)
Next

 

[Yakut]

On Error Resume Next
Sheets("Sayafa1").Select
son = [a65536].End(3).Row
For i = 2 To son
If Cells(i, "AW") = "*" Then
ListBox1.Selected(i - 2) = True
End If
Next

ayni zamanda bu kodun da calismasini istiyorum.

 

[Ayhan Ercan]

On Error Resume Next
Sheets("Sayafa1").Select
son = [a65536].End(3).Row
For i = 2 To son
If Cells(i, "AW") = "*" Then
ListBox1.Selected(i - 2) = True
End If
Next

ayni zamanda bu kodun da calismasini istiyorum.

Bu kod ile ne yapmak istiyorsunuz?

 

[Yakut]

Listbox da bos olan satirlar göstermesin .

 

[Ayhan Ercan]

Listbox da bos olan satirlar göstermesin .

Bahsettiğiniz kod listboxta boş olan satırların göstermemesi ile ilgili değil.

Kodda AW sütununda * (yıldız) işaretinin varlığı durumunda Listboxtaki ilgili satırını seçilmesi istenmekte.

Aynı zamanda yine o bahsedilen kodda Sayfa yerine Sayafa yazılmış...

 

[mami68]

Küçük bir hatayı daha buldum,Ad Kutusunda tanımlamış olduğun alanı A4-ten başlamışsınız.Gereken A2-den tanımlama olacak.İyi çalışmalar

 

[Yakut]

dogru dur , hatalar olabilir, örnekleri karistirmisim,

peki bu örnekte bos olan satirlari nasil gizleyebiliriz. o dört köseli olanlara , asagi dogru indirdigimizde bos olanlar gözümekte.
tabii bunun diger cözümü var .özelliklerden bunu kaldirabiliriz.

cevaplariniz icin tesekkürler


saygilar

 

[Orion1]

Dosyanız ekte.

 

[Yakut]

evren hocam,

kodda bir degisiklik yapmadiniz,

=Indirekt("Sayfa1$A$2$"&Anzahl2(Sayfa1!$A$2:$A65535)+1

tam istedigim gibi oldu

tesekkürler

 

[Orion1]

evren hocam,

kodda bir degisiklik yapmadiniz,

=Indirekt("Sayfa1$A$2$"&Anzahl2(Sayfa1!$A$2:$A65535)+1

tam istedigim gibi oldu

tesekkürler

Rica ederim.
İyi çalışmalar.