LİSTBOX'a boş hücrelerin aktarılmaması

[ttrance]

arkadaşlar mrb

For X = 1 To Sheets("SAYFA4").[A65536].End(3).Row
    c = c + 1
    ListBox1.AddItem
    ListBox1.List(c - 1, 0) = Sheets("SAYFA4").Cells(X, 1)
Next

formulunu kullanıyorum fakat userform uzerinden hucreleri sildirdigimde boş hucreleride listbox gosteriyor bunu nasıl engelleyebilirim..

kolay gelsin...

 

[Korhan Ayhan]

Selamlar,

Silme işlemi yaptırdığınız kodların en alt satırına alttaki kodu uygulayıp denermisiniz.

UserForm_Initialize

 

[ttrance]

Private Sub CommandButton6_Click()
For X = 1 To Sheets("sayfa4").[A65536].End(3).Row
    If Left(Sheets("sayfa4").Cells(X, 1), 100) = TextBox1.Value Then
    Sheets("sayfa4").Cells(X, 1) = ""
    Sheets("sayfa4").Cells(X, 2) = ""
    Sheets("sayfa4").Cells(X, 3) = ""
    Sheets("sayfa4").Cells(X, 4) = ""
    MsgBox "SİLİNDİ"
    TextBox1.SetFocus
    End If
    Next
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
UserForm_Initialize
End Sub

hocam tam olarak anlayamadım herhalde hata veriyor...

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanızı ekleyebilirmisiniz.

 

[ttrance]

Userform Hazirladim İncelersenİz Sevİnİrİm

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde değiştirip denermisiniz.

Private Sub CommandButton1_Click()
    For X = 1 To Sheets("sayfa1").[A65536].End(3).Row
    If Left(Sheets("sayfa1").Cells(X, 1), 100) = TextBox1.Value Then
    Sheets("sayfa1").Rows(X).Delete
    MsgBox "SİLİNDİ"
    TextBox1.SetFocus
    End If
    Next
    UserForm_Activate
End Sub

 

[ttrance]

hocam;

Sheets("sayfa1").Rows(X).Delete
ve
UserForm_Activate

hata veriyor

 

[Levent Menteşoğlu]

If Left(Sheets("sayfa1").Cells(X, 1), 100) = TextBox1.Value

Dosyanızda yukarıdaki satırı ne amaçla kullandınız. Daha doğrusu oradaki 100 sayısının kullanımını anlayamadım.

 

[ttrance]

If Left(Sheets("sayfa1").Cells(X, 1), 100) = TextBox1.Value

Dosyanızda yukarıdaki satırı ne amaçla kullandınız. Daha doğrusu oradaki 100 sayısının kullanımını anlayamadım.

hocam

sayfa 1 de a sütunun da yazılı olan barkod degerlerini okusun amaçlı.. 100 sayısını rast gele verdim kodlar bazen uzun olabiliyor...

 

[Levent Menteşoğlu]

hocam

sayfa 1 de a sütunun da yazılı olan barkod degerlerini okusun amaçlı.. 100 sayısını rast gele verdim kodlar bazen uzun olabiliyor...

100 gibi sabit bir sayı yerine aşağıdaki gibi değişken yaparsanız.

If Left(Sheets("sayfa1").Cells(X, 1), len(textbox1)) = TextBox1.Value