FreeWeekCnt

[sprucethebruce]

Does anyone use this in VBA?

I've got a macro I'm trying to modify and replicate to another spreadsheet and this is the one stumbling block I have, can't seem to find it on Google either (which is a worry).

Is it a counting date code or something, would make sense, I suppose I need to know how it works as well.

 

[njimack]

Can you post the code?

 

[sprucethebruce]

' check to see if 20 weeks of history stored
    FreeWeekCnt = 0
    Range("D88:D107").Cells.Select
    For Each cel In Selection
        If cel.Value = "" Then FreeWeekCnt = FreeWeekCnt + 1
    Next

' if 20 weeks history stored, delete first entry and move records up,
'   filldown last row, to copy formats (but clear values)
    If FreeWeekCnt = 0 Then
        Range("D88:F88").Delete (xlShiftUp)
        Range("D106:F107").FillDown
        Range("D107:F107").ClearContents
        Call resetChartRange
    End If

 

[njimack]

Looks like it's just a variable to count the number of cells between D88 and D107 that aren't blank.

 

[Michael M]

As Neil pointed out, it's just a variable.
You could replace "FreeWeekCnt" with "BlankCounter" or something just as descriptive, if you wanted to.