Approaching 2 million posts! When?

[sanrv1f]

Sankar, how did you find this information. This thread has in part inspired me to pursue something in my research. I would be very interested in looking at the user statistics of the boards.
As one of the issues of end-user development, as I see it, is access to timely help, exactly when you need it. And at least MR Excel seems to be always "on". I may be biased but to me on-line sources and especially forums seem to be the way to go.

I used web query in a sheet to list every 100th post with its time of posting, then I extracted the time to another sheet and refresh the query to get the next 100th post,

here is the macro

Sub aaa()
Dim i As Long, url1 As String, tbl As String
Application.ScreenUpdating = False

For i = 1989100 To 1997000 Step 100
url1 = "URL;http://www.mrexcel.com/forum/showthread.php?p=" & i
tbl = """post" & i & """"
    With ActiveSheet.QueryTables.Add(url1, Sheets("Sheet1").Range("A1"))
        .Name = "showthread.php?p=1963685#post1963685"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = tbl
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
Sheets("Sheet1").Range("Mr_xlii") = i
Sheets("Sheet1").Range("Mr_xl").Copy
ThisWorkbook.Worksheets("Sheet2").Range("A" & ThisWorkbook.Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row + 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Next i
Application.ScreenUpdating = True
End Sub

 

[Krishnakumar]

...removed

 

[sanrv1f]

Its 19,99,496 @ 19th Jul 2009 22:41 IST,

504 posts more, and 16 hrs 19 mins left,

 

[sanrv1f]

Its 19,99,917 @ 20th Jul 09, 15:25 hrs

already, past 25 mins my time,

only 83 more,

come on people, post fast

 

[Krishnakumar]

What about this post?

http://www.mrexcel.com/forum/showpost.php?p=2000000

 

[sanrv1f]

Looks like my day is almost over and from the main page we still have a little over 3K to go.

BUT if we look at actual post counts in the web address, it happened in this post at:

http://www.mrexcel.com/forum/showpos...00&postcount=7

5:45 PM EST

Which mine was 7:44 AM EST so I was only 10 hours and 1 minute off.

Would that not include deleted spam, duplicated posts etc?

What about this post?

http://www.mrexcel.com/forum/showpost.php?p=2000000

that inclueds the deleted/locked posts also, the actual count is the one on the main page

 

[Krishnakumar]

that inclueds the deleted/locked posts also, the actual count is the one on the main page

Thanks Sankar.

 

[sanrv1f]

Its 20,00,000 @ 20th Jul 2009, 16:34 hrs

just 1 hr 34 mins more than I predicted:wink:

 

[sanrv1f]

I just missed to take a screen shot @ 20,00,000,

but I got it at 20,00,002,

can some one tell me how to post an image on board, (there are many, post their screen shot of excel)

 

[sanrv1f]

here is the screen shot