Displaying Text during macro session

shifter5

New Member
Joined
Jan 13, 2010
Messages
9
Hi Guys and Gals - Been awhile since I've been to the site. I'm now experimenting with macros. I currently use a DOS based program to decrease or increase an account receivable. I would like to use a macro, to record repetitive key strokes. The macro I use is working but I would like to display the balance of the receiveable before I decrease it. Here is a sample of the coding:

Sub GeneralDecrease()
' xxxxxxxxxxxxxxx text strings not relevent xxxx Recorder on 05-27-2011 07:57:28.66.
' xxxxxxxxxx'
' Use this macro to decrease a clm by any amount for any type of ANSI code.
'
On Error GoTo ErrorHandler
Dim selectBill As String
Dim decreasePrincipal As String
Dim text As String
Dim text2 As String
Dim text3 As String
Const DIALOG_TITLE = "GeneralDecrease"
Const NEVER_TIME_OUT = 0
Dim LF As String ' Chr(rcLF) = Chr(10) = Control-J
Dim CR As String ' Chr(rcCR) = Chr(13) = Control-M
Dim ESC As String ' Chr(rcESC) = Chr(27) = Control-[
LF = Chr(Reflection2.ControlCodes.rcLF)
CR = Chr(Reflection2.ControlCodes.rcCR)
ESC = Chr(Reflection2.ControlCodes.rcESC)
selectBill = Session.InputBox$("Select BILL: ", DIALOG_TITLE)
If selectBill = "" Then Exit Sub
decreasePrincipal = Session.InputBox$("Decrease By", DIALOG_TITLE, "")
If decreasePrincipal = "" Then Exit Sub

I want the red text string to display either with the "decrease by" dialog or between "select bill" & "decrease by" during the macro's session.
Without a macro running, after the bill is selected, the program automatically displays the balance and the next "keystroke" is entering the desired $ amount. Thanks much -Oh and if this has been posted already, please guide me to it! -
 

Excel Facts

Shade all formula cells
To shade all formula cells: Home, Find & Select, Formulas to select all formulas. Then apply a light fill color.

Forum statistics

Threads
1,224,597
Messages
6,179,808
Members
452,944
Latest member
2558216095

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top