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-20T14:47:42+00:00

    Als ik wil saven als krijg ik het scherm zoals ik een printscreen heb bijgeevoegd in one drive. Ik krijg dus niet de mogelijkheid om een extensie toe te voegen of te wijzigen. Waar kan dat aan liggen?

    Hans

    Was dit antwoord nuttig?

    0 opmerkingen
  2. Anoniem
    2014-04-20T11:31:59+00:00

    Als een macro toevoegt in een werkboek dan moet je dit werkboek "saven" als een Excel Macro-Enabled Workbook (*.xlsm).

    Dus in "save as" of "opslaan als"

    Was dit antwoord nuttig?

    0 opmerkingen
  3. Anoniem
    2014-04-20T10:57:18+00:00

    Nou, daar kom ik niet uit. Hoe kun je zien welke bestands-extensie een bepaalde map heeft en hoe kun je dat wijzigen. Ik heb me rot gegoogeld maar vind het niet. Voorheen, in excel 2010, kon je, als je "opslaan als" toetste, in de balk onderaan de extensie wijzigen in b.v. 2007-2009. Ik denk dat je daar ook een uitgang xlsm  kon geven. Ik heb nog niet zó lang 2013 en heb er ook wel een beetje spijt van. Alles is veel moeilijker te vinden. Maar ja, gedane zaken nemen geen keer. Kun je me even verder helpen=

    groeten

    Hans

    Was dit antwoord nuttig?

    0 opmerkingen