Launch Link In Order To Copy String From Site Back To Excel
Nov 17, 2013
I have a list of web address in column A. All of the web address belong to the same site and are different products at the store. I want to be able to some how launch the sites and have Excel copy the text string which follows the word "PRICE:" on the site back into Excel into the corresponding cell of column B.
I was asked to create a userform for the use of our whole team which would enable them to select a name from a dropdown list and then it would display their business contact details in the rest of the form.
I'm running Office 2010 and Windows XP server/enterprise edition (not quite sure which). After some research I've managed to use VBA code to open the userform while hiding the workbook, then when the close button is clicked it closes the user form and it's associated workbook using the code below.
Code: ' ThisWorkbook module Private Sub Workbook_Open() Application.Visible = False UserForm1.Show End Sub 'UserForm module Private Sub CommandButton1_Click() Unload UserForm1 ThisWorkbook.Close (False) End Sub
This works great when the excel file is accessed directly. However when the excel file is accessed via the link on my teams Sharepoint site it doesn't. When the Userform is closed the underlying workbook and data is then displayed which then has to be closed separately.
Scenario: I have a worksheet full of ~360 tasks. Tasks are broken down into phases, have owners, and have status'. I leverage a pivot table to easily sort my data by owner, or by status. When reviewing the pivot table with others we want to update the raw data. This entails changing worksheets and scrolling to the task in question.
I'm looking for an easier way to update the raw / original data.
Options I've tried to pursue but have come up empty: Option 1: Excel modification? Is there a setting in Excel 2007 that would allow me to change a value in my pivot table and have it propagate to the original data set (another Excel worksheet)? So far the answer seems to be "no". Is this possible?
Option 2: Hyperlink from Pivot Table to Raw data field. - I cannot create hyperlinks within PivotTable data cells. - I have used the "hyperlink()" function OUTSIDE of my pivot table, along w/ a "match()" on a key field in my pivot table to create hyperlinks back to my raw data... But this is prone to breaking. - Is there a way to enable hyperlinks from within a Pivot Table? I have seen other requests from individuals that had a pivot table with actual hyperlinks (e.g. [URL]...) and they could not 'activate' them.
Option 3: Tool Tip VBA Form w/ Link?
- If I can't create hyperlinks directly in the table, then how about a function so then when i click (mouse over?) a pivot table cell a form appears with a hyperlink back to the source data?
Option 2 and 3 Assume that there's an way to get at the underlying location of the raw data (e.g. "Pivot Table Worksheet!E10" comes from "RawData!C4". I've dug through some VBA documentation at Microsoft.com but came up empty. I know this link must exist behind the scenes - In Excel 2007 when you mouse-over a pivot table cell Excel displays: "Row - Phase - Owner - Status", which is directly out of the raw data table/worksheet. [[This was an incorrect assumption... When i looked at the pivot table tool-tip closer I realize it was just walking through my data :'( row.
What is the VBA Code to revel the source cell? If i can get at that data, (and hyperlinking can be turned on w/in the pivot table...) then I can easily write a script to walk through the pivot table and create links back to the raw data... Not a perfect solution - but it takes away the need to search through the source data for the row I want.
I am looking to create a macro that will create a new sheet when data is added on a summary sheet. Example.
1. Summary sheet called "Variations" contains columns that will contain the information needed for new sheet (Columns A to D)
2. When data is entered on "Variations" sheet: Column B, then macro automatically creates new sheet renamed to e.g. VO1 (Number used on "Variations" tab) and is a copy of "Master" tab.
3. Data entered in Column A to D on "Variations" tab is automatically entered onto new sheet created (e.g VO1). Shown is blue on attached file. Additional data is updated on "VO1" sheet and this then links back to "Variations" tab
I'm trying to build a hyperlink using text formulas in Excel but I get the following error message: "Unable to open [link]. The internet site reports that the item you requested could not be found. (HTTP/1.0 404)". The strange thing is that if I copy-paste the link in the web browser, the page opens normally (which proves the link is correct).
I am attempting to navigate to a webpage using IE. I have been successful at getting to the appropriate webpage.
However, I would like to open a link within the webpage in the browser in another window(Which is an image). Copy the image then paste it back into excel. I have been successful at opening the webpage using a Userform.
Code: Sub Anthro() Application.ScreenUpdating = False Set ie = CreateObject("InternetExplorer.Application") With ie .Visible = True
[Code] .......
The user input number for example:
If the user inputs the number 25423310 into the txtbox then it navigates to a certain webpage.
On this webpage and all other webpages where different #'s are used are very similar. The number (25423310) is always used to identify an image. However it has more characters. For example the image is always on line 30 of the HTML code. On this example the HTML code lists the image as:
The number used in the txtbox to naviagete to the URL Ex: 25423310) is always within line 30 of code in HTML. Is it possible to run a query or parse this line of code and direct ie to open this image in a new window then copy and paste it based on the criteria of the user input? Ex. 25423310?
Code: Sub PropInfo() Dim appIE As SHDocVw.InternetExplorer Set appIE = New SHDocVw.InternetExplorer Dim varTables, varTable
I want to know if it is possible to launch a blank notepad from an existing excel spreadsheet and then type relevant "history notes" into notepad and save.
I am creating a manual spreadsheet for the company I am working for which is being used for Maintenance Planning / Scheduling and creating of work orders. Once the work order has been raised and the job has been completed it then needs to be closed out on the spreadsheet and any relevant notes entered in. I am hoping to be able to have a link that opens notepad by the click of a button within the spreadsheet and it allows the user to record any notes against that work order and save. These notes can then viewed by future users.
How to pull a website link from the html code in "view source" of a webpage into my excel spreadsheet cell?
For instance, on this webpage (BBC News - Home), I would like to pull the news title and hyperlink of the news title into my excel, I am able to pull the title into my cells using "sht.Range("A"& RowCount)= ele.innertext". But is there an equivalent method to copy the weblink? I highlighted the part where i am stuck in red (below).
I am currently watching a youtube video explaining how to pull data from webpages into excel via VBA, and my code basically looks like this:
Sub test()
Dim eRow As Long Dim ele As Object Set sht = Sheets("Sheet1") RowCount =1 sht.Range("A"& RowCount)="Title" sht.Range("B"& RowCount)="Web link"
I'm looking to create a macro that launches a dialog box upon file launch. Based on the input, I want excel to only show the tab which corresponds to the dialog box entry.
For example, if it asks "What is your name?" on file launch and I respond "Alex"; i want the tab labeled "Alex" to only be shown for the user.
I have a some problem with connecting between VBA Excel and web site.
I wrote a macro to insert the data from excel but there is one problem with displaying the correct view.
I use this site to get the price of the bonds: [url]
it is the site of russian exchange
First of all I write the ISIN code, for example RU000A0E6X12, in the "Quote Search" field and then press Enter for getting the data. After it I can choose the History information or Online from the last field in the left margin. I want to chose "History" and after it the dates from and till are appearing automatically. The automatization of it is my task. And I have only one problem in the end.
Consider this procedure to execute a MS Word mailmerge from within Excel:
Code: Option Explicit Dim objword As Object Dim odoc As Object Dim odoc2 As Object Dim wdsendtonewdocument As Object Dim mypath As String
Sub merge()
[Code] ........
The application hangs on the line in red. The file name (worksheets("Frontpage").Range("B15")) exists. It hangs with periodic dialogues "Microsoft Office is waiting for another application to complete an OLE action."
I end up having to go into task manager to close the word application before I can regain Excel control again.
I have a list of terms to put together and what I have is a master list of 6 concatenate functions and I need to link them to all the different words in my list.
The first word in collumn A needs to be with the function in D1, the second word (A2) needs to be with D2, then A3 with D1, and A4 also with D1, while A5 with D6, etc. It looks something like this:
for your info...I have put numbers in the adjacent cell corresponding to which of the 6 concatenate functions need to go into the cell in collumn C
So in reality all I need is a function that would rearrange my list of 6 functions from Collumn D into collumn C based on the numbers 1-6 I have in collumn B
Workbook.txt
(attached is an example to better see what im talking about. Disregard that the concatenate functions are not working...it doesnt matter right now.)
I have a word docx embedded within my spreadsheet .
Both are on Office 2010 versions and I have named the embedded word doc
docx = CCPBlank (named range) sheet = Support Data
I want to open the word doc from within the spreadsheet from a user form I already have created for other module calls.
Any simple VBA code to open the embedded docx?
I have looked a previous posts and not sure they are suitable. I have embedded the docx as I want to ensure only that empty version is opened each time. It also means I only have to send one file (xlsm).
I'm trying to create a very simple order form. It's been a while since I've done this in Excel, and I couldn't find an answer when I searched. (I may be a lousy searcher, though.)
I want the user to enter a quantity in Column E of the "Common Items" worksheet, and have all the rows with quantities copied to the "Order" worksheet. (On the "Order" copy below, I just did a copy/paste to show the desired effect.)
I'm pretty sure this can be accomplished with an If/Then, but I'm lost! Optimally, they'd enter their quantities, click on the Order sheet and hit print.
In Excel 2007, Windows 7 Home Premium, I am trying to summarise multiple worksheets into one sheet, creating a list in one column in this summary sheet that includes the cell contents from the same cell from each sheet. For example, my first sheet is called KCD183 and I want to list the value from KCD183 Cell A2 in my Summary Cell A2, then show KCD184 Cell A2 in Summary Cell A3 (i.e. the next row down). So my Summary sheet will list all cell A2s from all my sheets, 1 after the other down column A and will continue to add these for any new sheets I add.
I realise that I could just export the spreadsheet to Access and report on it from there, but I don't have the software!
Automating Excel from Access, I'm attempting to generate a single sheet workbook and save to a Sharepoint site. This process works fine on my machine (XL2007, XP), but on a coworkers computer (XL2003, XP), the code throws a 1004 error on the save as line. However, the really odd thing is that stepping through the code doesn't throw an error on the coworkers machine.
Here's the sub being ran; the line it errors out on is the first branch in the .saveas block.
Private Sub PublishXLtoMOSS() Dim objXL As Excel.Application 'Object Dim wb As Excel.workbook 'Object Dim ws As Excel.Worksheet 'Object Dim rs As DAO.Recordset Dim i As Long
Name Address Phone # zip Danielle 4561 Danielle 9852 Danielle 22 Danielle 69 Joe 895 Joe 28 John 9821 John 1114 John 698
Say I did a search for Joe. I want to report back all the addresses in which he resided but there's no way to tell how many rows of data each person has. Joe has 2 rows, Danielle has 4 rows and John has three. How do I report back all the relevant rows?
I need to have a link to data in another file. The file will be in the same directory, however, the name of the file I need to link increments daily. I have a string being generated already with the name of the file I want to link to. I can easily add a cell reference to that string, but how do I use that string value in a link? Or - how do I use quick'n'easy VBA to snatch the required cell's data?
e.g. Required data is in the file "production 060723.xls", in sheet "Daily Production", in cell "E2". Current file has a string being generated in a cell: "\server1production dataproduction060723.xls"
The following day, the required data will be in a file called "production 060724.xls", same sheet, same cell. The current file's string data will also update to reflect the needed file. I know that similar questions have been asked here - but none that I saw in my search seemed quite what I need. Even if someone can direct me to the right thread, that would be great.
When building complex and long formulas in excel which can not be auto filled due to non progressive variables I tend to combine several cells containing parts of the formula using the ampersand (&) operator.
E.g. B2=[A1&A2&A3&A4] where: A1=[=] A2=[INDIRECT($A$1&"!"&"S] A3=[8] A4=[")]
The result will then look like this: =INDIRECT($A$1&"!"&"S8"), then I copy all the values created by this method (it could be several thousand) and past them into the appropriate worksheet using: past special > past values.
The problem is that in order for the text string to turn into an active formula I have to go into each individual cell (F2) and hit Enter. When I am working with thousand of cells this is not very feasible.
In Cell A1 i have a text string of "ABS9E8C2D" i want something is cell B1that will arrange the string in Alphabetical order for Letters, then increasing order for numbers "ABCDES289".
rearragning text on excel. I believe Macro will be needed to solve this problem so if anyone can help me out, it will be a big help. Thank you.
Example 1: I need to rearrange "trace Silt, cm SAND, some- f Gravel" into "cm SAND, some- f Gravel, trace Silt"
Example 2: I need to rearrange "some+ Silt, f SAND, trace- f Gravel" into "f SAND, some+ Silt, trace- f Gravel"
There are many different cases for this problem. So if there is a way for the computer to recognize the Capitalized word and move it to the front and rest should be arange in order listed below.
Order and+ and and- some+ some some- little+ little little- trace+ trace trace-
each term is seprarated by commas. For example f SAND, some+ Silt, trace- f Gravel each color represent one complete sentence. and the order for them should be capitalized funciton first, then the follow the order provided above.
I want to make a lookup on a string of words from one of my worksheets and I also whant to make a hyper link so that when I click on the lookup command I should pop to the other worksheet were my database is.
I have created a spreadsheet for my friend. As my friend is a little 'scared' of excel I created drop downlists to complete the spreadsheet i have also protected all the cells that have formula in them so that they can not be deleted.
the spreadsheet he opens is prefect, he then updates this spreadsheet and has done something wrong but doesn't realise, he then saves the spreadsheet, it is at this point he wants a back up copy of the perfect spreadsheet, that way if he goes back into the saved copy and realises that something is wrong he can go to the back up copy and start again. This spreadsheet is filled in once a week, that way if he has done something wrong and has to refer to the back up copy he only loses one weeks worth of work.
I did say that he could choose save as instead of just save and re-name the file but again he is worried that he will forget!
Can we create a back up file automatically? If yes, can some please tell me how to?
I have never used macros or anything so if you can do this, can I ask that you also explain to me how to do it.
All data is located within one book. I have two sheets with material codes in each sheet which include pricing (existing and current)
Sheet1 (has existing material codes plus existing pricing) Has about 1200 lines Sheet2 (has current material codes plus current pricing), has about 36000 lines
I need to cross check if the material code (taken from sheet1) are still available in sheet2, and if they are, copy the current price back to sheet1. The current price needs to be pasted back into sheet1 (next to the existing price). If the material code doesn't exist (for whatever reason, in sheet2), the program needs to move onto the next line and leave the current price for that material code blank. The program should finish once all the lines in sheet1 are completed. I have attached a sample of what I'm trying to do,
Where each (i.e., A1) represents a location. I have tried to use a coordinate system but this will not work for the back-to-back locations. (Assuming each location is 2 feet wide, For example A1 to C1 is 4 feet apart, not 2 feet (as Euclidean or rectilinear would calculate it as).
Would there be a way to incorporate an if statement for those locations that are back-to-back? As a rectilinear distance calculation would work as long as the locations are not part of the same "block".
Ultimately I am looking to have a matrix which contains all the distances between each location:
I have a udf that returns a string to the cell. The string is made up of multiple string "objects". What I am wondering is if I can set the font color of certain objects so that when the final string is built and returned, the font of those portions is set.
Ex. of simple idea (this is not actually my code, just a way to illustrate. I realize there is no point to this UDF):
VB:
Function StringReturn (Str1 As String, Str2 As String, Str3 As String) As String StringReturn = Str1 & Str2 & Str3 End Function
Now what if I wanted Str1 and Str3 to be blue, and Str2 to be red for example. So that when the UDF calculates it would return: Str1Str2Str3