Is it possible to have a cell/field that would check the current weather and
put the temperature in that cell?

Use this macro I just recorded to establish an external query to
weather.com. Then change the zip from 78734 and simply refresh as desired.


Sub Macro6()
'
' Macro6 Macro
'

'
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.weather.com/weather/local/78734?lswe=78734&lwsa=WeatherLocalUndeclared&from= searchbox_localwx"""
_
, Destination:=Range("$A$1"))
.Name = _
"78734?lswe=78734&lwsa=WeatherLocalUndeclared&from =searchbox_localwx""_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "15"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Damian" wrote in message
...
Is it possible to have a cell/field that would check the current weather
and
put the temperature in that cell?

Great Thank You. It is working great.

One more thing.
This is great if you want the tempeture of right now, BUT what if you want
the average temperature for the day. How would you get that?


"Don Guillett" wrote:

Use this macro I just recorded to establish an external query to
weather.com. Then change the zip from 78734 and simply refresh as desired.


Sub Macro6()
'
' Macro6 Macro
'

'
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.weather.com/weather/local/78734?lswe=78734&lwsa=WeatherLocalUndeclared&from= searchbox_localwx"""
_
, Destination:=Range("$A$1"))
.Name = _
"78734?lswe=78734&lwsa=WeatherLocalUndeclared&from =searchbox_localwx""_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "15"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Damian" wrote in message
...
Is it possible to have a cell/field that would check the current weather
and
put the temperature in that cell?

Yesterday
http://www.weather.com/weather/pastw...nav_undeclared

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Damian" wrote in message
...
Great Thank You. It is working great.

One more thing.
This is great if you want the tempeture of right now, BUT what if you want
the average temperature for the day. How would you get that?


"Don Guillett" wrote:

Use this macro I just recorded to establish an external query to
weather.com. Then change the zip from 78734 and simply refresh as
desired.


Sub Macro6()
'
' Macro6 Macro
'

'
With ActiveSheet.QueryTables.Add(Connection:= _

"URL;http://www.weather.com/weather/local/78734?lswe=78734&lwsa=WeatherLocalUndeclared&from= searchbox_localwx"""
_
, Destination:=Range("$A$1"))
.Name = _

"78734?lswe=78734&lwsa=WeatherLocalUndeclared&from =searchbox_localwx""_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "15"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Damian" wrote in message
...
Is it possible to have a cell/field that would check the current
weather
and
put the temperature in that cell?

is there a way to get the average temp. for a sertain day the same day?

so like tuesday at 8am i want to get a temperature for like the afternoon or
the average for the day. Same if I enter the date at 6 pm I want the average
for this day?

How would you incorporate the link to your code?

Thank You

"Don Guillett" wrote:

Yesterday
http://www.weather.com/weather/pastw...nav_undeclared

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Damian" wrote in message
...
Great Thank You. It is working great.

One more thing.
This is great if you want the tempeture of right now, BUT what if you want
the average temperature for the day. How would you get that?


"Don Guillett" wrote:

Use this macro I just recorded to establish an external query to
weather.com. Then change the zip from 78734 and simply refresh as
desired.


Sub Macro6()
'
' Macro6 Macro
'

'
With ActiveSheet.QueryTables.Add(Connection:= _

"URL;http://www.weather.com/weather/local/78734?lswe=78734&lwsa=WeatherLocalUndeclared&from= searchbox_localwx"""
_
, Destination:=Range("$A$1"))
.Name = _

"78734?lswe=78734&lwsa=WeatherLocalUndeclared&from =searchbox_localwx""_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "15"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Damian" wrote in message
...
Is it possible to have a cell/field that would check the current
weather
and
put the temperature in that cell?

If YOU find a web site (google for average temp) that does that you can
incorporate into the code. Contact me privately at my address below if you
desire custom work.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Damian" wrote in message
...
is there a way to get the average temp. for a sertain day the same day?

so like tuesday at 8am i want to get a temperature for like the afternoon
or
the average for the day. Same if I enter the date at 6 pm I want the
average
for this day?

How would you incorporate the link to your code?

Thank You

"Don Guillett" wrote:

Yesterday
http://www.weather.com/weather/pastw...nav_undeclared

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Damian" wrote in message
...
Great Thank You. It is working great.

One more thing.
This is great if you want the tempeture of right now, BUT what if you
want
the average temperature for the day. How would you get that?


"Don Guillett" wrote:

Use this macro I just recorded to establish an external query to
weather.com. Then change the zip from 78734 and simply refresh as
desired.


Sub Macro6()
'
' Macro6 Macro
'

'
With ActiveSheet.QueryTables.Add(Connection:= _

"URL;http://www.weather.com/weather/local/78734?lswe=78734&lwsa=WeatherLocalUndeclared&from= searchbox_localwx"""
_
, Destination:=Range("$A$1"))
.Name = _

"78734?lswe=78734&lwsa=WeatherLocalUndeclared&from =searchbox_localwx""_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "15"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Damian" wrote in message
...
Is it possible to have a cell/field that would check the current
weather
and
put the temperature in that cell?

Sent him one using google weather.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Don Guillett" wrote in message
...
If YOU find a web site (google for average temp) that does that you can
incorporate into the code. Contact me privately at my address below if you
desire custom work.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Damian" wrote in message
...
is there a way to get the average temp. for a sertain day the same day?

so like tuesday at 8am i want to get a temperature for like the afternoon
or
the average for the day. Same if I enter the date at 6 pm I want the
average
for this day?

How would you incorporate the link to your code?

Thank You

"Don Guillett" wrote:

Yesterday
http://www.weather.com/weather/pastw...nav_undeclared

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Damian" wrote in message
...
Great Thank You. It is working great.

One more thing.
This is great if you want the tempeture of right now, BUT what if you
want
the average temperature for the day. How would you get that?


"Don Guillett" wrote:

Use this macro I just recorded to establish an external query to
weather.com. Then change the zip from 78734 and simply refresh as
desired.


Sub Macro6()
'
' Macro6 Macro
'

'
With ActiveSheet.QueryTables.Add(Connection:= _

"URL;http://www.weather.com/weather/local/78734?lswe=78734&lwsa=WeatherLocalUndeclared&from= searchbox_localwx"""
_
, Destination:=Range("$A$1"))
.Name = _

"78734?lswe=78734&lwsa=WeatherLocalUndeclared&from =searchbox_localwx""_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "15"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Damian" wrote in message
...
Is it possible to have a cell/field that would check the current
weather
and
put the temperature in that cell?