Hai in the below code error -13 type missmatch coming in kumarL
what i did wrong ??
![]()
Sub kumarK() IRow = Workbooks("01A data 1 MT --1.xlsm").Sheets("DATAIND1").Range("k" & Rows.Count).End(xlUp).Row Set MR = Workbooks("01A data 1 MT --1.xlsm").Sheets("DATAIND1").Range("k2:k" & IRow) For Each cell In MR If cell.Value = "BUY" Then cell.Interior.ColorIndex = 10 If cell.Value = "SELL" Then cell.Interior.ColorIndex = 3 Next End Sub Sub kumarL() IRow = Workbooks("01A data 1 MT --1.xlsm").Sheets("DATAIND1").Range("L" & Rows.Count).End(xlUp).Row Set MR = Workbooks("01A data 1 MT --1.xlsm").Sheets("DATAIND1").Range("L2:L" & IRow) For Each cell In MR If cell.Value = "BULLISH trend" Then cell.Interior.ColorIndex = 10 If cell.Value = "DOWN trend" Then cell.Interior.ColorIndex = 3 Next End Sub
Bookmarks