Can you write a function in VBA that displays values in cells other than then cell the function is in? - vba

Question

I am trying to write something like: If the value "O" is found in this range (M3:Q3) then fill all the cells in the range (M3:Q3) not containing the "O" with "X".
Here is what I have so far. I have had a lot of trouble getting the function to populate a value in anything other than the cell the function is being called.
Function positive(range_data As range)
Dim display As String
display = ""
Dim positiveValue As Boolean
For Each Item In range_data
If Item.Value = "O" Then
positiveValue = True
End If
Next
If positiveValue = True Then
For Each Item In range_data
If Item.Value = "" Then
Worksheets("Sheet1").Cells(Item.row, Item.Column).Value = "X"
End If
Next
End If
'positive = range_data
'positive = display
End Function
Thank you for your help!

Answer 1

your code seems to work fine, I just turned it into a Sub
Sub positive(range_data As Range)
Dim display As String
display = ""
Dim positiveValue As Boolean
For Each Item In range_data
If Item.Value = "O" Then
positiveValue = True
End If
Next
If positiveValue = True Then
For Each Item In range_data
If Item.Value <> "O" Then
Worksheets("Sheet1").Cells(Item.Row, Item.Column).Value = "X"
End If
Next
End If
'positive = range_data
'positive = display
End Sub
Sub MAIN()
positive Range("A1:C4")
End Sub

Answer 2

The function can work if called from a Sub:
Function positive(range_data As Range)
Dim display As String
display = ""
Dim positiveValue As Boolean
For Each Item In range_data
If Item.Value = "O" Then
positiveValue = True
End If
Next
If positiveValue = True Then
For Each Item In range_data
If Item.Value = "" Then
Worksheets("Sheet1").Cells(Item.Row, Item.Column).Value = "X"
End If
Next
End If
positive = "whatever"
End Function
Sub MAIN()
x = positive(Range("M3:Q3"))
End Sub
But there is no reason to use a function since the function's output is not used.