Pause i makro

Indsæt en MsgBox:

MsgBox "Videre !"

Der vises en dialogboks med tekseten "Videre !" og en OK-knap.

Hej erikjuul,

tak for tekstboksen, kan du hjælpe mig med pausen også, for excel står bare og stjerner når jeg indsætter tekstboksen i makroen og har ikke mulighed for at kopiere noget.

Do
DoEvents
Loop Until [A1] = 1


dette stopper koden indtil du skriver 1 i A1

Hej kabbak,

jeg kan ikke se hvor jeg skal indsætte teksten henne, jeg er ikke en ørn til visual basic.

Det jeg gerne vil have step by step er:

1. Åbn et andet excel ark. (det har jeg i makroen)
2. Pause ønskes efter åbning
3. Marker tekst.
4. Tryk på tekstboks videre
5. Gå tilbage til det første excel ark.
6. Pause
7. Indsæt det kopierede tekst fra det andet excel ark.
8. Tryk på tekstboks afslut.

kan du ikke uploade filen her http://gratisupload.dk/, så tjekker jeg.

har du uploaded, så skal jeg jo lige have linket til den.

nej det har jeg ikke gør det nu, sorry

http://gupl.dk/693752/

http://gupl.dk/693753/

kode: 123456
email: djinn_dk@live.dk

jeg rettede lidt i dine makroer, se om det kan bruges

jeg har ud kommenteret alt andet, bare til test.


Sub Kopier()
'
' Kopier Makro
'
' Genvejstast:Ctrl+q
'

   
  '''  Workbooks.Open Filename:="R:\000 ORDRE LARS + NIELS\Lisbeth_Nye_Ordre.xlsx"

    'Rows("10:10").Select
    'Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Call Pause

    'Range("B17").Select
    MsgBox "Hej"
    'Columns("A:A").Select
    'Selection.NumberFormat = "General"
    'Columns("A:A").Select
    'With Selection
    '    .HorizontalAlignment = xlRight
    '    .WrapText = False
    '    .Orientation = 0
    '    .AddIndent = False
    '    .IndentLevel = 0
    '    .ShrinkToFit = False
    '    .ReadingOrder = xlContext
    '    .MergeCells = False
    'End With
       
Call Pause
      MsgBox "slut"
   
   
End Sub
   
Sub Pause()
    Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Press Yes to pause for 10 seconds", 4)) = vbYes Then
    PauseTime = 10    ' Set duration.
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop
    Finish = Timer    ' Set end time.
    TotalTime = Finish - Start    ' Calculate total time.
    MsgBox "Paused for " & TotalTime & " seconds"
Else
    End
End If
End Sub

Tak!

jeg tester lige og så får du svar herpå.

Hej Kabbak,

hvordan får jeg den til at åbne det andet dokument først inden den begynder på at pause?

ligesom i din kode

Workbooks.Open Filename:="R:\000 ORDRE LARS + NIELS\Lisbeth_Nye_Ordre.xlsx"

Call Pause

Jeg er ingen ørn til det her kode værk.

jeg har barberet det ned til:

Sub Kopier()
'
' Kopier Makro
'
' Genvejstast:Ctrl+q
'

    Workbooks.Open Filename:="R:\000 ORDRE LARS + NIELS\Lisbeth_Nye_Ordre.xlsx"
   
    Call Pause



    Call Pause
      MsgBox "slut"
 
 
End Sub
 
Sub Pause()
    Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Press Yes to pause for 5 seconds", 4)) = vbYes Then
    PauseTime = 20    ' Set duration.
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop
    Finish = Timer    ' Set end time.
    TotalTime = Finish - Start    ' Calculate total time.
    MsgBox "Paused for " & TotalTime & " seconds"
Else
    End
End If
End Sub


Når jeg gør det så åbner den ikke dokumentet først men kører pause scriptet

Ved mig åbner den fint, inden pausen kommer

også når du prøver at starte makroen ved hjælp af genvejstasten omme i excel

ja

okay, jeg kan kun få den til at virke i visual basic. Kan jeg bare kopier scriptet over i et andet excel ark???

ja, du skal bare sætte genvejstasten igen i det nye ark

Hej Kabbak,

det virkede ved at kopiere det over i et andet regne ark så det har jeg gjort!

1000 tak for hjælpen!!!

Du får helt klart pointene!!!

Hej Kabbak,

det virkede ved at kopiere det over i et andet regne ark så det har jeg gjort!

1000 tak for hjælpen!!!

Du får helt klart pointene!!!

tak