how I would go about writing a macro that would pop up if a value in a certain cell is greater than a set value. For example, if the cell b1 has a value of >50, I would want an alert box to pop up saying "Over Range". Ideally this should be automatic as soon as another value is entered into cell a1.
View 9 RepliesI have designed a macro to convert the contents of an excel sheet to HTML format and bring it to outlook email. Everything is getting copied in the email except an image. How to bring that image in the same email draft?
View 1 Replies View RelatedBeen using this code...
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 11/28/2012 by Doug Garn
'
'
Dim Rng As Range
Set Rng = Range(ActiveCell, ActiveCell.Offset(0, 3))
Rng.Select
[Code]...
What it does, I hilite (put focus on 1 cell) a cell and it copies that cell and 3 more to the left, switches to 2nd xls file, pastes that, puts the cell focus on next line, then goes back to the first sheet and I just have it select a random cell(s) so it does a Ctrl-F properly.
Problem is the 3 ways I have above to bring up the find box aren't working for me. It won't find anything and I don't understand why. And I hope I explained this correctly.
I am modifying a corporate macro that is used in to create a standard technical letter. This standard file has 6 macros, that once used to create the letter, are never used again. I know, the first thing that jumps out is to create an add-in. I'd prefer not to got hat route at the moment for various reasons.
What I'm looking to do is after the letter is created, and the print macro is called and prints the letter, all macros are removed (already found help for this on this site), then check to see if the file has been saved, or still has the template name, and then either save or bring up the save as dialog box for the user to save the file with the appropriate name and folder.
I am trying to take the tables you will see in the dummy page on the second and third sheet and have them output onto the first sheet based on the parameters of the drop down menus. Is there a way to have a button on the first page that controls a macro to do this?
View 4 Replies View RelatedI'm trying to make a macro check if a file has been saved (ever). If so I want the macro to do a regular save (with already esatablished filename and location) before it proceeds with the rest of the macro. If the file hasnt been saved (if it runs from a new workbook) then I want it to pop up the save.as dialog, so that the user can choose the name and location of the file before the macro continues .
The macro itself is saved in personal.xlsx.
I have a sheet made of 3 columns, every column has several rows, I am trying to bring the values of the second column beneath the values of the first column and then the values of the third column beneath them all. Attached are 2 sheets showing the current and required scenarios
View 4 Replies View RelatedI am trying to match and bring the third value with index formula in book 1
Book 1
OFFICE KEYCHART#CPT
113491209503959551134912095703662011349120957200160
Book2
OFFICECHARTCPT
113491209503959551134912095703662011349120957200160
I would like to download historical stock quotes from yahoo and then bring them into a worksheet. I have used the Webbrowser control to bring in the Yahoo page but I have no idea on the code to use to bring in the values from the table.
I have two tables which both have two columns. One column has dates in it e.g. 01/09/04 and the second column has a number in it. What i am wanting to do is create a combo box that, when i select the date from the list, it brings up the number (that is in the cell next to it) and puts this number into the cell next to the combo box.
I know how to get the combo box and add the dates to the list, but how to bring the dates up.
I have tried creating a combo box with the dates and then formatting it to create a cell link. This link then brings up the first number of the date in the cell i have chosen. I have then selected a blank cell and entered the formula :
VLOOKUP(lookup_value,table_array,col_index_num)
However, when i have tried this, it hasn't worked.
What I have is a sheet with Command Buttons on, and one of them when clicked launches another application which has a log in screen.
I can't for the life of me get it to bring that application log in window in front of the excel application when it runs.
I have tried various ways of sending Excel to the back once the button is clicked, but just can't get it to work.
Ideally, once clicked the new application log in window will come up in front of excel, and set focus on the Password box, is this impossible to do just from inside excel?
We are looking at
[Code] .......
My rows and columns are as below
_____________________________________________________
A B C D E F
____________________________________________________
Basket 1 3 Basket 1 4 Basket 2 5
Basket 3 7 Basket 3 2 Basket 9 4
Basket 4 2 Basket 5 2 Basket 11 1
I want to bring all the baskets under column A in one row and Oranges in B, Apples in C and Lemons in D like this
Items Oranges Apples Lemons
________________________________________________________
Basket 1 3 4 0
Basket 2 0 0 5
Basket 3 7 2 0
Basket 4 2 0 0 and like wise.
What is the best way to do this.
I'm using a little sub routine to bring up a pop up calendar when i click in a cell, everythings lovely but it annoyingly comes up when i select a clolumn or row that also contains that cell. modification to require a double click to display the calendar?
View 2 Replies View Relatedcreate an array of active printers. I edited the code to write the array to a range, then populate a data validation list with the printer names. All works great. The goal was to select a printer name from the list and run a macro to print some sheets. However, the function doesn't bring back enough of the name to do this. how to edit the function to bring back the whole name.
For example: after running the function the 1st printer returned ="\rizzoHQ-ENG-04"...when i record a macro to print to this printer it needs ""\rizzoHQ-ENG-04 on Ne05:". Here is the function unedited, I bolded the part i think is controlling the name:
I have chart object in the sheet. I wrote code that makes the cart big, but it is not on top of other things. I need to add a snippet of the code that would make it "bring to the front".
View 1 Replies View RelatedI have two spreadsheets in the same workbook, on the first worksheet I would like to bring in certain values from the other worksheet if certain criteria is met.
On the first worksheet
Column A = G/L account Number
Column C = Is where I would like the amount brought in from the other worksheet
column D = The percent number I would like to bring in from the other worksheet
On the second worksheet
Column A = G/L account Number
Column C = Amount
Column D = Percentage
The criteria to use to determine if the number should be copied to the first sheet is as follows
Column C on the second worksheet if the value is greater them or equal to 1,000.00 (positive or negative) and Column D the percentage is greater or equal to 10% (the cells for this column are not formated has percentages)
For example"
GL account number 4000000-0 the value in column C is 1500.00 and column D is 15.19 then both numbers would be entered into the first worksheet in column c and d foor the row where the gl account number is 4000000-0
Name Qtr Year
Org 112007
Org 222006
Org 332006
Org 442006
Org 542007
Org 612006
I want the code to say, If Qtr = 1 And Year = 2007, then bring back Org Name, If Qtr = 2 And Year = 2006, then bring back Org Name and so forth.
The code should loop through a range of constant data (Region Name), until the Region Name is blank.
Dim OrgCell As Range
Dim OrgTargetCell As Range
Dim RegionCell As Range
Set OrgCell = Sheets("DATA Removed").Range("A2")
Set OrgTargetCell = Sheets("Overdue").Range("A3")
Set RegionCell = Sheets("DATA Removed").Range("C2")
i = 0
OrgCell.FormulaR1C1 = _
"=IF(AND('DATA Removed'!R[-1]C[11]=1,'DATA Removed'!R[-1]C[12]=2007),'DATA Removed'!R[-1]C,0)"
Do
OrgTargetCell.Offset(i, 0).Value = OrgCell.Offset(i, 0).Value
i = i + 1
Loop Until RegionCell.Offset(i, 0).Value = ""
End Sub
I've created the code below from scratch (ever so proud of myself even though it's basic lol)
Dim N As Long
Dim LR As Long
N = Range("A2").Value
LR = Application.WorksheetFunction.CountIf(Worksheets("Overview").Range("AJ:AJ"), N)
For N = 1 To LR
Here, 'N' is a project number. This code succesfuly counts the number of sub-tasks linked that that project in my data sheet. Now I want to bring all those rows into my template spreadsheet, but dont know how to start
I have a worksheet with several columns and 1,000's of rows. I have code that makes all "good cells" grey (color index 15) and all "bad cells" red (color index 3).
I would like to do 2 things...
1. If ANY cell is RED, cut the WHOLE ROW and "insert cut cells" below the header row (even if ALL other cells are grey), then repeat the process up the whole worksheet until ANY row with a red cell is at the top.
2. Create a new worksheet named "Trouble Cells", copy the header row along with any rows with red cells.
I would like to keep the formatting the same (for example, the title row is always yellow and is "28" high and all other rows are a height of "12").
I would also like to keep the column width of each column in the new worksheet as well.
Excel 2002
In the below data set i have the data ranked by branch and center by value. I am trying to create a summary page that looks at the data set by branch center and rank and brings back the debtor code. The letters above headers represent the columns.
a b c d e f g
BR
CNTR
DEBTOR NAME
2012
Rank
[Code].....
ATTACHMENT: Order Form.xlsx
I am creating an Order form for my job in Excel. On this form, it displays the Top 100 items for sale. All the basic functionality of the form is working fine, my real issue is with the order summary tab.
On this tab, I would like for any Items with a Quantity on the first Sheet to transfer to a summary on the Second sheet.
So far, I am able to get the data onto the second spreadsheet. My final question is, can make the items on the summary sheet go to the top available row? Basically if I have items in row 3, row 7 and row 9 - I would like for the items to automatically fill in rows 3,4,5 respectively. (on the second worksheet)
I have seen people make this happen (on this board even) but for some reason, when I try using those formulas I do not get the results I need. I have attached the file to this post.
On the Tab entitled "Adv Piano" this the product list. On that tab, customers can put a Quantity in column G for the items they want to order and that item's details, price, and quantity will automatically appear on the 2nd tab, "Order Details" in columns I - L in the corresponding row (this is already done)
I need the information in the columns I - L on the "Order Details" sheet to appear in columns C - G on the same sheet, in the same order but to fill in towards the top with the corresponding quantities, item details and price remaining in the same row.
Order Form.xlsx
I want to use excel to create quotations for customers. (currently doing it in word)
Tab 1 is the quote, has 4 columns, part number, description, cost, yearly maintenance
Tab 2 has all the things we sell, part number, description, cost, yearly maintenance. 150 lines.
So, Tab 1, description column is a drop down box from Tab 2. Working fine.
Question. When an item is selected from the drop down, how do I get it to then bring from tab 2 the part number, cost and yearly maintenance.
I'm trying to get a cell {in the attached spreadsheet 'Order Form' Sheet- Cell 'B13'}, to bring up the corresponding product description {'Products' Sheet- Column C}. For the cell that is to bring up the product description {'Order Form' Sheet- Cell 'C13'}, the following is the formula I'm trying to use, but is coming up "#N/A":
=IF(C13>1000,VLOOKUP(A13,Products!$A$2:$D$12,3),IF(C13>287,VLOOKUP(A13,Products!$A$14:$D$25,3),IF(C1 3>0,VLOOKUP(A13,Products!$A$28:$D$38,3)," "))).
I haven't attempted the "Cost/Bottle" formula yet {'Order Form' Sheet- Cell 'D13'}, but it needs to correspond the product number {'Order Form' Sheet- Cell 'A13'} and the quantity ordered {'Order Form' Sheet- Cell 'C13'}, with the cost/bottle on the that quantity found on 'Products' Sheet, Column D.
I have a userform which catch data from worksheet and show it in userform listboxes.
I have two worksheets named " EmployeeRecord" and "SalesRecord"
I have two ListBoxes in userform.
In the userform I have a search text box which is used to search employee and show employee list in ListBox1. This is working perfectly.
The problem is with Listbox2 which I want it to search data from worksheet " SalesRecord" for selected employee in ListBox1 and show data in ListBox2.
how I can bring data in listbox2, when employee is selected in listbox1.
I have attached worksheet and userform.
I've got a macro that searches & opens a most recent file. I'm trying to figure a simple way to bring to the front the workbook which is opened by the macro.
View 2 Replies View RelatedI'd like to bring data from Sheet2 to Sheet1. If value at Sheet1 f2=5 it should copy from sheet2 b5:k5 tosheet1 a2:j2 If value at Sheet1 f2=10 it should copy from sheet2 b10:k10 tosheet1 a2:j2 etc.
View 3 Replies View RelatedI have a worksheet where data has been entered from a userform. For each entry, there is a separate reference number in the form of contract number-schedule number-machine type-cage number (e.g. 123-123-ABC-1).
The machien type will not always be known so the user will need to do a search for the contract number-schedule number and then bring up all the possible reference numbers.
For example this could look like:
123-123-ABC-1
123-123-ABC-2
123-123-CDE-1
123-123-CDE-2
I would like this list of all possible values to pop up.
what look up function would work and how I can do this?
Is there anyway to be able to bring decimal point forward without affecting the numbers using any formatting, which will still be there even after refreshing the query.
For example, 0.0531 to 53.1
I have a spread sheet that has rows of information and once you click on the tally form button (top Left) you can search on the info and it will display in the list box once you click on a result. I have attached the spread sheet, with only 1 row as obviously I dont want to share work data on here.
My question is that, if I want to display a row in the form, I would like to be able to click on a certain cell (Incident # column), it would then recognise the row and display that row in the form.
At the moment I have a EVENT that will highlight a row if a cell is selected. Just thought I'd mention that in case it would interfere.
VB:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
' If more than 1 cell is selected, then don't run the rest of the code
Application.ScreenUpdating = False
[Code] ......
ozgrid.xlsm
I work as a data administrator in a high school in England. I've only been doing the job for about 8 months but a lot of the processes we go through could be better automated via the use of macros in Excel and Word.
Basically we have school grade reports that come from our MIS database that are stored as a Word template, which are then exported into Word as an .xml file. However, they don't come with the photographs of the students on the reports, so we have a Word List Report with every student photo (split into year groups) and run the following macro, which allows you to pick a folder where the reports are stored and match the photo to the report via the school admission number. It is then inserted into the report using a Word bookmark to place it in the top left corner.
VB:
Sub InsertPhoto()
Dim myFile, myFileNewName As String
Dim PathToUse As String [code]....
This works fine but I would like to be able to automatically format the photos so that they have 'In Front Of Text' wrapping, which we need to keep the templates from messing up. It would also save me accessing nearly 1000 school reports and manually editing each photo.