Section Of Code Modification

[ExcelRoy]

Hi Guys,

I have the following part of code

It counts rows after the word "Date" is found

the problem i have is that it counts some ugly text after the dates, which is what i dont need

is there a way to enter a blank line after the dates have been counted?

the code is

Set keywordCell = .Cells.Find(What:="Date")
        
        If Not keywordCell Is Nothing Then
        
            'Count the rows of Match Stats
            
            rows = 0
            Do While keywordCell.Offset(rows + 1, 0).Value <> ""
                rows = rows + 1
            Loop
            
            If rows > 0 Then
            
                'Copy the rows and 3 columns of Match Stats from web query sheet to Data sheet
                'using copy/paste special/values only
                            
                .Range(keywordCell.Offset(1, 0), keywordCell.Offset(rows, 2)).Copy
                dataSheet.Range(URLcell.Offset(0, 1).Value).PasteSpecial Paste:=xlPasteValues
                Application.CutCopyMode = False
            
            End If
            
        Else
            MsgBox "Unable to extract Match Stats for " & URLcell.Value & " because the data returned by the web query " & _
                "doesn't contain the word 'Date' which should mark the start of the Match Stats data"
        End If

Thanks

 

[Andrew Poulsom]

What do you mean by "it counts some ugly text" exactly?

 

[ExcelRoy]

Hi Andrew,

Maybe "Ugly" is the wrong word

The code (part of a bigger code) counts "Date","Match","Points" from a web page and copies it to another sheet but...

it also copies "Game Stats" and some other text at the bottom of the "Date"

ie

22/08/2009	Arsenal v Portsmouth	0
18/08/2009	Celtic v Arsenal	             8
15/08/2009	Everton v Arsenal	             0
Game Stats		Match Stats
2009/10 Value	£5m	Games Started (sub)
Total points	87	No. of Rated 7+
Ranking (position)	13	Star Man Awards
Ranking (overall)	120	Goals
No. of NotW +8	0	No. of NotW +2
Previous Dream Team Record Summary [2008/09]		
Game Stats		Match Stats
2008/09 Value	£5m	Games Started (sub)
Total points	139	No. of Rated 7+
Ranking (position)	3	Star Man Awards
Ranking (overall)	32	Goals
No. of NotW +8	0	No. of NotW +2