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-24T06:09:18+00:00

    Goeie morgen JP,

    Mag ik nog een vraag stellen? Om de (gewijzigde) macro nu toe te passen in ander werk moet ik hem natuurlijk wel helemaal begrijpen. Wat betekenen, of waar verwijzen "6:" en "15" naar? Ik dacht eerst naa bepaalde velden maar dat blijkt niet zo te zijn. Ik kan het niet vinden. wil je me dat even uitleggen a.u.b.?

    b.v.d.

    Hans

    Was dit antwoord nuttig?

    0 opmerkingen
  2. Anoniem
    2014-04-23T12:51:40+00:00

    Hallo JP,

    Ik heb nu het gedeelte uit jouw eerdere mail geplakt in de macro en nu werk die wel. Ik denk dat ik een typefoutje heb gemaakt en/of een spatie te veel of te weinig heb gegeven met het overtypen. Nu werkt die dus wel. eureka!

    Was dit antwoord nuttig?

    0 opmerkingen