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

Vill utöka sökningen

Rekommendera Poster

Lisa_K
Postad (redigerade)

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

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Skapa ett konto eller logga in för att kommentera

Du måste vara medlem för att kunna kommentera

Skapa ett konto

Skapa ett nytt konto på vårt forum. Det är lätt!

Registrera ett nytt konto

Logga in

Redan medlem? Logga in här.

Logga in nu



×
×
  • Skapa nytt...