sooty8
10-09-2009, 02:04 AM
Hi Good Morning
Is it possible if a value of between 1 - 3 is entered in Tb1 - Tb2 will display a value of 10.00 if however any value between 4 -50 is entered in Tb1 - Tb2 will display a value of 0.00
Private Sub Add_Click()
Application.ScreenUpdating = False
Dim iRow As Long
Dim ws As Worksheet
Dim LngPos As Long
Set ws = Worksheets("Sheet1")
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
ws.Cells(iRow, 3).Value = UserForm1.Tb1.Text
ws.Cells(iRow, 4).Value = UserForm1.Tb2.Text
Application.ScreenUpdating = True
End Sub
Many Thanks
Sooty8
Is it possible if a value of between 1 - 3 is entered in Tb1 - Tb2 will display a value of 10.00 if however any value between 4 -50 is entered in Tb1 - Tb2 will display a value of 0.00
Private Sub Add_Click()
Application.ScreenUpdating = False
Dim iRow As Long
Dim ws As Worksheet
Dim LngPos As Long
Set ws = Worksheets("Sheet1")
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
ws.Cells(iRow, 3).Value = UserForm1.Tb1.Text
ws.Cells(iRow, 4).Value = UserForm1.Tb2.Text
Application.ScreenUpdating = True
End Sub
Many Thanks
Sooty8