Macro onderbreken

Anoniem
2014-04-18T07:54:06+00:00

Weet iemand hoe je in een macro die je maakt, met een toets die macro kunt onderbreken (om een variabele in te vullen of op een bepaalde kolom kunt gaan staan) waarna je een "enter" kunt geven en die macro weer verder loopt? Vroeger kon je dat in LOTUS bereiken door een ? (vraagteken) in de macro te plaatsen. De macro stopte dan, je vulde een variabele in of ging naar een bepaalde kolom je gaf een "enter"en de macro liep weer verder. Ik heb dat vraagteken geprobeerd maar dat werkt niet. Na het googelen op dit onderwerp zag ik ergens dat het de toets "Esc" zou zijn maar dat is het ook niet.

Ik ben benieuwd.

Hans

Microsoft 365 en Office | Excel | Voor thuisgebruik | Windows

Vergrendelde vraag. Deze vraag is gemigreerd vanuit de Microsoft Ondersteuning-community. U kunt met een stem aangeven of de inhoud nuttig is, maar u kunt geen opmerkingen of antwoorden toevoegen of de vraag volgen.

0 opmerkingen
Antwoord geaccepteerd door vraagauteur
Anoniem
2014-04-23T13:08:05+00:00

Dag Hans,

Bedankt voor de feedback, ben blij dat je de oplossing gevonden hebt. Je ziet, zelfs met een 76-jarige pet kan het nog altijd.

Was dit antwoord nuttig?

0 opmerkingen
Antwoord geaccepteerd door vraagauteur
Anoniem
2014-04-21T15:51:31+00:00

Probeer dit eens:

Bold moet je toevoegen/aanpassen.

Sub sorteervanhoognarlaag()

'

' sorteervanhoognarlaag Macro

'

' Sneltoets: Ctrl+k

'

Dim varCol As Variant

    Range("A6:G15").Select

    ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Clear

varCol = InputBox(prompt:="Enter the column to sort")

    ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Add Key:=Range(varCol& "6:" & varCol & "15"), _

        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal

    With ActiveWorkbook.Worksheets("Blad1").Sort

        .SetRange Range("A6:G15")

        .Header = xlGuess

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With

End Sub

Was dit antwoord nuttig?

0 opmerkingen

23 extra antwoorden

Sorteren op: Meest nuttig
Meest nuttig Nieuwste Oudste
  1. Anoniem
    2014-04-21T11:01:20+00:00

    Plaats nog even de nieuwe link.

    Was dit antwoord nuttig?

    0 opmerkingen
  2. Anoniem
    2014-04-21T10:49:00+00:00

    Oké, volgens mij is het nu in orde. weer wat geleerd.

    Hans

    Was dit antwoord nuttig?

    0 opmerkingen
  3. Anoniem
    2014-04-21T10:31:03+00:00

    Het bestand lokaal bewerken, saven als xlsm en opladen op onedrive

    Was dit antwoord nuttig?

    0 opmerkingen