I have a column full of numbers e.g. 1,2,3,4,5,6,7 etc..
i need to run a program that automatically goes down the selected column and places a hyperlink based the number in EACH cell. e.g. if the cell number is 4, then the link should be
http://www.somsite.com/4
each cell has a unique number
basically i need a macro that can do the following:
for all cells selected in column get first cells get info from cell insert hyperlink+info; increment cell end
I am trying to further automate the process of formatting my financial statements and am hoping someone might get me on the right track here. Currently I create 2 sheets, one called "MMM YYYY" (i.e. month year) and another called "General Ledger".
The process I am currently doing manually is creating a link between each line item on the financial statement and its GL account information on the General Ledger tab.
The description of each line item on the financial statement (the MMM YYYY tab) matches the GL account description on the General Ledger tab with the exception that the GL account description starts with the GL account number and then the description.
For example the "Utilities" line item on the financial statement needs to link to a line on the General Ledger tab that is "7071-45 Utilities".
In my mind I see the macro saying go to the next line and read what it says. Now go to the General Ledger tab and look for something that says the same thing excluding any preceeding numbers and make a hyperlink.
If it helps, I've uploaded a sample of one of the statements as I currently do them with the hyperlinks already set up. There are not any macros in this spreadsheet. If you'd like to take a look at it, you can get it here: ....
Is there a way to automatically conditionally format each column in each row, when either open, closed or cancelled is selecting from a drop down in the Status column. For example every cell is blank in colour, but if I select open in the drop down menu for row A2, the entire row will turn Red. Just wondered if there is a way instead of individually formatting every row separately. I would like to be able to copy the formula or whatever down the entire sheet.
I have a code which should automatically lock the cells when ever i change a certain value of cells. the code is given below. But the change doesn't happen. I've first protected the sheet then using code unlock and then again protect the sheet after locking the cells. I'm getting no errors but the cell doesn't get locked.
Code: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 14 Then ActiveSheet.Unprotect Password:="password"
I have an excel sheet which has a macro which captures the current time in a cell with the formula =now(). What I am looking for is that once a user runs a macro and the time is inserted into that cell then that cell should be locked and cannot be changed then. If this can be done by any formula / function or VBA.
I have Excel 2003 & am trying to design a template for keeping track of my design products. I have several rows for links to previews, downloads etc. I use the template when placing merchandise in stores so I can copy/paste the info where needed. I want to copy links to a cell but have them be non-clickable. If I paste the link & then right click the cell & choose remove hyperlink I get non-clickable text, however I lose the original formatting for that cell.(left/center/wrap text).
I'm creating a table to store a large amount of data that will be continously updated over time. The table however will be viewed from a website, not as an Excel document, and I found a great add-in that generates small, clean HTML code to that end.
I'd like to do something else a little more tricky however ( for me ). I'd like every item in the first column to automatically hyperlink to a predesignated URL, and then parse the contents of that cell onto the end of the web address. If the cell contained multiple words, it would parse "+" between each word to create the proper address. The hyperlinks will be fetching database information from an exterior website.
For example, Column1 Row1 might say "Dog", so a hyperlink would be generated to [url] Column1 Row2 might say "Red Corvette", so a hyperlink would be generated to [url]
I am using Excel 2010. I have been given a task at work that can save my team a lot of time if I can solve the problem. Every month, we have a spreadsheet with about 5000 rows that we have to email. In each row, there is a range that we have to email to a specific email. For example, I would have to copy and paste Range A2-R2 in the body of the email, and then email it to whatever email is in cell S2. I would then continue this for the next 5000 lines, making it a possibility that i will be sending 5000 emails manually.
I have been trying to come up with a solution through VBA that would automatically send these emails. My goal is to automatically send the Range A2-R2 to outlook email, then cell S2 into the "To" email address box, and then automatically send it. So far, i have successfully been able to send one row, but cannot figure out how to loop it for the remainder of the rows.
A couple other key points are that I have column headings as well (Range A1-R1). If possible, I want to be able to include the column headings in the email body as well. Example - first email would be range A1-R2. second email would be range A1-R1 and A3-R3, and so forth. The body of the email would also contain a standard script, such as "Please review the information below."
The goal here is to save everyone from having to send 5000+ manual emails. This would be a big boost for my team.
I have thousands of path names in a spreadsheet that were converted to hyperlinks, but my client wants to see only the filename in the hyperlink, not the whole path.
I created the hyperlinks by applying the following to the column containing the file paths: ....
I have a spreadsheet and within the first sheet there are lots of hyperlinks to other cells within sheet 1 (my template).
I have made a small macro which very basically makes a copy of sheet 1 (my template)
The hyperlinks in the template are explicit and as they are copied to sheet two, they still reference back to cells in sheet 1. I need the hyperlinks to be relative, so that when I make a copy of the template the hyperlinks are copied and make reference to cells in the new sheet. I cannot work out how this should be done
I tried to learn VBA about 4years ago, so my knowledge as died. I hope this question has not come up before, i did do a search before. I wish to create a new hyperlink based on a activecell eg. A1=SN0001 then hyperlink will be SN0001. Only thing i can remember how to do is record marco, but ofcourse copying the cell will return a hardcoded value.
I have a worksheet where rows are continually hidden and unhidden.
When the code to hide or unhide the rows runs I would like to have a macro that sequentialy numbers/labels the visible cells in column D that contain hyperlinks. i.e the first visible cell with a hyperlink will have it's text changed to "Table 1", the second visible cell's text will become "Table 2" etc. The hyperlink should not be altered when this happens.
Is there a way that I can add a statement or change my code to automatically have the checkbox checked if a certain value in a cell is greater than zero?
This is my If CheckBox1.Value = True Then Range("RANGE_WATER_AND_SEWER").PrintOut Copies:=1
If CheckBox2.Value = True Then Range("RANGE_ELECTRICAL_SERVICE").PrintOut Copies:=1
I have written some code intended to automatically clear a cell when data appears in it from an external source. In one spreadsheet, it seems to work exactly as expected, ie when the cell is polulated, it immediately clears the contents. In another spreadsheet, with exactly the same code, it will not automatically clear. If I put it in debug mode and step through it line by line, then it does do as expected but otherwise it won't.
I have an excel add-in that has got few macros which require two references,
1) Microsoft Word 12.0 object library 2) Microsoft Internet Controls
I have checked both these references and the macros are running perfectly on my PC. but when I distribute this add-in, sometimes the references are checked but sometimes it gives an error and the user is required to check the reference again.
Can i use some code to automatically check these two references. or is there some other easier way to get rid of this error.
I would like to add something (formula) to the following code to automatically add a new ID number with each new entry. Some of the entries will have the same name but each time a new entry is added I want the ID number to increase by 1. Assume that the first entry is 0001.
I'm trying to write a VBA code to automatically update using a vlookup but I seem to be running into trouble, partically with the lookup value part of my vlookup. I basically have a range of dates in column B and want the values to appear in column C. Yes, I know I just type the forumla in column C and drag it down, but I really need to do it in VBA, as I want this to update when additional dates are added.
This is what I have thus far. The code keeps looping at i = i +1 and doesn't stop unless interuppted.
Sub update() Dim i As Integer, L() As Range, s As Integer, V As Double Sheets(1).Activate s = Range("D:D").Select On Error Resume Next While s "" i = i + 1 ReDim Preserve L(i To 1) L(i) = s Wend If i = 0 Then MsgBox "No dates found" End If Exit Sub
For i = 1 To UBound(L) V = WorksheetFunction.VLookup(s, Range("Inputs"), 2, 0) Next i End Sub
Does anyone know code to bring up a comments box automatically when a certain word is entered into a cell? I have an If statement but I just don’t know how to open a comments box in the same cell.
Cell b2 contains the formula =IF( COUNTIF(B$1:B2,B2)=1,MAX(A$1:A1)+1,"") I want cell b3 to contain the formula =IF(COUNTIF(B$1:B3,B3)=1,MAX(A$1:A2)+1,"") I can do this within the spreadsheet by simply highlight and drag down to autofill and excel updates the formula references as I need
However - because the sheet gets very large (its a sort of rough database) I dont fill in all the formulae on a blank sheet, but each time a record is entered using a VBA form I have the following working code copy the formula
However I dont want to use 'Active' - because I have to work out what cell is selected before this is executed and then reselect it after, which also causes the screen to flash when the active sheet changes so I tried the following which does not work
to write a code that would create a chart automatically in another worksheet when a button is clicked.
I have attached the sample data that I am working on. Each row in the sheet represent 3 coordinates, which are: coordinate # 1 = start, 0 coordinate # 2 = centre, level coordinate # 3 = end, 0
i have a caclulate event that I want to run constantly while the workbook is open. How can I do this? below is the code for the calculate event:
Private Sub worksheet_calculate() If Sheets("Messing Around"). Range("e14") <> changeval Then Range("e15:e100").ClearContents If ActiveSheet.Range("E14").Value = "T1/E1" Then Sheets("Tables").Range("J2:J79").Copy Sheets("Messing Around").Range("e15").Activate ActiveCell.PasteSpecial Paste:=xlPasteValues ElseIf ActiveSheet.Range("E14").Value = "DS3/E3" Then Sheets("Tables").Range("k2:k79").Copy................