TextBox içine yazılan kelimelerin geçtiği satırları diğer sayfaya sıralama

[sdegirmenci]

Stoktaki ürünleri bulma

Değerli Hocalarım Merhaba;
Ekteki dosyamda Yapmış olduğum Stok proğramı için bir stok kartı yapmak istiyorum.

TextBox içine Örnek:
" elas" yazdığımızda "F" sütunu içinde "elas" geçen ve birbirinin aynı olmayan satırları kod ile Rapor sayfasında "F" sutununa sıralaması mümkünmü acaba, Bu konuda yardımlarınızı rica ediyorum, İlginize şimdiden çok teşekkür ediyorum.

 

[sdegirmenci]

Değerli Hocalarım, Merhaba
istediğim mümkün değilmidir acaba,

 

[dEdE]

Merhaba,
Aşağıdaki kodu örnek dosyanızda Stok sayfasının kod bölümüne yapıştırarak dener misiniz?

Private Sub CommandButton1_Click()
Set s1 = Sheets("Stok")
Set s2 = Sheets("Rapor")

s2.Range("F6:F" & s2.Range("F" & Rows.Count).End(3).Row).ClearContents
Set Aranan = s1.Range("F:F").Find(s1.TextBox1.Text, , xlValues, xlPart)
    If Not Aranan Is Nothing Then
        adres = Aranan.Address
        Do
            If WorksheetFunction.CountIf(s2.Range("F:F"), Range(Aranan.Address).Value) < 1 Then
                ss = s2.Range("F" & Rows.Count).End(3).Row + 1
                If ss < 6 Then ss = 6
                s2.Cells(ss, 6).Value = s1.Range(Aranan.Address).Value
            End If
            Set Aranan = s1.Cells.FindNext(Aranan)
        Loop While Not Aranan Is Nothing And Aranan.Address <> adres
    End If
    s1.TextBox1.Text = ""
MsgBox "Aktarma Tamamlandı.", vbInformation, "dEdE " & Application.UserName & "'e Başarılar diler."
End Sub

 

[sdegirmenci]

Değerli Hocam dEdE; İlginize çok teşekkür ederim, Tam istediğim gibi olmuş. Sıralama yaparken Stok sayfasında karşılığına gelen örnek "U" sütunundaki satırlarıda alması mümkünmü,

 

[dEdE]

...Sıralama yaparken Stok sayfasında karşılığına gelen örnek "U" sütunundaki satırlarıda alması mümkünmü,

Merhaba,
Aşağıda satırın altına kırmızı ile işaretlediğim satırı ekleyip dener misiniz?

s2.Cells(ss, 6).Value = s1.Range(Aranan.Address).Value
[COLOR="Red"]s2.Cells(ss, 7).Value = s1.Cells(Aranan.Row, "U").Value[/COLOR]

 

[sdegirmenci]

Hocam çok teşekkür ederim, İstediğim gibi oldu, İşleriniz hep kolay gelsin, saygılarımla