Replies

Hans,

You are right! I don’t like the result. Is there any way to have it shows like a table with rows and column or populate into a table format?

Thanks

Hi Hans,

Thanks, it works.

There appear an error “Type Mismatch” if I change to the following to work for a few row and columns of data. Can’t figure where
did I went wrong.

strBody = obXLWB.ActiveSheet.Range(“A1:F5”).Value

Thanks,

Hi Hans,

Happy New Year to you.

I wanna run this from Outlook.

Thanks in advance

cheers,

Jan,
Thanks for the info. I know that there are some programs out there, but I want to learn by building this myself. Using the VBA code on your web page, How does one locate the connection string to connect, say to the following :
Sub WebQ()
Dim lRange As Long
Dim l As Long
Dim sWord As String
lRangeCount = Cells(Rows.Count, “A”).End(xlUp).Row
Range(“A1”).Select
sWord = ActiveCell.Value
For l = 0 To lRange
ActiveCell.Offset(1, 0).Select
If sWord = “” Then Exit For
Dim X As ActiveSheet.QueryTables
Dim strURL As String
Dim strResults As String
Set oX = X.Add(“URL;http://www.euronext.com/WHAT GOES IN HERE……/

I am stuck at : lRangeCount = Cells(Rows.Count, “A”).End(xlUp).Row, this supposed th loop thru column A
and also at the URL , the url which I copied shows :
http://www.euronext.com/pricesearch/0,5375,1732_
6204224_____89221,00.html?requestComesFromSearchBo xParameter=
true&instrumentType=5&instrumentSubType=&equitiesC hoice=4&mep=
89221&belongsToList=market_14&bondType=503&issuer= &couponType=
&tradingType=&NAME_FIELD1=&MIN_FIELD1=&MAX_FIELD1= &NAME_FIELD2=
&MIN_FIELD2=&MAX_FIELD2=

I am lost as to what to look for. . Appreciate your assistance in this.

Thanks in advance.

cheers, francis

Thanks for your response.

cheers, francis

Hi Hans and Jan,
Thank you for the pointer, but no response from the web. I wanna use Excel to access the web page and pull
the announcements portion into Excel. The program run like this:

I have the isin nos or company names in the column A
Once the data is downloaded, Excel checks to see if it says No
announcements. If there is an announcements, copy it to a sheet under
the company’s name.
Then runs the query again with A2 and so on….

If you have a better idea, I would like to hear from you. My main aim
is to track these companies announcements on dividend, rights issues,
tender offers, bonus, meetings, mergers and earnings.

It is important that Excel can automatically pass the identifiers /
company name’s to the web query and pull the relevant data, in this case Announcements.

thanks.

cheers, francis

Hi Hans,

I will need to visit several web pages for the information and each company will have its table…..

The the procedure is to go to the sites. Select the menu companies, Then search by
the identifier, ISIN, to get the announcement items regarding a company and then
download it to excel.

For example, if I need to extract the announcements from this url : http://www.investegate.co.uk/
I have attached a sample list of ISINs for the London Stock Exxhange.

Appreciate your assistance.

cheers, francis

Hi Legare,
Thanks, its does what I want. Is there a way to stamp the date in col F automatically by excel after. let say sending a mail?

Apprecaite you assistance or any work-around, Thanks

cheers, francis

In cell C1 insert this formula : =DATEDIF(A1,B1,”d”) which will give you the numbers of day left.
change “d” to “m” will give you the numbers of months left.

Hope this help.

cheers, francis

Hi Hans,
Thank you for your prompt response. A command button to get all the “no” and with a marked stated that a final reminder have been send to the user on the date 3 days prior to the deadline will be idea.

cheer, francis

Thank Jan,

My company use Lotus Notes, agree with you its sound like a whole application, that’s because I have no idea of where to start and need some suggestions from the forum or someone might have seen or done this before. Any pointers are much appreciate.

cheers, francis

Hi Hans,

I have figured it out how the users can enter data into other cells and yet have the formulas hidden and protected.
This forum never fail me from the first time I posted since last year till today. If you have a better idea of what I am trying to do, pls inform me.

I am re-learning all these again after a long haul.

cheers, francis

Hans and Steve

This is excellent! but if I want to add a new heading “Charges” in column H right after “Contact” and this column’s data are variable which means the user need to enter it manually into the cell. However, using the protection sheet, users are unable to enter the data.
Can I have it that the column A ‘s Id data is fixed and match for column B to G with the given data in Holding and Account and the other columns from H onward be editable?

btw, even with the missing FALSE, it does match exactly. Does this means that there is no need the word False?

cheers, francis

Hi Hans,

Thanks, the result is basically what I am want, but can I protect the formula from accidentally erase or better still hide and protect the formula. Another thing is how can I have the #N/A not shows if there aren’t any data.

btw, notice that some formula didn’t use the False and some do, why is it so.?

cheers, francis

Hi Hans

What I means is that when I enter an id in the Report, Excel will find the matching data of the other columns namely; locname, secname, hldg, account, RM and contact, thus showing them in the Report’s relevent headings. These ids are unqiue. I have a feeling I can use the function Match or Index and Match but aren’t very sure how to Or is it Vlookup, getting confuse with some of these functions.

cheers, francis