excel - "apllication -defined or object oriented error" is throwing while compling vb code. working between multiple workbooks -
this part of code.
at 1st if, error popop coming saying "application-defined or object oriented error".
for row_num = 2 3 'column numbers col_num = 6 7 'check grey color if workbooks(book_name).worksheets("parameterlifecycles").range(cells(row_num, col_num), cells(row_num, col_num)).interior.color = rgb(217, 217, 217) 'check if software name empty if not isempty(workbooks(book_name).worksheets("parameterlifecycles").range("s" & row_num)) soft_rd = workbooks(book_name).worksheets("parameterlifecycles").range("s" & row_num) else soft_rd = workbooks(book_name).worksheets("parameterlifecycles").range("b" & row_num) end if 'exit row once software name obtained col_num = 16[enter image description here][1]
in workbooks(book_name).worksheets("parameterlifecycles").range(cells(row_num, col_num), cells(row_num, col_num))
cells
taken activesheet
, not workbooks(book_name).worksheets("parameterlifecycles")
the error occurs because source of range
differs source of cells
.
use:
... workbooks(book_name).worksheets("parameterlifecycles") if .range(.cells(row_num, col_num), .cells(row_num, col_num)).interior.color = rgb(217, 217, 217) ... end ...
please note dot before cells
. sure cells
taken same sheet range
.
Comments
Post a Comment