|
"writing" to a range
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 |
"writing" to a range
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 |
"writing" to a range
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 |
| All times are GMT +1. The time now is 01:14 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com