Permanent zoekvenster

[bascas]

Wat betreft de kleur, die had je toch zelf gevraagd ?

dat klopt, maar alleen als de gezochte cel is gevonden. Nu laat excel als je opnieuw gaat zoeken die gele balk achter, maar gek genoeg Alleen vanaf Kolom U.

 

[Warme bakkertje]

Sub geef()
Range("A3:U250").Interior.ColorIndex = xlNone
Set foundcell = ActiveSheet.Range("B:B").Find(InputBox("Wat zoek je? ", "Geef de hele naam"))
If foundcell Is Nothing Then
    MsgBox ("Artikel niet aanwezig")
Else
Cells(foundcell.Row, 1).Resize(, 21).Interior.ColorIndex = 36
End If
End Sub

 

[11221122]

In de titel balk op index. Helemaal rechts, onder het kopje zoeken je zoekwoord intypen. Je zoekwoord word geel in je lijst.

Is het een beetje wat je bedoelt?



http://www.mijnbestand.nl/Bestand-7ZPPAWVZFNNI.xlsm

 

[bascas]

De zoekfunctie heb ik inmiddels compleet. Wat nog rest is de naam van index B1 op tablad 1 C2 en dan de naam van index B2 op tabblad 2 C2, enz, enz. Geautomatiseerd dan wel.

Groet Bas

 

[Warme bakkertje]

Post anders eens een nieuw voorbeeldbestandje met de huidige stand van zaken, aangezien hier nu al verscheidene bestanden gepasseerd zijn.

 

[bascas]

Rudi, daar komt tie..
Bekijk bijlage Copy of Apparaatbeheer.xls.zip

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
On Error GoTo einde
With Target
    If .Column = 1 And .Value <> "" Then
        Sheets.Add(after:=Sheets(Sheets.Count)).Name = Target
        .Offset(, 9).Hyperlinks.Add Anchor:=.Offset(, 9), Address:="", SubAddress:="'" & .Value & "'!A1", TextToDisplay:=" " & .Value
    End If
End With
Sheets("1").Range("1:5").Copy Sheets(Sheets.Count).Range("1:5")
With Sheets(Sheets.Count)
    .Columns.AutoFit
    .[C2] = Target.Offset(, 1).Value
End With
einde:
Application.ScreenUpdating = True
End Sub

Sub geef()
Range("A3:U250").Interior.ColorIndex = xlNone
Set foundcell = ActiveSheet.Range("B:B").Find(InputBox("Wat zoek je? ", "Geef de hele naam"))
If foundcell Is Nothing Then
    MsgBox ("Artikel niet aanwezig")
Else
Cells(foundcell.Row, 1).Resize(, 21).Interior.ColorIndex = 36
End If
End Sub

Sub geef1()
Range("A3:U250").Interior.ColorIndex = xlNone
Set foundcell = ActiveSheet.Range("C:C").Find(InputBox("Wat zoek je? ", "Geef de hele naam"))
If foundcell Is Nothing Then
    MsgBox ("Artikel niet aanwezig")
Else
Cells(foundcell.Row, 1).Resize(, 21).Interior.ColorIndex = 36
End If
End Sub

Dit is de simpelste oplossing, nadeel is wel dat je eerst de naam moet invullen alvorens een nummer toe te kennen. Voor uitgebreidere oplossing heb ik nu even geen tijd meer

 

[bascas]

Rudi, ik vind hem helemaal top zo. En eerst de naam en dan het nummer is een te verwaarlozen punt. hartelijk bedankt. :thumb::thumb: