Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
error 438 on For statement
It has an object doesn't support this property and I don't see anything wrong.
Sub AddNodeCommas() Dim SlashPos As Long Dim myCell As Range For Each myCell In ActiveSheet.Ranges("D2:D122").Cells If myCell.Value = "" Then 'skip it Else SlashPos = InStr(1, myCell.Value, "/", vbTextCompare) If SlashPos 0 Then '/was found, so skip it Else myCell.Value = myCell.Value & "," End If End If Next myCell End Sub tia, |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
error 438 on For statement
Range S
However, this might be a little more efficient. Sub ifslash() lr = Cells(Rows.Count, "d").End(xlUp).Row For Each c In Range("d2:d" & lr) If InStr(c, "/") < 1 And c < "" Then c.Value = c & "," Next End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "Janis" wrote in message ... It has an object doesn't support this property and I don't see anything wrong. Sub AddNodeCommas() Dim SlashPos As Long Dim myCell As Range For Each myCell In ActiveSheet.Ranges("D2:D122").Cells If myCell.Value = "" Then 'skip it Else SlashPos = InStr(1, myCell.Value, "/", vbTextCompare) If SlashPos 0 Then '/was found, so skip it Else myCell.Value = myCell.Value & "," End If End If Next myCell End Sub tia, |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Can't fix On Error statement | Excel Discussion (Misc queries) | |||
Runtime Error - Subscript out of range despite On Error statement | Excel Programming | |||
Path/File access error (Error 75) using Name Statement | Excel Programming | |||
Path/File access error (Error 75) after using Name Statement | Excel Programming | |||
On Error Statement | Excel Programming |