If Then Statement That Would Send The User To Another Page In The Workbook
Mar 3, 2007
Is it possible to have an "if then" statement that would send the user to another page in the workbook? For instance..... =IF(D12="Mobile","Sheet2!","Sheet3!"). I know this does not work but is there another function that would do it? I am very new to vba and am sure it is easy there but I do not have a good handle on it yet.
I'm trying to program a send e-mail botton and everything is working well. However I would like to change the send to address from a specific cell to a if than statement.
I would like it to read along the lines of........ if "I5" = yes then copy cell from "M5"
I need to build vb that will move threw a folder earch files this source folder will be s:dc eports there will be multiple types of files. If the file ends with .ERR and the file size is > 0.1 KB THEN take file and open it then find the user id this will be 6 didgets .. this then needs to be located(if u look at attached spreadsheet “CTR208088.ERR” and go too column “AB” you will see “FA2 INPUT BY:311752 CODE) and then take and match THIS CODE (311752) to a workbook called “cashfrontieradmin11” there will be a “user name” column ‘A” in a “input names” tab and next to it column “B” “ full name” it will then register name and attach an email to user saying they have error “processing idx file into hiport”.
It will then attach error file to email and send to appropriate user(that is written in error log ) Example file is here ..the only issue I guess is being able to read the character placing(user id) in the message file..to pick this up and map back to admin file I will attach both files
What I want to do, is to populate the Lois, Beth, Kelly and Shelley pages with the rows from the Que page when they get assigned to one of them. I tried to program then off of a different example in the forum. It didn't work. Will include the copy.
On a user form I have added a multipage Object. It has 5 pages. How can I have each page caption read "Name" Comments where "name" is pulled from a worksheet field (say Questions!C2).
So the Caption needs to pull from a field and be concatenated with the word "Comments"
In my header I am trying to show the current page number and the total number of pages in the workbook. So if I have 10 pages in my workbook, page 5 would read "5 of 10".
I have this in my header "&[Page] of &[Pages]". All worksheets with 1 page read "1 of 1" and worksheets with 2 pages read "1 of 2" on the first page and "2 of 2" on the second page.
how do i print on a3 paper? i can't find the option anywhere...i can select user define size but then where do i define it?!? i know this is a silly questions
Indicate that a user-defined function can only be based upon the calculations that can be placed in a single cell. If you have too many calculations to put them into a single cell, e.g., an entire page of calculations based upon a few starting parameters that eventually yield a single value, then how do you reuse this entire page of calculations?
Is there another Excel mechanism that allows an entire page of calculations to used as a stored procedure?
I have found a base macro that has most of what I want the only problem is I need it to search column A by the data entered by the user in the inputbox and send out an email if it meets all the requirements. I also need it to be able to be able to do that search by only the first letter of the company name (example, only needing to put in A in the inputbox for Amber Inc.). If I remove the red text the macro works perfectly but just runs down the list on the spreadsheet.
Column A has company names, Column B has email address' and Column C has the company contacts first name.
I have a macro that will send an excel workbook by email when an image is 'Clicked on' however, I need the attachment to be renamed as the text used in cell B9 of this worksheet.
So far I have the macro below which auto populates the 'email to' address and the 'subject' line which is great but how do I get to rename the attachment?
Sub SendIt() Application.Dialogs(xlDialogSendMail).Show arg1:="test@test.com", _ arg2:="test 1" End Sub
I am trying to make a "master" sheet where employees total calls for the day are recorded.
Each employee will be marking their calls each day which will be on an excel spreadsheet. i would like to then create a MASTER sheet that links to all the employees specific sheets so when they exit the sheet it updates the master, or it can be a live update if that is possible...
The data in 4 specific cells in C:UsersOfficeDropboxWB1 needs to (upon clicking command button) be copied to the next available blank cell in 4 specefic rows in C:usersOfficeDropboxWB2.
WB1 Specific Cells List Sheet1!A4 Sheet1!Q7 Sheet1!N22 Sheet2!E3
Data from these cells are to be copied to the rows listed below respectively.
WB2 Destination Rows (Next available blank row) Sheet1! Row B Sheet1! Row D Sheet1! Row F Sheet1! Row J
I gather from reading other posts that sending this data within the same WB is fairly easy, is it easy to do between WB's though as i must have seperate WB's?
I am using the following code to try and send a workbook via attachment to multiple email recipients however it will not work. If I only include one recipient then the code runs fine however it crashes when there is more than one.
I am using a version of the following code that sends a mail using Lotus notes and attaches the Workbook - I am wondering if there is anyway I can make it attach the WORKSHEET instead ?
Code: 'The procedure for executing the main task: Sub SendWithLotus() Dim noSession As Object, noDatabase As Object, noDocument As Object Dim obAttachment As Object, EmbedObject As Object Dim stSubject As Variant, stAttachment As String Dim vaRecipient As Variant, vaMsg As Variant
I am using 2007. This may be something simple but I can't seem to find a solution to this, I have an excel macro enabled workbook which produces a daily report the final task is to save and send an email but I need the file to save as an xls rather than xlsx as some of the recipients are unable to open the file here is the code used for the tasks in the
workbook:Sub Step1_Refresh() ' ' Step1_Refresh Macro ' ' ActiveWorkbook.RefreshAll End Sub Sub step2_save_close()
I am using 2007, I have an excel macro enabled workbook which produces a daily report the final task is to save and send an email but I need the file to save as an xls rather than xlsx as some of the recipients are unable to open the file.
When I view a sheet under Page Break Preview, it shows the Page numbers in the centre of the Page. While I am aware that it would not print the page number I was wondering if there is an option to remove/hide the page numbers.
I used Scheduled Task to set up my spreadsheet to open daily. I have the code with assistance to pull out the due date items and place them into an email.
I have come across XLSTART/AUTOEXEC/ACTIVATE...ETC... But cannot figure out the code that will automatically "enabling macro" once Scheduled Task opens the spreadsheet?
Then once the macro runs, the email with the due dates, how can this auto send without user interaction? (currently I would have to hit send)
I am trying to make the process totally automated to open the spreadsheet at a certain time, send the email with due dates and close the spreadsheet.
Following code in ThisWorkbook--
Private Sub Workbook_Open() Check_Date_Send_Mail End Sub Code in Module1--
Option Explicit Sub Check_Date_Send_Mail() Dim wbBook As Workbook Dim wsSheet As Worksheet Dim rnDate As Range, rnValue As Range Dim stAddress As String, stMsg As String Dim stRecipient As String, stSubject As String Dim stPost As String Set wbBook = ThisWorkbook Set wsSheet = wbBook.Worksheets("Sheet1") With wsSheet Set rnDate = .Range("d2:t23") End With
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 am trying to do a macro and I want to add in a worksheet. I use the code
"Sheets ("Template") .Add"
but I keep getting an debug error. I did this in another macro but cannot find it. I need to add a specific name at the start of adding in a sheet as the sheet number increments change based on how many times you have run the macro. I know this is a silly format issue but I could not find anything in my book or searching this forum.
Is there a way to copy page setup settings from one workbook to another in VBA?
Example, I have a spreadsheet with 5 tabs with each of them different page setup options.
I have a second spreadsheet with 5 tabs where I need to make the page setup the same for each tab as the saved spreadsheet #1.
Background: This is a workaround for not being able to do copy/paste special values for pivot tables. My workaround is to save an .xlsx as a .mht then reopen and save as .xlsx. The only problem is that I lose page setups through the process.
Is there a way to copy page setup settings from one workbook to another in VBA?
Example, I have a spreadsheet with 5 tabs with each of them different page setup options.
I have a second spreadsheet with 5 tabs where I need to make the page setup the same for each tab as the saved spreadsheet #1.
Background: This is a workaround for not being able to do copy/paste special values for pivot tables. My workaround is to save an .xlsx as a .mht then reopen and save as .xlsx.
I am working on creating a summary page for my workbook. I want the code to create a destination sheet called Summary, then look at each sheet in the workbook, check for a value >0 in cell N7, if it is >0, the copy the tab name and the value in N7 and paste it into the destination sheet starting in cell A1(text of source tab name) and B1(dollar amount). Then move to the next sheet in the workbook and copy paste if N7 is >0 sheet name and value. It needs to skip the sheet XMOE. The Summary sheet would then create a dollar amount subtotal of the values copied from the sheets and populate it into Cell D1. Cell C1 would state "Workbook Subtotal"
I would like the code to delete any sheet where N7 = 0.
I am looking to create a summary page to show open items within a log of initiatives. The workbook has 21 different tabs logging initiatives by the each individual person and also 9 other data tabs. On the tabs containing the initiative logs, it states whether the initiative is open or closed and I only want the summary tab to show the open items. Is it possible to do this?