If and go to

**asdzxc** · 05-19-2012, 04:47 AM

If H1 is empty, go to
With Worksheets("Sheet1").QueryTables.Add(Connection:= _
"URL;http://ichart.finance.yahoo.com/table.csv?s=" & _
Worksheets("Sheet1").Range("J1").Value & "&a=10&b=13&c=2011&d=06&e=6&f=2013&g=w&ignore=.xlsx" _
, Destination:=Worksheets("Sheet1").Range("$A$1"))
If not empty, go to
With Worksheets("Sheet1").QueryTables.Add(Connection:= _
"URL;http://ichart.finance.yahoo.com/table.csv?s=" & _
Worksheets("Sheet1").Range("J1").Value & "&a=10&b=13&c=2011&d=06&e=6&f=2013&g=m&ignore=.xlsx" _
, Destination:=Worksheets("Sheet1").Range("$A$1"))
Plse add code.

On Error Resume Next 
ThisWorkbook.Connections(1).Delete 
Err.Clear: On Error Goto 0 

With Worksheets("Sheet1").QueryTables.Add(Connection:= _ 
    "URL;http://ichart.finance.yahoo.com/table.csv?s=" & _ 
    Worksheets("Sheet1").Range("J1").Value & "&a=10&b=13&c=2011&d=06&e=6&f=2013&g=w&ignore=.xlsx" _ 
    , Destination:=Worksheets("Sheet1").Range("$A$1")) 

With Worksheets("Sheet1").QueryTables.Add(Connection:= _ 
    "URL;http://ichart.finance.yahoo.com/table.csv?s=" & _ 
    Worksheets("Sheet1").Range("J1").Value & "&a=10&b=13&c=2011&d=06&e=6&f=2013&g=m&ignore=.xlsx" _ 
    , Destination:=Worksheets("Sheet1").Range("$A$1"))

**Bob Phillips** · 05-19-2012, 05:07 AM

On Error Resume Next 
ThisWorkbook.Connections(1).Delete 
Err.Clear: On Error Goto 0 

If Range("H1").Value = "" Then

    With Worksheets("Sheet1").QueryTables.Add(Connection:= _ 
        "URL;http://ichart.finance.yahoo.com/table.csv?s=" & _ 
        Worksheets("Sheet1").Range("J1").Value & "&a=10&b=13&c=2011&d=06&e=6&f=2013&g=w&ignore=.xlsx" _ 
        , Destination:=Worksheets("Sheet1").Range("$A$1")) 
else

    With Worksheets("Sheet1").QueryTables.Add(Connection:= _ 
        "URL;http://ichart.finance.yahoo.com/table.csv?s=" & _ 
        Worksheets("Sheet1").Range("J1").Value & "&a=10&b=13&c=2011&d=06&e=6&f=2013&g=m&ignore=.xlsx" _ 
        , Destination:=Worksheets("Sheet1").Range("$A$1"))
End If

**asdzxc** · 05-19-2012, 05:58 AM

Thank you for your code.
In J1, put ^dji
at .Name = _
compile error:
Invalid or unqualified reference

If Range("H1").Value = "" Then

With Worksheets("Sheet1").QueryTables.Add(Connection:= _
"URL;http://ichart.finance.yahoo.com/table.csv?s=" & _
Worksheets("Sheet1").Range("J1").Value & "&a=10&b=13&c=2011&d=06&e=6&f=2013&g=w&ignore=.xlsx" _
, Destination:=Worksheets("Sheet1").Range("$A$1"))
else

With Worksheets("Sheet1").QueryTables.Add(Connection:= _
"URL;http://ichart.finance.yahoo.com/table.csv?s=" & _
Worksheets("Sheet1").Range("J1").Value & "&a=10&b=13&c=2011&d=06&e=6&f=2013&g=m&ignore=.xlsx" _
, Destination:=Worksheets("Sheet1").Range("$A$1"))
End If[/code][/QUOTE]

