multiple entry

[dwarek]

hello below i have given my code the problem is when i enter the value for few times in the userform and its working fine and when i delete the values and enter the value from first it copies the data for the times i entered previously. FOR EXAMPLE IF I ENTER VALUE FOR 5 TIMES (THE FIELD ARE GETTING FILLED) THEN WHEN I DELETE THE VALUES AND ENTER THE VALUE FROM BEGINNING THE VALUES ARE AUTOMATICALLY GETTING ENTERED FOR 5 TIMES. PLEASE HELP ME
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 = TextBox2.Value
.Cells(lrow, 5).Value = TextBox3.Value
.Cells(lrow, 8).Value = TextBox4.Value
.Cells(lrow, 9).Value = TextBox5.Value
.Cells(lrow, 10).Value = TextBox6.Value
.Cells(lrow, 14).Value = TextBox7.Value
.Cells(lrow, 11).Value = TextBox8.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 OptionButton4 = True Then
.Cells(lrow, 4).Value = "REX"
End If


If OptionButton5 = True Then
.Cells(lrow, 6).Value = "YES"
ElseIf OptionButton6 = True Then
.Cells(lrow, 6).Value = "NO"
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
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


Private Sub CommandButton2_Click()


Unload Newalert


End Sub