Run time error 1004

[dwarek]

Hello everyone i have encountered a problem with this run time error 1004 application defined error or object defined error can any one help me out of this. i have highlighted the line where the error occurred with a sad smiley please help me out
Private Sub CommandButton1_Click()


Dim lrow As Long
Dim x As Long
Dim y As Long
Dim ws As Worksheet
Set ws = Worksheets("sheet1")


lrow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
With ws
.Cells(lrow, 2).Value = TextBox1.Value
.Cells(lrow, 3).Value = TextBox4.Value
.Cells(lrow, 5).Value = TextBox3.Value
.Cells(lrow, 8).Value = TextBox2.Value
.Cells(lrow, 9).Value = TextBox6.Value
.Cells(lrow, 10).Value = TextBox8.Value
.Cells(lrow, 14).Value = TextBox9.Value
.Cells(lrow, 11).Value = TextBox5.Value


If OptionButton1 = True Then
.Cells(lrow, 4).Value = "NEW"
ElseIf OptionButton2 = True Then
.Cells(lrow, 4).Value = "MODIFY"
ElseIf OptionButton3 = True Then
.Cells(lrow, 4).Value = "NAR"
ElseIf OptionButton6 = True Then
.Cells(lrow, 4).Value = "REX"
End If


If OptionButton7 = True Then
.Cells(lrow, 11).Value = "EQ/EQTY/ALL"
ElseIf OptionButton8 = True Then
.Cells(lrow, 11).Value = "FI/ALL/ALL"
ElseIf OptionButton9 = True Then
.Cells(lrow, 11).Value = "FI/CORP/ALL"
ElseIf OptionButton10 = True Then
.Cells(lrow, 11).Value = "FI/GOVT/ALL"
End If


If OptionButton11 = True Then
.Cells(lrow, 7).Value = "3 TO 10"
ElseIf OptionButton12 = True Then
.Cells(lrow, 7).Value = "LESS THAN 10"
ElseIf OptionButton13 = True Then
.Cells(lrow, 7).Value = "MORE THAN 10"
End If


If OptionButton14 = True Then
.Cells(lrow, 12).Value = "ADDING NEW SSI"
ElseIf OptionButton15 = True Then
.Cells(lrow, 12).Value = "DELETED SSI"
ElseIf OptionButton16 = True Then
.Cells(lrow, 12).Value = "SSI ALREADY PRESENT WITH CORRECT DATA AND FORMAT"
ElseIf OptionButton17 = True Then
.Cells(lrow, 12).Value = "UPDATE TO EXISTING SSI"
ElseIf OptionButton18 = True Then
.Cells(lrow, 12).Value = "UPDATETO FORMAT OF EXISTING SSI"
End If


If OptionButton4 = True Then
.Cells(lrow, 6).Value = "YES"
ElseIf OptionButton5 = True Then
.Cells(lrow, 6).Value = "NO"
End If
End With


Static rngUR As Range: Set rngUR = ActiveWorkbook.ActiveSheet.UsedRange
Dim rngBlank As Range: Set rngBlank = rngUR.Find("")

While Not rngBlank Is Nothing
rngBlank.Value = rngBlank.Offset(-1, 0).Value
Set rngBlank = rngUR.Find("", rngBlank)
Wend

Dim ctrl
For Each ctrl In Me.Controls
If TypeOf ctrl Is msforms.TextBox Then
ctrl.Text = ""
End If
If TypeOf ctrl Is msforms.OptionButton Then
ctrl.Value = False
End If
Next ctrl



End Sub

---

 

[Norie]

Have checked the address of rngBlank when you get the error?

If it refers to any cell in row 1 you'll get the error you describe.

What are you trying to do here anyway?

While Not rngBlank Is Nothing
rngBlank.Value = rngBlank.Offset(-1, 0).Value 
Set rngBlank = rngUR.Find("", rngBlank)
Wend

 

[dwarek]

I am trying to copy the previous cell value if current cell value is empty and no I haven't checked the address of the rngblank and how to solve this problem?