süzülenler arasında istenilen satırın Sayfa2 ye yazılması?

[udentr2002]

Merhaba arkadaşlar ekli dosyada da anlatmaya çalıştım Textbox ile Sayfa1 deki verileri listbox1 e süzüyorum listbox1 e süzülenler kesilip sayfa2 ye kopyalanıyor ve ordanda listbox2 de gösteriliyor benim istediğim ise textbox ile süzülen verileriye ait bilgiler içerisinden sadece I,J,K,L stünları boş olan satırı Sayfa 2' ye kopyalaması yani tüm bulunan verileri değil Şimdiden yardım eden tüm hocalarıma teşekkür ederim

 

[udentr2002]

Yardım edebilecek bir hocam yokmu rica etsem üstatlar

 

[Recep İpek]

Aşağıdaki kodları deneyebilirsiniz.

Private Sub CommandButton1_Click()
On Error Resume Next
If TextBox1.Value = "" Then Exit Sub
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s2.Range("a12:x100").ClearContents
For i = 11 To s1.[a65536].End(3).Row
If UCase(LCase(s1.Cells(i, "a").Value)) Like UCase(LCase(TextBox1)) & "*" And s1.Cells(i, "I").Value = "" And s1.Cells(i, "j").Value = "" And s1.Cells(i, "k").Value = "" And s1.Cells(i, "L").Value = "" Then
sat = s2.[a65536].End(3).Row + 1
Range(s2.Cells(sat, "a"), s2.Cells(sat, "x")).Value = Range(s1.Cells(i, "a"), s1.Cells(i, "x")).Value
End If
Next i
ListBox2.RowSource = "sayfa2!a11:t" & s2.[a65536].End(3).Row
Set s1 = Nothing
Set s2 = Nothing
UserForm_Initialize
End Sub

 

[udentr2002]

ripek hocam

Çok teşekkür ederim güzel olmuş emeğine sağlık Allah razı olsun

 

[Recep İpek]

İşinize yaradığına sevindim.

Allah (c.c) hepimizden razı olsun.