Empty Immediate Window - VBA Code Help

[Juggler_IN]

I have this VBA code to empty immediate window. On a standalone basis it works just fine. But, when I call it from another Sub then it clears the output from that Sub too inspite of the fact that I am calling the DoEmpty Sub before generating the new output. Any help?

Public Sub DoEmpty()

    SendKeys "^g", True    ' Go to the VBE Immediate Window
    SendKeys "^a", True    ' Select content
    SendKeys "{del}"    ' Delete content
    SendKeys "{f7}"    ' Go back to VBE Project Window

End Sub

 

[RoryA]

Sendkeys generally isn't executed until your procedure finishes. You could always fudge it by just outputting a few hundred lines of ""

 

[Mackeral]

Sub Debug_Clear()
    ' Clear the Immediate Window.
    ' 3/16/19 From StackOverflow "Use VBA to Clear Immediate Window?" WML

    Application.VBE.Windows("Immediate").SetFocus
    Application.SendKeys "^g ^a {DEL} {HOME}"
    
End Sub ' Debug_Clear

 

[Mackeral]

Last example of code doesn't work any more.

Now when I execute the Immediate Clear code, if I put a code stop in VBA on the next Debug.Print Statement in my code and then execute the code the Debug.Print statement prints properly.

However, if I set a stop on the line after the Debug.Print, no data from the Debug.Print statement is displayed.

My work around is to print a row of "=" characters across the page to mark a new top. But I would like to know if anyone is having the same problem I am or even better has figured out a work around.

Many thanks, Mac

 

[Jan Wijninckx]

Last example of code doesn't work any more.

Now when I execute the Immediate Clear code, if I put a code stop in VBA on the next Debug.Print Statement in my code and then execute the code the Debug.Print statement prints properly.

However, if I set a stop on the line after the Debug.Print, no data from the Debug.Print statement is displayed.

My work around is to print a row of "=" characters across the page to mark a new top. But I would like to know if anyone is having the same problem I am or even better has figured out a work around.

Many thanks, Mac

Hi thanks for this. You put me on the right track.
Why not keep it simple and do this:

Application.VBE.Windows("Immediate").Visible = True
Debug.Print vbLf & Format(Now(), "dd-mmm-yyyy HH:mm:ss")

And for good measure here is the link to the article you referenced:

Use VBA to Clear Immediate Window?

Does anyone know how to clear the immediate window using VBA? While I can always clear it myself manually, I am curious if there is a way to do this programmatically.

stackoverflow.com

 

[G6SGA]

While that

Hi thanks for this. You put me on the right track.
Why not keep it simple and do this:

Application.VBE.Windows("Immediate").Visible = True
Debug.Print vbLf & Format(Now(), "dd-mmm-yyyy HH:mm:ss")

And for good measure here is the link to the article you referenced:

Use VBA to Clear Immediate Window?

Does anyone know how to clear the immediate window using VBA? While I can always clear it myself manually, I am curious if there is a way to do this programmatically.

stackoverflow.com

for me: While that works to put a time stamped line in the Immediate window it is not clearing the Immediate window so that fresh debug messages can be output the next time you run the code. I am sticking with the manual Select ALL, Del process. It is a pain though.
Stephen G6SGA