**Bob Phillips** · 05-19-2012, 11:26 AM

Didn't add End With to your codes

On Error Resume Next 
ThisWorkbook.Connections(1).Delete 
Err.Clear: On Error Goto 0 

If Range("H1").Value = "" Then

    With Worksheets("Sheet1").QueryTables.Add(Connection:= _ 
        "URL;http://ichart.finance.yahoo.com/table.csv?s=" & _ 
        Worksheets("Sheet1").Range("J1").Value & "&a=10&b=13&c=2011&d=06&e=6&f=2013&g=w&ignore=.xlsx" _ 
        , Destination:=Worksheets("Sheet1").Range("$A$1")) 
    End With
Else

    With Worksheets("Sheet1").QueryTables.Add(Connection:= _ 
        "URL;http://ichart.finance.yahoo.com/table.csv?s=" & _ 
        Worksheets("Sheet1").Range("J1").Value & "&a=10&b=13&c=2011&d=06&e=6&f=2013&g=m&ignore=.xlsx" _ 
        , Destination:=Worksheets("Sheet1").Range("$A$1"))
    End With
End If

**asdzxc** · 05-19-2012, 10:17 PM

Thank you for your codes.
compile error at (.Name = _):
Invalid or ungualified reference

On Error Resume Next 
ThisWorkbook.Connections(1).Delete 
Err.Clear: On Error Goto 0 

If Range("H1").Value = "" Then

    With Worksheets("Sheet1").QueryTables.Add(Connection:= _ 
        "URL;http://ichart.finance.yahoo.com/table.csv?s=" & _ 
        Worksheets("Sheet1").Range("J1").Value & "&a=10&b=13&c=2011&d=06&e=6&f=2013&g=w&ignore=.xlsx" _ 
        , Destination:=Worksheets("Sheet1").Range("$A$1")) 
    End With
Else

    With Worksheets("Sheet1").QueryTables.Add(Connection:= _ 
        "URL;http://ichart.finance.yahoo.com/table.csv?s=" & _ 
        Worksheets("Sheet1").Range("J1").Value & "&a=10&b=13&c=2011&d=06&e=6&f=2013&g=m&ignore=.xlsx" _ 
        , Destination:=Worksheets("Sheet1").Range("$A$1"))
    End With
End If

[/QUOTE]
Thank you for your codes.
compile error:
Invalid or ungualified reference

On Error Resume Next
ThisWorkbook.Connections(1).Delete
Err.Clear: On Error GoTo 0
If Range("H1").Value = "" Then

    With Worksheets("Sheet1").QueryTables.Add(Connection:= _
        "URL;http://ichart.finance.yahoo.com/table.csv?s=" & _
        Worksheets("Sheet1").Range("J1").Value & "&a=10&b=13&c=2011&d=06&e=6&f=2013&g=w&ignore=.xlsx" _
        , Destination:=Worksheets("Sheet1").Range("$A$1"))
End With
Else

    With Worksheets("Sheet1").QueryTables.Add(Connection:= _
        "URL;http://ichart.finance.yahoo.com/table.csv?s=" & _
        Worksheets("Sheet1").Range("J1").Value & "&a=10&b=13&c=2010&d=06&e=6&f=2013&g=m&ignore=.xlsx" _
        , Destination:=Worksheets("Sheet1").Range("$A$1"))
End With
End If
     .Name = _
    "MyData"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = 0
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .WebSelectionType = xlSpecifiedTables
    .WebFormatting = xlWebFormattingNone
    .WebTables = "4"
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .Refresh BackgroundQuery:=False

**Bob Phillips** · 05-20-2012, 09:15 AM

So you are having a problem with code that wasn't in the code that I gave you? Therefor you must have added, you must have had a reason to add it, you must have got it from somewhere; so perhaps you could bother yourself to tell us what you are up and not assume that we can read your mind.