Search en replace macro zoekwaardes uit cellen gebruiken.

[nino500]

Hallo,

Ik heb jammer genoeg zelf geen verstand van maar door veel te googlen heb ik een search en replace macro gevonden
die op zich uitstekend werkt en zelfs in alle mappen , maar zou graag willen dat de macro de waardes die ik dmv keuzeknoppen
gegenereerd heb overneemt in de search en replace routine zodat ikzelf in de input prompt niets meer hoef in te geven.
Het mooiste zou zijn dat de macro de gegenereerde waardes zelf invult in de input prompt.
Hoop dat iemand mij hierbij kan helpen... kom er zelf niet verder mee als in bijgevoegde excel file.




Option Explicit

Sub ChgInfo()

Dim WS As Worksheet
Dim Search As String
Dim Replacement As String
Dim Prompt As String
Dim Title As String
Dim MatchCase As Boolean

Prompt = "What is the original value you want to replace?"
Title = "Search Value Input"
Search = InputBox(Prompt, Title)

Prompt = "What is the replacement value?"
Title = "Search Value Input"
Replacement = InputBox(Prompt, Title)

For Each WS In Worksheets
WS.Cells.Replace What:=Search, Replacement:=Replacement, _
LookAt:=xlPart, MatchCase:=False
Next

End Sub



Alvast mijn hartelijke dank

mars

 

[spaarie]

Probeer zo eens:

Sub ChgInfo()
     
    Dim WS              As Worksheet
    Dim Search          As String
    Dim Replacement     As String
    Dim Prompt          As String
    Dim Title           As String
    Dim MatchCase       As Boolean
     
    waarde1 = Sheets("blad1").Range("G2").Value
    waarde2 = Sheets("blad1").Range("G5").Value
    
    If MsgBox("Weet u zeker dat u " & waarde1 & " wilt vervangen?", vbYesNo, "Te vervangen waarde") = vbYes Then
    If MsgBox("Weet u zeker dat u het voor " & waarde2 & " wilt vervangen?", vbYesNo, "Vervangen voor") = vbYes Then

    Search = waarde1
    Replacement = waarde2
    
    For Each WS In Worksheets
        WS.Cells.Replace What:=Search, Replacement:=Replacement, _
        LookAt:=xlPart, MatchCase:=False
    Next
    End If
    End If
    MsgBox "Uitgevoerd!", vbInformation, "Voltooid"
    
End Sub

 

[nino500]

Hallo spaarie,

bedankt voor je inbreng.... ziet er goed uit maar
werkt jammer genoeg niet... brengt de melding " een variabele is niet gedefinieerd".
alvast bedankt,

mars

 

[spaarie]

Moet je Option Explicit boven de module weghalen...

 

[nino500]

Het werkt .... fantastisch.
mijn hartelijke dank spaarie.

 

[Warme bakkertje]

Moet je Option Explicit boven de module weghalen...

Of je variabele declareren

 

[spaarie]

Klopt, maar denk dat de optie van het verwijderen makkelijker is dan declareren