Posts by Klowak

I need to loop through column A and find all rows that contain a date and copy/paste the rows into the next blank line of a worksheet called "Yearly Trades".

I have been spinning tires on this for awhile. Any help would be appreciated.

This code was working fine this morning but now it does not work. It used to pull data from a website from all the years of recorded data into a sheet. Now it stopped working. There seems to be no problem with the code but still no luck. No idea why this happned out of no where.

Any help would be appreciated.

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://www.treasury.gov/resou…xtView.aspx?data=yieldAll" _
, Destination:=Range("$A$1"))
.Name = "TextView.aspx?data=yieldAll"
.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 = "69"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With

I need to sum column 2 based off of a given date. My data table is huge and I need to sum every individual months data over past years to display on another sheet.

Given Date (1/20/2009, 2/28/2009, etc.)

[TABLE="width: 112"]

[tr]

[TD="align: right"]1/2/2009[/TD]
[TD="align: right"]0.04[/TD]

[/tr]

[tr]

[TD="align: right"]1/5/2009[/TD]
[TD="align: right"]0.05[/TD]

[/tr]

[tr]

[TD="align: right"]1/6/2009[/TD]
[TD="align: right"]0.05
[/TD]

[/tr]

[/TABLE]
[TABLE="width: 112"]

[tr]

[TD="align: right"]2/2/2009[/TD]
[TD="align: right"]0.19[/TD]

[/tr]

[tr]

[TD="align: right"]2/3/2009[/TD]
[TD="align: right"]0.28[/TD]

[/tr]

[tr]

[TD="align: right"]2/4/2009[/TD]
[TD="align: right"]0.26
[/TD]

[/tr]

[/TABLE]

Any help would be greatly appreciated. Thanks!