what are you expecting from this sheet ??
On Friday, April 11, 2014 6:18:15 PM UTC+5:30, satya prakash wrote:
>
>
>
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexc
Hello Vinay,
I can't access the website... its internal site.. which i can't access to
source of the page.
But your code will go like this or there another option... you can
paste the source of page for each step.
like if go to log on screen what's the source of the page(HTML code) paste
i
Sub ReptRows()
Dim I As Integer, X As Integer
I = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
For X = I To 2 Step -1
ActiveSheet.Cells(X + 1, "A").Select
ActiveCell.EntireRow.Resize(50).Insert
ActiveCell.Offset(-1, 0).EntireRow.Resize(51).Select
Selection.FillDown
Next X
End Su
wrote:
>
> Dear Muddan
>
> Thanks alot.its perfect.
> Can we extract data with heading name & as per my selection cell point
> where I select cell then data extract from that cell.
>
> Regards
> Amar
>
> On Wed, Apr 9, 2014 at 8:17 AM, Muddan Madhu
> &g
Try this
Option Explicit
Sub GetDataFromWeb()
Dim STR As String
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
STR = "http://www.investing.com/indices/major-indices";
Dim I As Integer, X As Integer
IE.Visible = True
IE.Navigate STR
While (IE.Busy Or IE.ReadyState <> 4)
