Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Type Mistmatch Error
Do you have any errors in your data div/0!, #ref!, #n/a's?
Option Explicit Sub testme00() Dim columnIndex As Long For columnIndex = 1 To 255 With ActiveSheet.Cells(1, columnIndex) If IsError(.Value) Then 'do nothing ElseIf ((.Value) = "Q") Or ((.Value) = "T") Then Columns(columnIndex).Interior.ColorIndex = 15 End If End With Next columnIndex End Sub I changed your loop to 1 to 255. I changed the .cells(columnindex) to .cells(1,columnindex) Matt wrote: I am trying to write a macro that will search the first row of each column and then change the background color of the column based on its value. Whenever I run the code, I get a Type 13 Mismatch Error and I am not sure how to fix it. Any advice? Here is the source of the problem: For ColumnIndex = 1 To 1000 With ActiveSheet.Cells(ColumnIndex) If ((.Value) = "Q") Or ((.Value) = "T") Then Columns(ColumnIndex).Interior.ColorIndex = 15 Thanks, Matt -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Visual Basic Error Run Time Error, Type Mismatch | Excel Discussion (Misc queries) | |||
xpath error? Runtime Error 13 type mismatch | Excel Discussion (Misc queries) | |||
xpath error? Runtime Error 13 type mismatch | Excel Discussion (Misc queries) | |||
Type Mismatch Error | Excel Discussion (Misc queries) | |||
Type mismatch error | Excel Programming |