run-time error '91' object variable not set

[sammu78]

I'm really feeling stupid right now because I can't figure out why I can't set a range to RowCount. I've used a similar code elsewhere without any problems. Any feedback would be appreciated.

Private Sub cmdbutMakeEdit_Click()

Dim RowCount As Range
Dim RowCell As Integer
Dim EditDrug As String

Dim ws As Worksheet
Dim ws3 As Worksheet
Set ws = Worksheets("Sheet1")
Set ws3 = Worksheets("Sheet3")

EditDrug = ws3.Cells(1, 1).Value

Set RowCount = Worksheets("Sheet1").Range("D1:D10000").Find(EditDrug, lookat:=xlPart) <----this keeps coming back as nothing

RowCell = RowCount.Row

If Not RowCount Is Nothing Then
RowCell = RowCount.Row

ws.Cells(RowCell + 10, 7).Value = txtboxDose.Value
ws.Cells(RowCell + 10, 8).Value = cboRoute.Value
ws.Cells(RowCell + 10, 9).Value = cboFrequency.Value
MsgBox "Medication has been edited"

End If

Me.txtboxDose.Enabled = False
Me.txtboxDose.Visible = False
Me.txtboxDose.Value = ""
Me.cboRoute.Enabled = False
Me.cboRoute.Visible = False
Me.cboFrequency.Enabled = False
Me.cboFrequency.Visible = False
Me.cboAdditionalDrugInfo.Enabled = False
Me.cboAdditionalDrugInfo.Visible = False
Me.cboPage1Meds.Value = ""

End Sub

[contaminated]

can you post wb?
ps: wrap your code ino code tags

[sammu78]

what do you mean by "post wb"?

[6StringJazzer]

post wb = Attach a sample workbook.

When you are in Advanced reply, click on the paperclip to open the upload window.

View Pic

Code tags: See my signature, and also:

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

[6StringJazzer]

There is no way to diagnose this without seeing the data. It's coming back as Nothing because the value EditDrug is not found in column D. Is there some reason you think it should be found?

Please Login or Register  to view this content.