inputbox met vaste waarde

[powerbox]

Goedemiddag,

Ik heb via dit forum de volgende macro gehad.

Private Sub CommandButton1_Click()

Dim wsSheet As Worksheet
Dim rFound As Range
Dim strFind As String
strFind = InputBox(Prompt:="Typ het Project nummer. in.")
If strFind = "" Then Exit Sub
For Each wsSheet In ThisWorkbook.Worksheets
Set rFound = wsSheet.UsedRange. _
Find(What:=strFind, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If Not rFound Is Nothing Then
Application.Goto rFound
End
End If
Next wsSheet
MsgBox "Niks gevonden"
Range("A1").Select
End Sub

echt super...maar...er is altijd een maar.. Ik kan alles in de input bos invullen.. dat is goed. Ik wil alleen graag dat hij voor alles wat er ingevuld wordt WK voor komt staan. Dus tik ik in 20 dan wordt het WK20.

Kan dat ?

alavst bedankt

 

[LucB]

Probeer deze eens.

Private Sub CommandButton1_Click()
Dim wsSheet As Worksheet
Dim rFound As Range
Dim strFind As String
strFind = InputBox("Typ het Project nummer. in.", "ProjectNr.Invoeren", "WK")
If strFind = "" Then Exit Sub
For Each wsSheet In ThisWorkbook.Worksheets
Set rFound = wsSheet.UsedRange. _
Find(What:=strFind, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If Not rFound Is Nothing Then
Application.Goto rFound
End
End If
Next wsSheet
MsgBox "Niks gevonden"
Range("A1").Select
End Sub

 

[powerbox]

Goedemorgen,

Ik ben er al veel verder mee. Echt bedankt.

N atuurlijk wel een vraag erachteraan... is het ook mogelijk dat ze de WK niet zien staan...
Dus je tikt 20 en de string wordt WK20....

nu staat er in de inputbox namelijk al Wk.. dat kan gedelete worden... en dan gaat het mis...

Alweer bedankt... .

 

[LucB]

powerbox,

De code is in wezen een ZOEK-funktie.
Dus als je intypt: WK20, dan wordt er naar deze term op alle bladen GEZOCHT.

Kennelijk bedoel je iets anders.

Omschrijf dat eens.

 

[powerbox]

Hoi hoi ,

Er zijn ook andere mensen die deze functie gaan gebruiken.
Deze mensen kunnen dus zoeken op 20, maar ze mogen alleen zoeken op WK20.
Dus om tegen te gaan dat ze alleen op wk zoeken wil ik dat er standaart al WK komt te staan.

Nu kunnen ze de WK wissen.... en dat mag niet.

Gr

 

[LucB]

PowerBox,

Begrepen.

Dit bedoel je.

Private Sub CommandButton1_Click()
Dim wsSheet As Worksheet
Dim rFound As Range
Dim strFind As String
strFind = InputBox("Typ het Project nummer. in.", "ProjectNr.Invoeren")
If strFind = "" Then Exit Sub
For Each wsSheet In ThisWorkbook.Worksheets
Set rFound = wsSheet.UsedRange. _
Find(What:="WK" & strFind, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If Not rFound Is Nothing Then
Application.Goto rFound
End
End If
Next wsSheet
MsgBox "Niks gevonden"
Range("A1").Select
End Sub

 

[powerbox]

jaaaaaaaaaaaaaaaaaaaaa......


:thumb: :thumb: :thumb: :thumb: :thumb:


Super.... dank je wel.............