I have this macro that I use for taking information based column B grouping it together and putting in a separate worksheet.
What I would like to do is in the master sheet (sheet1) to create a hyperlink for those listed in column B so I can click on it and it takes me right to that worksheet.
Sub exporttoWS()
Application.ScreenUpdating = False
Dim i As Range, LR As Long, ws As Worksheet, wb As Workbook, C As Range
Sheets("Sheet1").Select
Range("A1").Select
'looking at the full length of the file
LR = Range("A" & Rows.Count).End(xlUp).Row
'sheet needs to be named sheet1, all data should begin on row 3
I have a workbook that has 2 worksheets. Sheet1 has a data table that is filled from an SQL database. I would like the first column of the data table to have each cell be a hyperlink. The destination of the hyperlink is Sheet2, cell A2. I would like to modify the hyperlink, so that when the user clicks on the hyperlink, the text-display of the hyperlink is copied into sheet2 cell A2. Initially, I thought this was simple. I added the event code shown below:
[Code] ........
This worked, however there was a problem. I manually added the hyperlink to all cells in column1 of sheet1. However, this made the TextToDisplay property the value of the first cell for all hyperlinks. So, solution to add hyperlinks to all cells in the first column, with TextToDisplay property set for each individual cell. What is the best way to do this with the fact that the number of rows in column1 will vary as the size of the SQL query changes?
There was a formula to enter sheets names in a cell range (ie: A1 would have value SHEET1, A2 SHEET2, etc) and use a FOR loop to cycle through the named sheets.
1. Create a new worksheet when data is entered into a cell (ie. entered text "ACC2013" into cell A5)
2. Rename that worksheet to correspond to the data in the cell (ie. change worksheet name from sheet2 to "ACC2013")
3. Create a hyperlink between cell A5 and sheet2
I'd like for this macro to loop through a range of cells so I don't have to have a long code. Let's say my data range is from A5:A23. If this requires multiple macros that is fine.
Suppose I have and excel workbook with 100 sheets and I want to click from one sheet to another. I created a table of all the sheets and hyperlinked the sheets then copy/pasted the table into each worksheet but that seems primitive. What if I have to revise the table? I will have to do it hundred times !
Is there a smart way to accomplish this using one smart master table that I can copy and paste into each sheet or somehting similar?
i want to compile a list of volunteers with various interests in our organization and add a code letter to their contact information. with this code, i'd like to see the contact information copied into another worksheet automatically..is this possible? if so, how do you write the formula?
I am wanting to create a macros that will for a given column of cells hyperlink to a Worksheet that has the same name of the cell. I.E. For the set of:
Ohio State Nebraska Oregon Florida
I want to run a macros which will assign each of those to a worksheet within the same workbook that has the same name. So when "ohio state" is clicked on, it will go to the worksheet "ohio state." When "Nebraska" is clicked on it it will go to the worksheet "nebraska" ect.
I have a workbook with multiple worksheets that will be added or removed. I want a list of all worksheets (which I plan on making hyperlinks) on the first worksheet. (entitled "Home"). This page is automatically selected on worksheet open. In pseudocode, I want a:
<for each worksheet in the workbook> <list name of worksheet> <advance one row>
OK - so that was even less than pseudocode, it's a quickie outline... But the idea is present.
I have workbook that contain several sheets. I want to generate a code that will do "first sheet as Index sheet (no mater what is the name of sheet)". Now in this sheet (Index), I want to put sheet names in sheet's order. OR I want to find the sheet name by just one click in Index sheet (eg. Ctr + F, sheet name, it will go to that sheet) can find all the names of sheet. I won't interested to hyperlink the sheet manually many times on Index sheet.
I am using Excel 2003 to run a workbook that contains 60 separate worksheets. To make it easier for the techs to navigate the workbook I created a block of 60 autoshapes, (5 blocks high x 12 blocks long) each block hyperlinked to each worksheet and labeled with the worksheet name. I then placed one of these blocks at the top of every worksheet. A tech can click on the block and it takes him right to the page he is looking for, pretty straight forward. It works very well, but as you can guess this is a lot of autoshapes to be stuck in one workbook (3600) and whenever you make major changes to the workbook than the blocks become a factor, and if you resize the columns or add one, or change a worksheet name... I thought about just creating 60 custom buttons and sticking them on a custom tool bar - but I found trying to create a button with a number on it like "34" (for "worksheet 34") was pretty tough in the button editor.
way to create a set of hyperlink buttons that will allow you to quickly navigate through 60 worksheets?
I have a vlookup worksheet like described in this thread: [URL] .... This works perfect. I would like to be able to jump to the vlookup result using a hyperlink.
In the thread worksheet the formula in C2 is like =VLOOKUP(A2,INDIRECT("'"&INDEX($G$2:$G$9,MATCH(TRUE,COUNTIF(INDIRECT("'"&$G$2:$G$9&"'!C2:C100"),A2)>0;0))&"'!C2:D100"),2,0)
In cell D2 I placed the formula (font: webdings ) =IF(C2="","",HYPERLINK("[Workbook1.xls]"&("Sheet2!"&(ADDRESS(MATCH(C2,Sheet2!$D:$D,),4))),"i"))
(Due to the Dutch Excel I use I replaced ";" to ",")
The link works because I hardcoded "Sheet2" into the formula where the result can be found. But it would be much nicer if I didn't had to put the sheetname into this formula.
Is it possible to use range G2:G8 like in the first formula to achieve this? I guess you have to use INDEX and/or INDIRECT but I barely understand the first formula ...
I have an excel file that is used to record information about particular projects. We need to record dates related to these events and these are stored on separate worksheets. These use a key of sorts, where the unique references are replicated on all worksheets.
I have set up the data sheet to generate the unique identifier and the hyperlinks to the Received! and Sent! worksheets automatically as new unique references are added to the Data! worksheet.
What I would like is a VBA code to populate hyperlinks in the Received! and Sent! worksheets in column B, to link back to the Data! worksheet unique reference.
I had used formulas in the past, but the Data! worksheet is massive. I've needed to write hundreds of hyperlink formulas referencing blank spaces in the Data! sheet in anticipation of new projects. It would be better if they were populated as the sheet expanded.
I have this macro that I am using but want to automate the file it uses. This file has the last 5 text/digits change each month, e.g.
Internet_GB_Report_Feb07 Internet_GB_Report_Mar07
Clearly the next file would be Apr07. I would like the macro to identify this automatically and use the correct file without having to go into the macro every month and change the last 5 text/digits. If you have any ideas I would be very grateful to hear from you. The Macro is below:
i have this macro made by another member here that looks for "T" in column 10 and deletes entire row if in that row has a "T". I need it modified to also delete if it contains "FT" and also erase if cells is blank.
Sub Macro8() Sheets("FORMERS").Select 'deletes entire rows based on a text on one row (this case errases all that have a "T" in column 10 (column J)
Dim DeleteValue1 As String Dim rng1 As Range Dim calcmode1 As Long With Application calcmode = .Calculation .Calculation = xlCalculationManual .ScreenUpdating = False End With...........................................
Is it possible to modify this macro below to concatenate what is in cell B4 (myfilename), with B5 ( =now() )and retain the correct time date format that I have specified (I formatted the cell so that there were no / or : in the file name i.e.ddmmyy_hhmmss)?
When I try this the file name always reverts to the microsoft date "serial number: I would like myfilename 09122008_1851
but instead get myfilename 39792
(or would it be better to include the date and time in the macro rather than in the cell?)
The below macro(found in VBA and MACROS for Excel) works well but I need a few modifications
Option Explicit
Function SortConcat(Rng As Range) As Variant 'Rng —The range of data to be sorted and concatenated. Dim MySum As String, arr1() As String Dim j As Integer, i As Integer Dim cl As Range Dim concat As Variant On Error GoTo FuncFail: 'initialize output SortConcat = 0# 'avoid user issues If Rng.Count = 0 Then Exit Function 'get range into variant variable holding array ReDim arr1(1 To Rng.Count) 'fill array i = 1
1)My array is 128 cells wide(AT3:FQ3) and i get a type mismatch--seems to work well for 36 cells
2) These cells contain dates and numbes---all i want to sort and/or display is the numbers Note: some numbers are in parenthesis and other are either single or double digits. Example: numbers are (8/8),8,10,(HG6),4,6,etc. And Dates are 04/06 format (no year, and no parenthesis)
3) All empty cells in the array show up in the above SortConcat function as zero, and are un-necessary
4) The final output should be no more than 6 concatenated numbers, so column width is not an issue, and the bubble sort is really not necessary but would be a nice feature
I am trying to design a tool which dynamically results in different cells depending on users inputs. Yet, I am willing to protect most of the cells to avoid any user involuntarily (or voluntarily!) modifying the formulas/contents of the calculated (and locked) cells. Is there any way to protect my sheets, allowing only a certain macro to modify the locked and protected cells?
I have this macro and at the present time, can only compare two worksheets. One of my worksheets contains column headers with data, the other worksheet just contains column headers. The macro will match the data against the column header and paste below. I'm doing it this way because I have several tables I export from a MySQL database, but some of them have more fields than others so I was trying to get all of the data to line up in under the correct column header from each table. I need editing the macro to allow for
1) More than one worksheet to be analyzed at a time 2) If the first request is not possible, I would like for the macro to paste results at the next empty cell. As of now, it will only copy one at a time (which requires me to house the data in another worksheet everytime I run the macro).
Below is the code:
Dim ws1 As Worksheet, ws2 As Worksheet Dim HeaderCells As Range, Hdr As Range, hdrFIND As Range
Application.ScreenUpdating = False 'speed things up Set ws1 = ThisWorkbook.Worksheets("HEADERS") 'Define name of worksheets Set ws2 = ThisWorkbook.Worksheets("B")
I am using the macro below to import every spreadsheet into a folder. I would like to modify it to check the sheets it is importing for sheet protection. If the sheet protection is turned on, I would like it to turn it off. The password for the sheet protection will be "PIR".
I have a list in Excel, and it has the company in one column, and it's information in the next x rows until there is a blank row (4-7 rows). I get that you can copy the rows under the Company, transpose next to the company, and then delete the contents of the cells that you just took the data from, but I have 6200 rows do to this to, for 500+ companies. I tried recording a macro for two entries, and this is what I have (see below), but how do I modify this so that I don't need to type in every single range, and it will do it to the whole column? The data is in column A, I am posting in column B.
Basics for Macro Requirement:
1. Find the blank cell in row A 2. Skip the next cell/row (this is the company) 3. Select all the cells beneath the company cell, until it reaches the blank cell underneath 4. Copy, transpose these cells next to the Company cell (transpose in column B) 5. Delete the contents in row A that were just transposed 6. Find the next cell with data (company) 7. Repeat Steps 2-6
Code: Sub CopyRow()' 'Copies row to new sheet, highlights it, marks column 'A' as copied. ' Dim cCell As Range Set cCell = Selection.Cells(1, 1) Selection.Copy Sheets("Sheet2").Select Rows("2:2").Select
[Code] .....
Is it possible to modify it to paste into a different workbook called c:filesDestination.xlsm, instead of the existing workbook (Source.xlsm)? The destination sheet name is the same (Sheet2). It's OK if both workbooks are open at the same time.
I have a hyperlink generated from a vlookup that is generated from the result of a combo box click, so the reference in the hyperlink cell will change to whatever sheet the vlookup dictates.
Then I have a macro assigned to a button ( Called 'Go' ) that when pressed clicks on the hyperlink and takes me to that corresponding sheet.
When I recorded the macro, it clicked on the hyperlink cell when it was hyperlinking to let's say Sheet 'April', but if I click on let's say September, in the combo box, then of course the hyperlink now links to the September sheet, but if I click the 'Go' button with the macro attached, it still takes me to 'April'.
surely, the macro simply follows the steps I recorded and therefore should now be clicking on the hyperlink that now says 'September'. Surely, the macro shouldn't REMEMBER that it originally clicked on 'April'.
I have a workbook with over 40, identically formated, sheets. Each sheet has 96 pages. One page for each roll of carpet. To hunt for the next blank page to use, is time consuming.
So:
On each sheet, Range B207:B303, I have IF formulas that will display the carpet ID number for each page, if one is present, or the cell remains blank. In Range C207:C303, I have Hyperlinks to the pages on the sheet.
I need a macro that will search the Range in column B for the first blank cell, then automatically use the Hyperlink next it in column C. Then I can assign the macro to a button, copy and past the button on all 40 sheets. With one click of the button, I will instantly be taken to the page availabel for data entry on that sheet.
I have a workbook open and my A column cells are filled with (example) Mike-1 in the first row Mike-2 in the second row and so on. Now I have another folder on the computer with Word documents that I want to hyperlink to. The corresponding Word file is named mike1. So I want Excel to go through column A and Hyperlink to the corresponding Word file.
