Jpgohel
06-04-2017, 03:08 AM
Hello Everyone,
I am facing the error "Run time error "438" - Object doesn't support this property or method. "
Private Sub Cmdfin_Click()
Dim f As Integer
Dim d As String
Dim lnRow As Long, lnCol As Long
Dim sht As Worksheet
Set sht = ActiveSheet
f = txtId.Text
lnCol = 1
lnRow = sht.Cells(lnCol, 1).EntireCol.find(What:=f, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Column -- got the error here.
d = ActiveCell.Address
Exit Sub
End Sub
Kindly suggest.
I am facing the error "Run time error "438" - Object doesn't support this property or method. "
Private Sub Cmdfin_Click()
Dim f As Integer
Dim d As String
Dim lnRow As Long, lnCol As Long
Dim sht As Worksheet
Set sht = ActiveSheet
f = txtId.Text
lnCol = 1
lnRow = sht.Cells(lnCol, 1).EntireCol.find(What:=f, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Column -- got the error here.
d = ActiveCell.Address
Exit Sub
End Sub
Kindly suggest.