So you're just checking the stuff in column A. if it meets a criterion, you
change the value in column B (of the same row)?
Sub Tax4SalesTax2()
Dim c As Range
For Each c In Range("A1:A5")
Select Case c * 0.005
Case 0 To 0.5: c.Offset(0, 1).Value = 0.5
Case Is <= 1: c.Offset(0, 1).Value = 1
Case Is <= 1.5: c.Offset(0, 1).Value = 1.5
Case Is <= 2: c.Offset(0, 1).Value = 2
Case Is <= 2.5: c.Offset(0, 1).Value = 2.5
Case Is <= 3: c.Offset(0, 1).Value = 3
End Select
Next c
End Sub
I'm not sure what you wanted to happen when c*.005 was equal to 1.
helmekki wrote:
ColumA ColumB
i have problem in this code, the integers in columB do not appear
correctly
i tried to use this code to first check if A1*.005 is between 0---.5
then put
b.value =
Sub Tax4SalesTax()
Dim c As Range
Dim b As Range
For Each b In Range("B1:B5")
For Each c In Range("A1:A5")
Select Case c * 0.005
Case 0 To 0.5
b.Value = 0.5
Case 0.5 To 1
b.Value = 1
Case 1 To 1.5
b.Value = 1.5
Case 1.5 To 2
b.Value = 2
Case 2 To 2.5
b.Value = 2.5
Case 2.5 To 3
b.Value = 3
End Select
Next
Next
End Sub
i appreciate any help
--
helmekki
------------------------------------------------------------------------
helmekki's Profile: http://www.excelforum.com/member.php...fo&userid=6939
View this thread: http://www.excelforum.com/showthread...hreadid=269390
--
Dave Peterson