I have copied a webpage into excel It contains URL javascript link.
a) I wonder if I can copy this link out without keystroking each row.
b) When I point at the link, a few numbers come out. I want to extract these number out.
I am thinking of creating a macro so that it can be performed automatically because I have more than 300 rows.
I have a list of Hyperlinks in one column which have always a display name like:
Email
Homepage
Email
Homepage
etc.
Behind each Email or Homepage a Hyperlink is hidden. But for every Email address in my file the "text to display" is Email. find a macro which deletes all display names and shows me the hyperlink like this:
Peter@xyz.de
www.google.de
Carl.True@hotmail.com
www.msn.de
I'm creating a database that contains a columns of hyperlinks and background color.
I've created code on Excel 2010 with advanced filters to copy selected rows to another worksheet. The extract works fine and those cells with hyperlinks and various color codes from the original database "appear" to have been extracted correctly.
However, a closer look shows the hyperlinks on the target worksheet are just blue underlined texts...with the links no longer working. Is there a way for me to correct this?
I am now trying to get the Index worksheet to extract data from the sheets that it has indexed, for example, it returns the sheet name, but i want it also to return the value that is contained in C2 and C3. Is this possible? I have attached the code which i am using below for ease of reference.
Private Sub Worksheet_Activate()
Dim wSheet As Worksheet
Dim l As Long
l = 1
With Me
.Columns(1).ClearContents
.Cells(1, 1) = "INDEX"
.Cells(1, 1).Name = "Index"
End With
For Each wSheet In Worksheets
If wSheet.Name <> Me.Name Then
l = l + 1
With wSheet
.Range("A1").Name = "Start" & wSheet.Index...................................
I use the following piece of code to Hide/Unhide columns as required by a specific worksheet.
View 4 Replies View RelatedI have a great bit of code for a spreadsheet I'm working on by a board regular called Norie;
The code is;
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Name "ThankYou" Then
Worksheets("ThankYou").Visible = xlSheetVisible
Application.Goto Worksheets("ThankYou").Range("A1"), True
Cancel = True
UserForm1.Show
[code]....
When I open the workbook it shows for about 1 second another sheet in the workbook rather than just instantly showing the "START" tab.
Is there any way to get over this to make this code 100% perfect?
I just really would love upon opening this workbook for the sheet that 1st comes into view to be the START SCREEN TAB, without any flash preview of another sheet.
I'm working with text boxes in Excel that have hyperlinks attached to defined names on a worksheet. Basically just to navigate around a large sheet.
They work fine, but when the mouse is hovered over the text box it automatically displays the address of the defined name, which looks messy and I want to get rid of it.
I have tried inserting a single space in the screen tip box, but that displays a small rectangular box. I have also tried "" hoping nullstring maybe interpreted as not to display, but it instead displays the speech marks.
Has anybody done this before? I've seen it done, but I have no idea how the model creator did it.
I am trying to create a macro that checks and displays the screen resolution for both the Main monitor and the secondary monitor.
Currently I have this code that displays the resolution on the main screen only:
Declare PtrSafe Function GetSystemMetrics32 Lib "User32" _
Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
Sub ScreenRes()
Dim lResWidth As Long
Dim lResHeight As Long
Dim sRes As String
lResWidth = GetSystemMetrics32(0)
lResHeight = GetSystemMetrics32(1)
sRes = lResWidth & "x" & lResHeight
MsgBox sRes
End Sub
However I want to then display another message with the secondary display's resolution (or on the same message box).
I have a splash screen I want to display while a macro runs. I've created all the necessary code based on information from this site but have a question about where to actually put the code as all the example I've seen are based on workbook open events.
I tried placing my code
UserForm1.Show
with in the macro I waned the splash screen to be displayed during but that doesn't work. Well, it does, but not as I intended. The splash screen pops up for the specified duration as part of the macro stopping the macro, then closes and the rest of the macro finishes running.
Do i need to call the splash screen from a certain point in the macro I wish it to be displayed during? I dont want the macro to stop running while the splash screen is showing.
What is the syntax for centering in the screen whatever cell a value has been changed in or needs the users attention?
View 9 Replies View RelatedI have place a camera-picture of a table on the right side of a chart. On the screen it looks great! (See below - with some redaction)
Problem Example.png
.... but when I print it the table expands off of the side of the chart. Scale is 100%, zoom is 100%, Excel 2010 (See below - with some redaction). Whether or not I have a print area does not seem to make a different in the problem. Also, it appears that this happens with any shape I put in that place, it's not specific to the camera tool.
Problem Example_Print Preview.png
I have an excel file with a large amount of employee data in it and want to create a search facility that will run on variable search functions and display the information on the screen
I want to be able to enter variable search functions as follows:
Employee Number; shows all information on employee
Division: shows all employees in division (possible from a list of all divisions)
Appraisal Eligibility : Applicable shows all the applicable employees
Job Role: shows all the employees with the same job role (possibly from a drop-list of all roles)
I know its easier in Access, but all records in Excel as a legacy and don't have time to create an access database currently.
I am trying to display a splash screen which fades in and then fades out and closes itself leaving the ap showing. I have utilized code that I found wih permission to use but I'm still doing something wrong.
Option Explicit
'// This Userform code has everything you need to make a captionless userform
'// Fade In & Out
'// Transparency
Private Declare Function SetLayeredWindowAttributes _
Lib "user32" ( _
ByVal hWnd As Long, _
ByVal crKey As Long, _
ByVal bAlpha As Byte, _
ByVal dwFlags As Long) _
As Long
'// Title Bar
Private Declare Function GetWindowRect _
Lib "user32" ( _ ..............................
I have 2 forms. Form1 and Form2. I load Form1 to display. A button on Form1 calls Form2 to display. After I hit Cancel-Unload on Form2 it doesn't dissapear. How do I get rid of the residual image of pesky Form2 after I unload it and only display Form1 WITHOUT having to reload Form1 after Form1 calls Form2
In English
Form1 Displays
Form1 call Form2 to display
Form2 is unloaded by hitting a button on Form2
Form2 is unloaded, however, it's image still displays!!!
Need some way to force screen to refresh without having to unload Form1!
For example, a cell on the screen is blank. When the page is printed, the "blank cell" has printed text.
I checked "format cells" and it shows word wrap, merge cells, and left to right.
I was told to "un-merge" the cells. I did that and I still have the problem.
The color on all the cells is OK at a blue shade. When I look at print preview the cells are blank, but when the sheet is printed, the text shows.
Also, it looks like there are 2-3 cells inside the main cell.
I hope I have explained this properly, it is not easy to use the correct language to describe since I am not very good at using Excel.
I would like to extract from a massive list of names, all occurrences of one name and display the data on a new sheet.
For example;
Name Date Location
James 23/04 edinburgh
Jimmy 28/04 london
David 03/05 Belfast
Sarah 08/07 Glasgow
David 12/09 Birmingham
James 13/01 Manchester
So the output on the new sheet would be;
Name Date Location
James 23/04 edinburgh
James 13/01 Machester
I basically want to find where James has been and on which dates without having to scroll through 1000's of names.
I have a worksheet which is working nicely, but I want to extract a couple of the most important values and display them in the whitespace on the right of the table. Because of their importance I would like to do so in a larger font than is used in the rest of the workbook, but without increasing Row height to accomodate it. Essentially I'd like to do a center across selection, but vertically not horizontally but can't find a way to achieve this.
View 1 Replies View RelatedI 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'm just looking to prevent users from using the print screen or the alt print screen buttons on the keyboard. I have this script that works if I use "39" (Right Arrow)but wont work if I use "42" (Print Screen Button).
View 5 Replies View RelatedI have a set of task descriptions that I am attempting to trend on. Some of these (Column B) have the customer's name added to the description; others do not. I need to be able to make a list of task names (ColumnA), removing the name from the text string.
The formula I am using is [=LEFT(B3,FIND("for",B3)-2)].
The problem I am having is when the description does not contain the "for" built into the formula, I get "VALUE" error. What adjustment can I make to the formula to pull over the Description if the "for" does not appear in the text string?
An original text string entry appearing in an Excel cell would be:
"N7C Neuroprotective J5Z Antiviral, other M2Z Antiarthritic, other J5A Antiviral, anti-HIV"
I need to extract N7C, J5Z, M2Z and J5A from this string and list these alphanumeric values in separate cells adjacent to the original text string. The challenge is that these alphanumeric references may appear in different positions within the original string with no fixed value e.g. a "," separating them. The alphanumeric references may also be 3 or 4 characters in length and there may be different numbers of alphanumeric references in the original string.
Another example would be (very different from the first):
"T2Z Recombinant, other K5B Radio-chemoprotective J3Z Antibacterial, other D3A Vulnerary A10C Symptomatic antidiabetic K6Z Anticancer, other R8A Antiasthma B6A Septic shock treatment I1Z Immunostimulant, other S1Z Ophthalmological R8B Antiallergic, non-asthma M1A1 Anti-inflammatory"
You can see that in this further example "A10C" & "M1A1" are 4 character alphanumeric strings wheras the others feature 3 characters.
I am trying to auto-populate text in cells in area A, based on data I enter into other cells in area B. I want the area A cells to be for display only, as all editing will be done in area B. The problem is: how do I do this such that the text I write does not get cut off if is longer than the column width? See the attached document for a clear example and description of what I am trying to do...
Excel Q.xlsx
I want to know how to display part of a cells text value, inside another cell.
Suppose in cell A1 i have "20-Jun-14"
How would I get cell B2 to display just "Jun"?
I am trying to extract numbers after a specific text in a text string, for eg :abc SN 12345 xyzedf SN No. 456 mnoAs per above, i want to extract any numbers afters "SN". the numbers can be vary in digits i.e. it can be 3 digit numbers or 4 or 6. Also, at times there is some other text in between (like SN No.) numbers and search word (i.e. SN)Any formula to get result as "12345" and "456".
View 5 Replies View RelatedI had VBA run a third-party program ("HYD") using data listed in my spreadsheet. HYD produces a textfile and I want to extract a number from that log (line 58, columns 6-10 to be exact).
I started with
Open "C:TempHYDLOG.TXT" For Input As #1
but I don't know how to have it skip down to line 58 or which function to use to extract the number I want. I've read through tons of help files and forums but none of them treat anything as simple as scrolling down to specific lines.
The entire subroutine up to that point is as follows: ....
I have a column of locations where all the locations start with 'SHIP TO - ' followed my the actual location which can be of varying lengths. How can I display everything after the 'SHIP TO - ' in an adjacent column. My instinct is to use a RIGHT Function, but I don't know how to get that to only display the variable length text after the 'SHIP TO - ', e.g. in another column I want this
SHIP TO - ABC COMPANY
SHIP TO - A VERY LONG LOCATION
SHIP TO - HERE
to show
ABC COMPANY
A VERY LONG LOCATION
HERE
There has to be a smarter way to do the formula in A3?
Code:
-----------------------------------------------------A------------------------------------------------------
1 West @ Industry - 331.3421
2 =LEFT(A1,FIND("@",A1)-1)
3 =LEFT(MID(A1,LEN(LEFT(A1,FIND("@",A1)+2)),LEN(A1)),FIND("-",MID(A1,LEN(LEFT(A1,FIND("@",A1)+2)),LEN(A1)))-2)
4 =MID(A1,FIND("-",A1)+2,LEN(A1))
Results
Code:
------------A-------------
1 West @ Industry - 331.3421
2 West
3 Industry
4 331.3421
I trying to extract the group, sqd, office1 and office2 from a symbol. Each is seperated by "/".
I can get the Group pretty easy but after that its been giving me trouble.
I know there is a formula for the following but I cant remember which one. I have a text string with words seperated by a "". Which formula should I use to display the words from the string in a cell?
View 9 Replies View RelatedI have a worksheet that has 20 quotes in cells A1:A20. Is it possible to have a userform display a different quote in a text box each time the form is activated?
View 5 Replies View Related