Popup voor zoeken

[malawi]

hallo

Is het mogelijk om via een macro de popup voor het zoeken naar voren te krijgen. Zodat dat ik een handeling er voor en ernaar kan plaatsen in de macro. en dit via een button op roepen in mijn excel blad?

Bij voorbaat dank,


Ewald

 

[edmoor]

In VBA kan je dat beter doen met Range.Find:
https://docs.microsoft.com/en-us/office/vba/api/excel.range.find

Voorbeeldje:

    Cells.Find(What:="ZoekDezeWaarde", _
        After:=ActiveCell, _
        LookIn:=xlFormulas2, _
        LookAt:=xlWhole, _
        SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, _
        MatchCase:=False, _
        SearchFormat:=False).Activate

 

[malawi]

Ik krijg helaas niet de pop-up nar voren voor het zoeken/vervangen

Ewald

 

[lam201]

Zo dan.

Sub Zoek()

ZoekDezeWaarde = InputBox("zoek:")

 Cells.Find(What:=ZoekDezeWaarde, _
        After:=ActiveCell, _
        LookIn:=xlFormulas2, _
        LookAt:=xlWhole, _
        SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, _
        MatchCase:=False, _
        SearchFormat:=False).Activate
        
        
End Sub

 

[lam201]

Of voor Zoeken en Vervangen:

Sub ZoekEnvervang()

varzoek = InputBox("Zoek")
varVervang = InputBox("Vervang:")
    
    Selection.Replace What:=varzoek, Replacement:=varVervang, LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
End Sub

Ik weet niet of je het standard Zoek en Vervang popup naar voren kunt krijgen met een macro...

 

[snb]

Sub M_snb()
   Application.Dialogs(130).Show
End Sub

 

[malawi]

Bedankt allemaal.

Is opgelost.(En dat met het laatste antwoord.) met nog een aanvullende vraag. En dat met het laatste antwoord.
Is het mogelijk om de zoekwaarde over te nemen van een geselecteerde cel? Alvast bedankt.


Ewald

 

[HSV]

 Application.Dialogs(130).Show [COLOR=#ff0000]activecell[/COLOR]

Voor de vervangend waarde aanvullen met bv:

 Application.Dialogs(130).Show activecell[COLOR=#ff0000], activecell.offset(1)[/COLOR]

 

[malawi]

Het is bijna perfect.
Het veld "vervangen door" wordt nu ook ingevuld door de gegevens uit de cel onder het geselecteerde cel. Het veld "vervangen door" moet eigenlijk blanco blijven zodat ik deze zelf in kan vullen. Als er per ongelijk op alles vervangen wordt geklikt dat heb ik een probleem.
Is dit misschien no te verhelpen.

Bij voorbaat dank,

Ewald

 

[HSV]

De eerste coderegel nemen.

 

[malawi]

Sorry, is ook zo. maar het is opgelost. bedankt

Ewald

 

[malawi]

Bij het werken met deze functie loop ik nog tegen een probleem aan dat ik nog niet kan zoeken in waarden i.p.v. Formules. Hoe kan ik dit aanpassen?

Bij voorbaat dank,

Ewald

 

[HSV]

Geen probleem hier.

Misschien je bestand plaatsen waarin het niet gaat.

 

[VenA]

Werkt hier ook niet.

Zo lijkt het goed te gaan.

Sub VenA()
  Cells.Find ActiveCell.Value, , xlFormulas, xlPart
  Application.CommandBars("Edit").Controls("Replace...").Execute
End Sub