vba - Comparing 2 excel workbooks and highlighting the differences -


i'm trying create macro compare 2 excel work books , highlight differences. i've looked previous solutions , helped lot, still can't macro running. i've created 2 scripts see 1 works best.

1.

sub compareworkbooks()  dim varsheeta variant dim varsheetb variant dim strrangetocheck string dim irow long dim icol long  strrangetocheck = "a1:ak900"  'get worksheets workbooks set wbkn = workbooks.open(filename:="u:\gebouwensep.xlsx") set nieuweversie = wbkn.worksheets("gebouwen")   set wbko = workbooks.open(filename:="u:\gebouwenaug.xlsx") set oudeversie = wbko.worksheets("gebouwen")  if nieuweversie <> oudeversie     nieuweversie.sheets(gebouwen).cells(irow, icol).interior.color = vbyellow end if  end sub

2

sub compareworkbooks()  dim varsheeta variant dim varsheetb variant dim strrangetocheck string dim irow long dim icol long dim mycell range dim mydiffs integer  nlin = 1 ncol = 1  'get worksheets workbooks set wbka = workbooks.open(filename:="u:\gebouwensep.xlsx") set varsheeta = wbka.worksheets("gebouwen")   set wbkb = workbooks.open(filename:="u:\gebouwenaug.xlsx") set varsheetb = wbkb.worksheets("gebouwen")  strrangetocheck = "a1:ak900"  varsheeta = varsheeta.range(strrangetocheck) varsheetb = varsheetb.range(strrangetocheck)  irow = lbound(varsheeta, 1) ubound(varsheeta, 1)     icol = lbound(varsheeta, 2) ubound(varsheeta, 2)         if not varsheeta(irow, icol) = varsheetb(irow, icol)          else               nieuweversie.sheets(gebouwen).cells(irow, icol).interior.color = vbyellow         end if     next icol next irow  end sub

my solution code 2

your main problem appears following line:

nieuweversie.sheets(gebouwen).cells(irow, icol).interior.color = vbyellow

you don't have variables set "nieuweversie" or "gebouwen". former appears remnant in code 2 left on code 1, i'm assuming need line is:

wbka.sheets("gebouwen").cells(irow, icol).interior.color = vbyellow

i've tested solution myself , appears fixing worksheet reference causes sub run correctly

also - isn't working in code 1 either due same line (i haven't checked rest of code though, there may other issues). variable "nieuwerversie" worksheet, , you're doing referring "worksheet.sheets" object, not valid reference. if used

nieuweversie.cells(irow, icol).interior.color = vbyellow

then should fix same line in code 1, although haven't tested rest of code


-

Comments

Post a Comment

Popular posts from this blog

java - is not an enclosing class / new Intent Cannot Resolve Constructor -

thanks checking out question! i have relativly ismple loop add onclicklistener each imageview add layout, when trying add new intent it, gives me 1 of following errors: string[] imageurls = imageurlsstring.split("/"); (int = 0; < imageurls.length; i++){ imageview image = new imageview(this); image.setlayoutparams(new android.view.viewgroup.layoutparams(getpx(182),getpx(256))); image.setpadding(getpx(3),getpx(3),getpx(3),getpx(3)); final string imageurl = ".../images/" + imageurls[i]; picasso.with(this).load(imageurl).into(image); image.setonclicklistener(new view.onclicklistener() { @override public void onclick(view view) { intent intent; intent = new intent(this, imageactivity.class); intent.putextra("url", imageurl); startactivity(intent); } }); linearlayout.addview(image)...
Read more

python - Error importing VideoFileClip from moviepy : AttributeError: 'PermissionError' object has no attribute 'message' -

i'm using jupyter notebook. have tried anaconda console well. tried importing both ways shown below from moviepy.editor import videofileclip moviepy.video.io.videofileclip import videofileclip both of them gave me same error. full trace below attributeerror traceback (most recent call last) <ipython-input-10-9afa9d6e87c4> in <module>() 6 import glob 7 import math ----> 8 moviepy.editor import videofileclip 9 moviepy.video.io.videofileclip import videofileclip c:\program files\anaconda3\lib\site-packages\moviepy\editor.py in <module>() 20 # clips 21 ---> 22 .video.io.videofileclip import videofileclip 23 .video.io.imagesequenceclip import imagesequenceclip 24 .video.io.downloader import download_webfile c:\program files\anaconda3\lib\site-packages\moviepy\video\io\videofileclip.py in <module>() 1 import os 2 ----> 3 moviepy.video.videoclip import videoclip ...
Read more

qt - QML MouseArea onWheel event not working properly when inside QML Scrollview -

i have mousearea inside scrollview inside rectangle . implemented zoom feature zooms in/out when pressing ctrl , scrolling mouse wheel. however, zooms in when scrollview way @ top, , zooms out when scrollview way @ bottom. there additional logic handle external drag , drop of files. issue should able replicated long text inside textedit big enough scrollview . apparently bug before, can't work properly. tried solution in following link: qtquick2: handle onwheel event inside of scrollview rectangle { id: palgenrectangle layout.minimumwidth: 50 property string display //width:800 color: "white" scrollview { id: palgentextscrollview anchors.fill: parent mousearea { id: mousearea anchors.fill: parent onwheel: { if (wheel.modifiers & qt.controlmodifier){ if (wheel.angledelta.y > 0) { mainte...
Read more