Navigation

   Hej

Jeg har lavet/fundet en søge funktion (via tryk på en knap), hvor man kan finde leverandører i en database, og derefter kopiere det ovet i et andet ark. Funktionen er også klar til at kunne kopiere flere leverandører, men problemet er at funktion kun kan finde leverandøren, hvis man skriver navnet 100 % korrekt. Kan man lave en funktion, hvor det er nok fx at skrive "B" og alle leverandører som start med "B" vil blive fundet?

Koden ser sådan ud pt.:

Public sheetname
Public LCopyToRow As Integer
Public LSearchValue As String
Sub SearchForStrin(Inddata)
Dim LSearchRow As Integer
  For Each sh In Array("Firma")
  Sheets("Inddata").Select
  'Start search in row 2
  LSearchRow = 2

  'Start copying data to row 2 in Resultat (row counter variable)

      While Len(Range("A" & CStr(LSearchRow)).Value) > 0

      If Range("A" & CStr(LSearchRow)).Value = LSearchValue Then

              'Select row in Inddata to copy
              Rows(CStr(LSearchRow) & ":" & CStr(LSearchRow)).Select
              Selection.Copy

              'Paste row into Resultat in next row
              Sheets("Resultat").Select

              Rows(CStr(LCopyToRow) & ":" & CStr(LCopyToRow)).Select
              ActiveSheet.Paste

              'Move counter to next row
              LCopyToRow = LCopyToRow + 1

              'Go back to Inddata to continue searching
              Sheets("Inddata").Select

          End If
          LSearchRow = LSearchRow + 1
       Wend
  Next
'Position on cell A3
  Application.CutCopyMode = False

  Exit Sub

Err_Execute:
  MsgBox "Fejl i søgningen."

End Sub
Public Sub SearchSheet()
LSearchValue = InputBox("Søg", "Leverandør eller produktgruppe")
LCopyToRow = 4
SearchForStrin ("Inddata")
Sheets("Resultat").Select
  MsgBox "Søgning udført"

End Sub

Håber I kan hjælpe mig.

Navigation

Søgefunktion der ikke er præcis