VB:
Sub exitbox()
MsgBox "This will close in 20 seconds"
If Application.Wait(Now + TimeValue("00:00:20")) Then [code]...
I am trying to close this msgbox 20 seconds from now, but I cannot get it working.
We use proprietary software to connect to an oracle database. The proprietary software has its own login form. I connect to 4 or 5 different databases randomly throughout the day. I wrote a script that I thought would alleviate my login woes but it doesn't work. The login, password, and database info get sent to the form but they all end up on the login line. Instead of the tab character being sent, I get a Beep generated for each line of code that is supposed to send the tab key code. My code is below and is stored in a *.vbs file.
setwshShell =wScript.CreateObject("WScript.Shell")
wshShell.AppActivate "Title Of My Login Form"
wScript.Sleep 100
wshShell.SendKeys "My Login Name"
wScript.Sleep 500
wshShell.SendKeys "{TAB}"
wScript.Sleep 500
wshShell.SendKeys "My Password"
wScript.Sleep 500
wshShell.SendKeys "{TAB}"
wScript.Sleep 500
wshShell.SendKeys "Name of My Database"
wScript.Sleep 500
wshShell.SendKeys "{TAB}"
wScript.Sleep 500
wshShell.SendKeys "~"
I finally found 'Sendkeys' and by having it press {ENTER} I was able to get my data to do what I wanted.
However now I cannot print my page. I tried everything.
Sub Macro2()
'
'
Sheets("List").Select
ActiveSheet.Cells(5 , 2).Select
Selection.Copy
[Code] ......
I can copy/paste other things just fine after the SendKeys but CANNOT PRINT!
Does anyone know if its possible to run a macro to send email before the workbook is closed?
I know theres a code for it
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Right now, it seems like my macro is send email macro is not running when i close the workbook.
I would like excel to send an SMS text message (via Skype maybe?)when a particular set of conditions arise in a spreadsheet. I am not sure if this would be best carried out with spreadsheet functions or vba, or if it is possible at all.
View 6 Replies View RelatedDoes anyone know if there is a way of sending SMS text messages from excel?
And if there is can this be automated from within VBA so that the OnTime method could be used?
All this macro is supposed to do is execute a data download every ten seconds until there is a value in C11 and then send an email and close.
What seems to be happening is that it downloads, emails, closes... but then in ten seconds the sheet reappears and does it all again.
Why am I getting method range of object global failed error message? The error seems to lie in the line highlighted in red.
VB:
[CODE]Private Sub btnEditDelete_Click()
Dim customerID As String
Dim rowID As Integer
Dim foundFlag As Integer
Dim lastrecFlag As Integer
Application.ScreenUpdating = False
[Code] .....
I'm looking for a way to prompt outlook to create a new email and in the body copy the contents of Sheet1, but instead of sending, I want it to just hold it so that the user can review the email contents.
Similar to this, but instead of an attachment the email body contains the data from sheet1
[Code] .....
I wish to send a message when a worksheet is manually opened, but not when it is activated from within VBA.
The following code does not work, and I am open to suggestions
Private Sub Worksheet_Open() ....
How to send a range of cells in a sms text message by using Visual Basic for Applications in Excel?
BTW: I really need this to work for my job! So any feedback would be greatly welcomed. Please read below to understand what I'm trying to do. I need to be able to send my guys their daily goals via sms text message:
The following works great for sending a range of cells in a email message: ....
is it possible to have a messagebox activate when closing a workbook.
View 9 Replies View RelatedI did this 10 years ago so I admit I am rusty at this but here are what I had in my notes that worked with Excel XP. I am currently using Excel 2010
With ThisWorkbook
.HasRoutingSlip = True
With .RoutingSlip
[Code]....
The last line will send the workbook but I need a Subject and Message to go with it.
When processing workbooks via VBA, on closing the workbook I sometimes get a request to respond to whether I want to save the clipboard. In the same way that there is the option to open a workbook without refreshing links: workbooks.open updatelinks:=False
I assume there is something on the order of: workbook.close DontSaveClipboard:=True
Question #1 is: What is the parameter syntax for saving or not saving the clipboard?
Question #2 is: Where would I go to look up these parameter settings instead of having to come back to the group every time I find the next one I need?
Application starts with a button on an otherwise empty spreadsheet. Then opens a user form. After I close using a button on the form. My close routine closes the worksheets and workbooks. I then quit the application and I get a message asking if I want save the original spreadsheet.
View 6 Replies View RelatedI have a spreadsheet with client names, email addresses, and appointment info. I export a .csv file from outlook. I have been doing a mail merge in word and then coping and pasting into an Outlook message and sending it out. I did some reseach and found code that I have made changes to. Of course they it doesn't work. I can't get anything to happen when I run this code.
Code:
Sub Qualls_Email_Confirms()
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
[Code] .........
As an example, I have this code to open a message box saying "Hello" when Excel opens.
View 4 Replies View RelatedI am trying to write VB code that upon opening an excel spreadsheet a message box appears that the user must read, than select yes or no. If select yes than the file will open, if no the file closes or does not open. Here is what i have tried - it doesn't work.
Sub Auto_Open()
YesNo = ("Are you sure you want to open?",vbYesNo + vbExclamation,"Will")
If_vbYes Exit_Sub
If_vbNo_Close
End Sub
I have a spreadsheet with a number of fields on it which must be filled in before the file can be saved, and if the user attempts to close the spreadsheet without filling in the required fields, I want a message box to appear asking for confirmation that the user wishes to quit, if yes, the sheet exits, if no, the sheet remains open
View 2 Replies View Relatedhow do i go about setting a message box to pop up every 10 mins or so prompting the user to close the workbook.? i want it to be as irritating as possible! iv'e had a look at ontime but cant get my brain into gear!also don't some of these timers fire even if workbook closed?
View 4 Replies View RelatedIs it possible to place a prompt message regarding the time limit or return time when entered time is place on the worksheet? Like "Please be back at 8:30 AM" when the user click the Start time button at 8:00 AM.
View 10 Replies View RelatedI have a pretty simple macro that I recorded and attached to a button. The macro is:
Sub Paste_Data()
Cells.Select
Selection.ClearContents
ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:= _
False
Range("A3").Select
End Sub
The user opens the file that contains this macro, then runs a report from a website that dumps into an excel file. They copy the data from the Book1 output, then click the button to paste it into the template. If done this way, it works fine.
However, if they run the report and get Book1 THEN open the file containing the macro, they get a run-time error 'PasteSpecial method of Worksheet class failed' on the 'ActiveSheet.PasteSpecial... line
i get this error on the line in bold Method Add' of object 'CommandBarControls' failed (run-time error '-2147467259'). im not sure why its giving that problem, but im not very fluent in custom toolbars.
'//The following two procedures add a custom menu to the workbook programmatically//'
'//and then delete it//'
Public currentMonth As String
Sub CreateMenu()
Dim mybar As CommandBar
Dim myControl As CommandBarControl
Set mybar = Application.CommandBars.Add( Name:="CustomButtons", _
Position:=msoBarBottom, Temporary:=True)
mybar.Visible = True
Set myControl = mybar.Controls _
.Add(Type:=msoControlButton, ID:=1)
With myControl...........................
get the code for sending multiple emails as per the spreadsheet list. Assume the spreadsheet has 100 line items and each columns specifies the name of the person, value, recipient email address ("To" and "CC") and sender name.
And the Body of text is :
Hi "Name of the person" Please find the value of "Value" to be paid for the moth of xxx and kindly let me know for further clarification.
I lost 2 days trying to discover the bug in my program, but I coudn't find the right answer.
How can I activate the AutoFilter to show me the rows selected with "YES" ?
This is the code... The compiler stops always at the command Selection.AutoFilter.
I am trying to build a macro which will format the columns of a spreadsheet - basically it inserts some columns, writes formulas and highlights them. Here is a code I have got so far...
When I try to run this I get a run time error 1004 - Method 'Range' of 'Object'_Global' failed. The part of the code
Range("N2:N").FormulaR1C1 = "=(RC[-7]/RC[-2])"
is highlighted in the debugger.
Can anyone tell me why this is happening, also it would be great if you could suggest better ways of writing this code - as I am new to vba programming and most of my macros are built using the recorder and then 'working' on them.
I have an interesting error that only happens when there is one row of data in the worksheet (sheet2 or "Half Payout"). Rows 1 & 2 are headers, row 3 is when the data starts - if any. With either no rows of data or more than one the coding works just fine. Here is the exact error message I'm getting: Run-time error '1004': Method 'Range' of object '_Worksheet' failed.
The following code is supposed to sort the rows of data when opened and then activate the first open cell below B2.
This very simple macro in Personal.xlsb is driving me crazy!
I want to paste a previously selected and copied range at the current position as values. The range will seldom be the same as previously, and the position where it will be posted will be random too.
The code is: ...
I found the following code on your forum, but get the following error:
Run time error '1004'. Autofill method of Range class failed.
The error occurs when the spreadsheet either have 1 row of data completed or no data, can I get code to ignore the autofill when I only have 1 row or no rows completed in various spreadsheets. I have attached a copy of the spreadsheet.
I keep getting this error on this line
[code]ThisWorkbook.VBProject.VBComponents("Module2").Export FileName[CODE]
of this