型が一致し、ファイル名を指定して実行時エラー13

Question

最後に追加してください。働くことができない -

Public iRowValue As Long 

Public iRow As Long 

---------- 

Private Sub Update_Click() 
Dim Rng As Range 
Dim FindString1 as String 


With ws.Range("A:A") 
     Set Rng = .Find(What:=FindString1, _ 
         After:=.Cells(.Cells.Count), _ 
         LookIn:=xlValues, _ 
         LookAt:=xlWhole, _ 
         SearchOrder:=xlByRows, _ 
         SearchDirection:=xlNext, _ 
         MatchCase:=False) 

     If Rng Is Nothing Then 
      MsgBox "Name does not Exists" 
     Else 
      iRowValue = Rng.Row 
     End If 
    End With 

**If iRowValue <> "" Then** 

iRow = iRowValue 

Else 

iRow = ws.Cells(Rows.Count, 1) _ 
    .End(xlUp).Offset(1, 0).Row 
End If 

ws.Cells(iRow, 1).Value = Me.FirstName.Value 

ws.Cells(iRow, 2).Value = Me.LastCode.Value 

End Sub 

Answer 1

iRowValueがロングとして宣言されている、あなたは、Stringにそれを比較してみてください。単に0と比較すればうまくいくはずです。