Add Text values of Columns B7:b and E7:e and place value on J7:j, just on ONE worksheet

Ok I have the first part working with one major problem. When I run the code below it will display a text value for every page in the workbook. I only need it to display a value in "J" on the "initiating devices" page. The other pages have different column headings. Also it only will work when the macro is run manually, I would like to know if it could be run as the user enters the status of a devices, this will update values on another page in real time. Here is the code I have been using so far with limited success Sub calctestvalues() Dim lng As Long lng = Cells(Rows.Count, "B").End(xlUp).Row Range("J7:J" & lng).Value = Evaluate("=B7:B" & lng & "&E7:E" & lng) End Sub

以上就是Add Text values of Columns B7:b and E7:e and place value on J7:j, just on ONE worksheet的详细内容,更多请关注web前端其它相关文章!

赞(0) 打赏
未经允许不得转载:web前端首页 » excel

评论 抢沙发

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址

前端开发相关广告投放 更专业 更精准

联系我们

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