compare two different workbooks and highlight differences excel vba -


so trying compare 2 different workbooks in excel vba. know application "compare spreadsheets" exist need general code. have looked lot in forum trying find solution no 1 match needs.

what have: script that: askes user excelfile (file2) compare current file(file1). differences need highlighted in current file.

i kind of beginner vba please gentle :) have code trying use works comparison of 2 sheets in same workbook.

if got code job or me step further kind share code. or if have tips on how can make code down below match needs. alot!!

`sub test()  dim varsheeta variant dim varsheetb variant dim strrangetocheck string dim irow long dim icol long  strrangetocheck = "a1:iv65536" ' if know data in smaller range, reduce size of ranges above. debug.print varsheeta = worksheets("sheet1").range(strrangetocheck) varsheetb = worksheets("sheet 1").range(strrangetocheck) ' or whatever other sheet is. debug.print  irow = lbound(varsheeta, 1) ubound(varsheeta, 1)     icol = lbound(varsheeta, 2) ubound(varsheeta, 2)         if varsheeta(irow, icol) = varsheetb(irow, icol)             'msgbox ("no difference")              ' cells identical.             ' nothing.         else              highlightcells               ' cells different.             ' code goes here whatever want do.         end if     next icol next irow

end sub ` modifications have tried do, make section(s) different bold or prompt user:

sub test()

dim varsheeta variant dim varsheetb variant dim strrangetocheck string dim irow long dim icol long  strrangetocheck = "a1:n70" ' if know data in smaller range, reduce size of ranges above. debug.print varsheeta = worksheets("229019_pss360_17w15").range(strrangetocheck) varsheetb = worksheets("229019_pss360_ny").range(strrangetocheck) ' or whatever other sheet is. debug.print  irow = lbound(varsheeta, 1) ubound(varsheeta, 1)     icol = lbound(varsheeta, 2) ubound(varsheeta, 2)         if varsheeta(irow, icol) <> varsheetb(irow, icol)         selection.font.bold = true           'msgbox ("diff")             ' cells identical.             ' nothing.         else         'msgbox ("same")             ' cells different.             ' code goes here whatever want do.         end if     next icol next irow

end sub

use code prompt file opening , open selected file: 

private sub open_file(length integer)      dim strpath string     dim temp_workbook workbook     dim temp_worksheet worksheet      application.filedialog(msofiledialogopen).allowmultiselect = false     'make file dialog visible user     intchoice = application.filedialog(msofiledialogopen).show     'determine choice user made     if intchoice <> 0         'get file path selected user         strpath = application.filedialog(msofiledialogopen).selecteditems(1)    createobject("scripting.filesystemobject")             strext = .getextensionname(strpath)         end      if strcomp(strext, "xlsx", vbtextcompare) = 0 or strcomp(strext, "xlsm", vbtextcompare) = 0 or strcomp(strext, "xls", vbtextcompare) = 0         else         ' display error      msgbox ("wrong file format. accepted formats .xlsx , .xlsm")         exit sub     end if  end if  if intchoice <> -1     if msgbox("cancel operation?", vbyesno, "confirmation") = vbyes         exit sub     else         open_file (length)     end if end if set temp_workbook = workbooks.open(strpath, true, true) set temp_worksheet = sheets(1) end sub

at end of sub, have asked user select file, , have opened said file (making sure excel file beforehand). @ point want copy data temp_worksheet variant , compare values the values source sheet (the 1 comparing with) have stocked in variant array: 

dim strarray() variant dim strarray2() variant  strarray = sourcesheet.range(yourrangehere) strarray2 = temp_worksheet.range(yoursecondrangehere)

at point need loop through arrays , compare values accordingly. once difference spotted, can highlight the difference in corresponding sheet. i'll let figure last part out it's straightforward. if need see how data stored in strarray , strarray2 define breakpoint in code , run add spy (select strarray, right click , "add spy") see values in real time. luck!


Comments

Post a Comment

Popular posts from this blog

Is there a better way to structure post methods in Class Based Views -

i'm using class based views in django , never specify url in ajax calls , omit action parameter in form because know these requests go through post method of class based view. notice view - profile page make many requests depending on user updating on page - post method become convoluted , if/else mess example: def post(self, request, *args, **kwargs): # handle user changing available date if request.post.get('availabledate') != none: self.updateavailabledate(request) return jsonresponse({'result':'success'}) if request.post.get('newprojectname') != none: creative_user = creativeuserprofile.objects.get(id = request.user.id) project = project.create_project(creative_user, request.post['newprojectname']) project.save() return jsonresponse({'projectid': project.id }) if request.post.get('projectimage') != none , request.files['file']: proj...
Read more

performance - Why is XCHG reg, reg a 3 micro-op instruction on modern Intel architectures? -

i'm doing micro-optimization on performance critical part of code , came across sequence of instructions (in at&t syntax): add %rax, %rbx mov %rdx, %rax mov %rbx, %rdx i thought had use case xchg allow me shave instruction , write: add %rbx, %rax xchg %rax, %rdx however, dimay found agner fog's instruction tables , xchg 3 micro-op instruction 2 cycle latency on sandy bridge, ivy bridge, broadwell, haswell , skylake. 3 whole micro-ops , 2 cycles of latency! 3 micro-ops throws off 4-1-1-1 cadence , 2 cycle latency makes worse original in best case since last 2 instructions in original might execute in parallel. now... cpu might breaking instruction micro-ops equivalent to: mov %rax, %tmp mov %rdx, %rax mov %tmp, %rdx where tmp anonymous internal register , suppose last 2 micro-ops run in parallel latency 2 cycles. given register renaming occurs on these micro-architectures, though, doesn't make sense me done way. why wouldn't register renamer ...
Read more

c# - Asp.net web api : redirect unauthorized requst to forbidden page -

im trying redirect unauthorized request forbidden page instead i'm getting forbidden page in response body , how can fix ? here's startup class : app.createperowincontext(storecontext.create); app.createperowincontext<applicationusermanager>(applicationusermanager.create); app.createperowincontext<applicationsigninmanager>(applicationsigninmanager.create); app.usecookieauthentication(new cookieauthenticationoptions { authenticationtype = defaultauthenticationtypes.applicationcookie, expiretimespan = timespan.fromdays(30), }); app.useexternalsignincookie(defaultauthenticationtypes.externalcookie); app.usetwofactorsignincookie(defaultauthenticationtypes.twofactorcookie, timespan.fromminutes(5)); app.usetwofactorrememberbrowsercookie(defaultauthenticationtypes.twofactorrememberbrowsercookie); the method im trying reach : [httpget] [authorize(roles = "admin")] public string getcurrentusername() { return userman...
Read more