最終行の取得がエラーになる

Question

ファイルを開き、ある列の最終行を取得したいのですが、「アプリケーション定義またはオブジェクト定義のエラーです」と表示されます。
Sheetモジュールに書いてます。
Bookを開きr = sh.Cells(Rows.Count, 3).End(xlUp).Rowでとるのですが、sh.cells
にすると上記エラーになります。
sh.を外すとどっからとってきているのか、まったく関係ない値をとってきてしまいます。
ドツボにはまってます。。。
ご教示ください。

Private Sub openJKZ1(fp As String)
    '本部
    Dim i As Long
    Dim r As Long
    Dim c As Long
    Dim iLine As Long
    Dim wb As Workbook
    Dim sh As Worksheet
    Dim sData(4) As String
     
    Set wb = Workbooks.Open(Filename:=fp, ReadOnly:=True)
    Set sh = wb.Sheets(1)
    iLine = 14
    r = sh.Cells(Rows.Count, 3).End(xlUp).Row
    
    For i = 2 To r

'        If sh.Cells(i, 3) <> "" Then

            sData(0) = Left(sh.Cells(i, 3), 2).Value
            sData(1) = sh.Cells(i, 4).Value
            sData(2) = Right(sh.Cells(i, 3), 1).Value
            sData(3) = sh.Cells(i, 16).Value
            sData(4) = sh.Cells(i, 17).Value

            Me.Cells(iLine, 3).Value = Trim$(StrConv(sData(0), vbNarrow))  '講座
            Me.Cells(iLine, 4).Value = Trim$(sData(1))  '人数
            Me.Cells(iLine, 5).Value = Trim$(StrConv(sData(2), vbNarrow))  '方式
            Me.Cells(iLine, 6).Value = Trim$(StrConv(sData(3), vbNarrow)) '修了証書
            Me.Cells(iLine, 7).Value = Trim$(sData(4))  '連絡網

            iLine = iLine + 1
'        Else
'            Exit For
'        End If
    
    Next

    Me.Range("C13:L" & CStr(iLine - 1)).Borders.LineStyle = xlContinuous
    wb.Close
    
    'エラーチェック
    r = Me.Cells(Rows.Count, 3).End(xlUp).Row
    iLine = 14
    For c = 3 To 5
        If Me.Cells(iLine, c) = "" Then
            Me.Cells(iLine, c).Interior.Color = RGB(255, 255, 0)
        End If
        iLine = iLine + 1
    Next

    
    For iLine = 14 To r
        If Me.Cells(iLine, 3) = 16 And Me.Cells(iLine, 4) = 1 Then
            Me.Cells(iLine, 3).Interior.coler = RGB(255, 255, 0)
        ElseIf Me.Cells(iLine, 3) = 27 And Me.Cells(iLine, 4) = 2 Then
            Me.Cells(iLine, 3).Interior.coler = RGB(255, 255, 0)
        ElseIf Me.Cells(iLine, 3) = 28 And Me.Cells(iLine, 4) = 2 Then
            Me.Cells(iLine, 3).Interior.coler = RGB(255, 255, 0)
        End If
        
    Next

End Sub

Answer 1

Rowsプロパティ参照時もshを指定しましょう。
worksheetオブジェクトの指定を省略した場合は、ActiveSheetが対象になります。

    r = sh.Cells(Rows.Count, 3).End(xlUp).Row

↓

    r = sh.Cells(sh.Rows.Count, 3).End(xlUp).Row

Comments

[Naoko_Coco]

ありがとうございます。できました！