Excel Forum

Code: Select all

wbk.Sheets("Sheet1").Range("A" & Rows.count).End(xlUp).Row 

Code: Select all

wbk.Sheets("Sheet1").Range("A" & Rows.count).End(xlUp)

Code: Select all

wbk.Sheets("Sheet1").Range("A" & Rows.count).End(xlUp).Row 

Code: Select all

wbk.Sheets("Sheet1").Range("A" & Rows.count).End(xlUp)

Code: Select all

If InStr(rRow, "Wk") Then
    IntRow = rRow.Row
    ReDim Preserve StrRow(count2)
        StrRow(count2) = IntRow + count2
        count2 = count2 + 1
End If

Code: Select all

    With wbk.Worksheets("Sheet1")
                Set rData = .Range(.Cells(IntCol + 1, "A"), .Range("A" & rl).End(xlUp))
                End With
                For Each rDataCol In rData
                    While rDataCol <> ""
                        ReDim Preserve StrData(i)
                        StrData(i) = rDataCol
                        i = i + 1
                        rDataCol = ""
                    Wend
Next rDataCol

Code: Select all

Set rData = .Range(.Cells(IntCol, "B"), .Range("B" & rl).End(xlUp))

Code: Select all

while
   'other code
   if r = "" then exit sub
   'other code
wend

Code: Select all

For Each sh In wkb.Sheets
                    If sh.Visible = xlSheetVisible Then
                        Set wsh = wkb.Sheets(sh.Name)
                            Do While Not wsName <> ""
                                If InStr(1, wsh.Name, StrPara(i)) Then
                                    wsName = StrPara(i)
                                End If
                                i = i + 1
                            Loop
                        Call readSheet(wsName, wkb, wsh)
Next

Code: Select all

If wsh.Cells(curLine, 1) <> "" Then
                    While year = ""
                        If year <> "TTL" Then
                            year = Offset(wsh.Cells(curLine, 1), 0, 0, -6, j)
                            j = j + 1
                        End If
                    Wend
End If