Arama yaptırma hem stok no ile hemde malzeme adıda arattırma

[meric68]

Stok no ve Malzeme adında arattıra bilirmiyim acaba
Not: Malzeme adında arattırma yapıyor
fakat stok no adında yapmıyor ben hem stok no hemde malzeme adında arattırma yapmak istiyorum

 

[Mahir64]

Stok no ve Malzeme adında arattıra bilirmiyim acaba
Not: Malzeme adında arattırma yapıyor
fakat stok no adında yapmıyor ben hem stok no hemde malzeme adında arattırma yapmak istiyorum

Merhaba
Arama kodunuzu bu şekilde değiştirin

Private Sub TextBox12_Change()
Dim sat, s As Integer
Dim deg1, deg2 As String
With ListBox1
.Clear
.ColumnCount = 10
.ColumnWidths = "90;310;60;80;55;67"
End With
For sat = 3 To Cells(65536, "B").End(xlUp).Row
deg1 = UCase(Replace(Replace(Cells(sat, "B"), "ı", "I"), "i", "İ"))
deg3 = UCase(Replace(Replace(Cells(sat, "a"), "ı", "I"), "i", "İ"))
deg2 = UCase(Replace(Replace(TextBox12, "ı", "I"), "i", "İ"))
If deg1 & deg3 Like "*" & deg2 & "*" Then
ListBox1.AddItem
ListBox1.List(s, 0) = Cells(sat, "a")
ListBox1.List(s, 1) = Cells(sat, "B")
ListBox1.List(s, 2) = Cells(sat, "C")
ListBox1.List(s, 3) = Cells(sat, "D")
ListBox1.List(s, 4) = Cells(sat, "E")
ListBox1.List(s, 5) = Cells(sat, "F")
s = s + 1
End If: Next
TextBox17 = Sheets("1").Range("K1").Value
TextBox18 = Sheets("1").Range("L1").Value
End Sub

 

[meric68]

Çok teşekkür ederim
ALLAH razı olsun

 

[Mahir64]

Çok teşekkür ederim
ALLAH razı olsun

Kolay gelsin
iyi Çalışmalar :hey: