lucpian
02-11-2008, 03:53 PM
Hi All,
Thanks so much for your help. You all are making my hand on in VBA better. I am having problem with a function I wrote which should only accept, A, B, Q as valid entries. For the purpose of reusability, I am required to use array as a parameter in the function.
I wrote the following code, but is having problem and errors.
Function MaintenanceFreq(columnname As Integer, myArray As String)
Dim rowcount
Dim R
Dim myArray(1)
rowcount = Range("A65536").End(xlUp).Row
For R = 2 To rowcount
strVal = Sheet1.Cells(R, columnname).Value
If strVal <> myArray And strVal <> myArray Then
Sheet1.Cells(R, columnname).Interior.ColorIndex = 5
End If
Next
End Function
Sub MaintenanceFreq ()
MaintenanceFreq 17, "A", "B", "Q"
End Sub
Please, I would be very grateful if someone can help me out.
Thanks
Lucpian
Thanks so much for your help. You all are making my hand on in VBA better. I am having problem with a function I wrote which should only accept, A, B, Q as valid entries. For the purpose of reusability, I am required to use array as a parameter in the function.
I wrote the following code, but is having problem and errors.
Function MaintenanceFreq(columnname As Integer, myArray As String)
Dim rowcount
Dim R
Dim myArray(1)
rowcount = Range("A65536").End(xlUp).Row
For R = 2 To rowcount
strVal = Sheet1.Cells(R, columnname).Value
If strVal <> myArray And strVal <> myArray Then
Sheet1.Cells(R, columnname).Interior.ColorIndex = 5
End If
Next
End Function
Sub MaintenanceFreq ()
MaintenanceFreq 17, "A", "B", "Q"
End Sub
Please, I would be very grateful if someone can help me out.
Thanks
Lucpian