I am trying to populate cells in columns with numeric values based on the
contents of another cell. In the following sub, the values are stored as
shown by debug.print, but they are not written to my sheet. Can anyone tell
my why, please?



Thanks in advance,



Patti







Dim myRange As Range, rCell As Range



With Worksheets("Employees")

Set myRange = .Range(.Cells(2, 3), .Cells(2, 3).End(xlDown))



For Each rCell In myRange.Cells



If rCell.Offset(0, 3).Value = "PT" Then

rCell.Offset(0, 8).Value = 200

rCell.Offset(0, 9).Value = 250

ElseIf rCell.Offset(0, 3).Value = "FT" Then

rCell.Offset(0, 8).Value = 300

rCell.Offset(0, 9).Value = 350

ElseIf rCell.Offset(0, 3).Value = "Other" Then

rCell.Offset(0, 8).Value = 400

rCell.Offset(0, 9).Value = 450

Else



End If



Debug.Print "row" & rCell & rCell.Address

Debug.Print rCell.Offset(0, 3).Value

Debug.Print rCell.Offset(0, 8).Value

Debug.Print rCell.Offset(0, 9).Value



Next



End With



End Sub

The code seems to work fine. If Column F does not contain PT or FT or
Other, the code doesn't write anything to the worksheet. I can't tell
from your posting what it is that your Debug commands print that is
different from your worksheet.

Alan Beban

Patti wrote:
I am trying to populate cells in columns with numeric values based on the
contents of another cell. In the following sub, the values are stored as
shown by debug.print, but they are not written to my sheet. Can anyone tell
my why, please?



Thanks in advance,



Patti







Dim myRange As Range, rCell As Range



With Worksheets("Employees")

Set myRange = .Range(.Cells(2, 3), .Cells(2, 3).End(xlDown))



For Each rCell In myRange.Cells



If rCell.Offset(0, 3).Value = "PT" Then

rCell.Offset(0, 8).Value = 200

rCell.Offset(0, 9).Value = 250

ElseIf rCell.Offset(0, 3).Value = "FT" Then

rCell.Offset(0, 8).Value = 300

rCell.Offset(0, 9).Value = 350

ElseIf rCell.Offset(0, 3).Value = "Other" Then

rCell.Offset(0, 8).Value = 400

rCell.Offset(0, 9).Value = 450

Else



End If



Debug.Print "row" & rCell & rCell.Address

Debug.Print rCell.Offset(0, 3).Value

Debug.Print rCell.Offset(0, 8).Value

Debug.Print rCell.Offset(0, 9).Value



Next



End With



End Sub

I got it - it was operator error : ( Thanks anyway.


"Alan Beban" wrote in message
...
The code seems to work fine. If Column F does not contain PT or FT or
Other, the code doesn't write anything to the worksheet. I can't tell
from your posting what it is that your Debug commands print that is
different from your worksheet.

Alan Beban

Patti wrote:
I am trying to populate cells in columns with numeric values based on the
contents of another cell. In the following sub, the values are stored as
shown by debug.print, but they are not written to my sheet. Can anyone
tell my why, please?



Thanks in advance,



Patti







Dim myRange As Range, rCell As Range



With Worksheets("Employees")

Set myRange = .Range(.Cells(2, 3), .Cells(2, 3).End(xlDown))



For Each rCell In myRange.Cells



If rCell.Offset(0, 3).Value = "PT" Then

rCell.Offset(0, 8).Value = 200

rCell.Offset(0, 9).Value = 250

ElseIf rCell.Offset(0, 3).Value = "FT" Then

rCell.Offset(0, 8).Value = 300

rCell.Offset(0, 9).Value = 350

ElseIf rCell.Offset(0, 3).Value = "Other" Then

rCell.Offset(0, 8).Value = 400

rCell.Offset(0, 9).Value = 450

Else



End If



Debug.Print "row" & rCell & rCell.Address

Debug.Print rCell.Offset(0, 3).Value

Debug.Print rCell.Offset(0, 8).Value

Debug.Print rCell.Offset(0, 9).Value



Next



End With



End Sub