Macro met interactie

[janss028]

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

 

[Hoornvan]

janss028,

Wat denk je hier van.

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

 

[Hoornvan]

janss028,

Zo werkt het ook.

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

 

[janss028]

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

 

[Hoornvan]

janss028,

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

 

[snb]

Het standaardantwoord op de vraag

Macro met interactie

is lijkt mij : gebruik userforms.

 

[janss028]

Heren,
Bedankt voor jullie reacties en het is gelukt.

Mvg
Ron