• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Macro met interactie

Status
Niet open voor verdere reacties.

janss028

Gebruiker
Lid geworden
27 okt 2008
Berichten
52
Ik heb de volgende vraag.

Ik heb een macro gemaakt die een filter activeert. Bij ik wil filteren op een klant. Nu staat in de macro de klant vast ingegeven. Is het ook mogelijk dat tijdens het uitvoeren van de macro er een vraagstelling komt waar ik de klant dan kan ingeven. Ik heb een bijlage toegevoegd.

Alvast bedankt voor de moeite
Ron
 

Bijlagen

janss028,

Wat denk je hier van.
Code:
Sub Macro2()
Dim Message, Title
Message = "Op welke klant wilt u sorteren ?"    ' Stel vraag in.
Title = "Sorteren"    ' Stelt titel in.
Kl = InputBox(Message, Title)


    Range("A1").Select
    Selection.AutoFilter
    Cells.Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$C$10").AutoFilter Field:=3, Criteria1:=Kl
    Range("A1").Select
    
End Sub
 
Laatst bewerkt:
janss028,

Zo werkt het ook.
Code:
Sub Macro1()
Dim Message, Title
Message = "Op welke klant wilt u sorteren ?"    ' Stel vraag in.
Title = "Sorteren"    ' Stelt titel in.
Kl = InputBox(Message, Title)

    [A1].AutoFilter
    ActiveSheet.[$A$1:$C$10].AutoFilter Field:=3, Criteria1:=Kl
End Sub
 
Laatst bewerkt:
Hallo Wim,

Bedankt voor je reactie en het werkt prima.
Is het misschien ook mogelijk om een vraagstelling te krijgen op datum. Dus dat ik een scherm krijg bij het uitvoeren van de macro: Geef me alle orders tussen XX en YY.
XX en YY moeten dan vrij ingevuld kunnen worden bv tussen 1 jan en 31 jan

Gr
Ron
 
janss028,

Kijk eens of dit de goede kant opgaat?
Je kunt op de maand sorteren, zie in de file.
 

Bijlagen

Status
Niet open voor verdere reacties.

Nieuwste berichten

Terug
Bovenaan Onderaan