Just nu i M3-nätverket
Gå till innehåll

Vill utöka sökningen


Lisa_K
 Share

Rekommendera Poster

Jag har ett formulär där jag skall kunna söka efter mina produkter men nu kan jag bara söka från en kolumn och då bara få fram en uppgift.

Jag skulle även vilja kunna söka på produkt numret i samma ruta.

 

Produkt numret finns i kolumn F

 

 

Sub Show_Product()

Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Product Master")

Dim i As Integer

Me.ListBox1.Clear

For i = 2 To Application.WorksheetFunction.CountA(sh.Range("A:A"))
    If Me.TextBox1.Value = "" Then
        Me.ListBox1.AddItem sh.Range("A" & i).Value
    Else
        If VBA.InStr(UCase(sh.Range("A" & i).Value), UCase(Me.TextBox1.Value)) > 0 Then
        Me.ListBox1.AddItem sh.Range("A" & i).Value
        End If
    End If
Next i

End Sub

 

Kanske skall tillägga att det är inte jag som skrivit koden. Hittade den på nätet men ville modifiera den lite kom jag på. 

Redigerad av Lisa_K
Länk till kommentar
Dela på andra webbplatser

 Share

×
×
  • Skapa nytt...