vba - split a value from a range of column and color the duplicate value using vb macro -

-

i have bolow requirement of had achieved few still need help

  1. if status in g column = ready retest or passed
  2. then if there values in column c, take/split duplicate id in column c separated comma(,)
  3. search duplicate id in column , mark green color

[![example data][1]][1]

ex. in row 1 defect id cms-921 there 2 duplicate id 44 , 163693. need values in column a.

  1. if status of defects (44 , 163693) not closed need mark entire row in green color

example of current code:

sub findduplicatecolorit() last row dim report worksheet dim integer, j integer dim lastrow integer  set report = excel.worksheets("sheet2")                                        lastrow = report.usedrange.rows.count  application.screenupdating = false = 2 lastrow  j = 2 lastrow     if report.cells(i, 4).value <> ""_        , report.cells(i, 7).value = "ready   retest"_        , report.cells(i, 1).value = "jira"   'this omit blank cells @ end  '(in event column lengths not equal).          if instr(1, report.cells(j, 2).value, report.cells(i, 3).value, vbtextcompare) > 0  ' need logic need value colum d,  'split , find value in column , color row green/any.              = split(activecell.value, ",")             text = 0 ubound(a)             msgbox a(text)             next text              exit         else         end if     end if  next j next  application.screenupdating = true  end sub

venkat ... use example of logic. need add things avoid / capture errors, sure.

sub findduplicatecolorit() dim report worksheet dim a() string dim long, j long dim lastrow long, chkrow long  set report = excel.worksheets("sheet3") lastrow = report.usedrange.rows.count  application.screenupdating = false = 2 lastrow     if report.cells(i, 4).value <> "" , _         (instr(report.cells(i, 7).value, "ready retest") > 0 or _          instr(report.cells(i, 7).value, "passed") > 0) , _         instr(report.cells(i, 1).value, "jira") > 0 'this omit blank cells @ end (in event column lengths not equal.          = split(report.cells(i, 3).value, ",")         j = 0 ubound(a)             chkrow = report.range("b1:b" & lastrow).find(a(j)).row             if chkrow > 0                 if not instr(report.cells(chkrow, 7).value, "closed") > 0                     debug.print report.range("a" & i).address                     report.range("a" & i).entirerow.interior.color = vbgreen                 end if             end if         next j     end if next  application.screenupdating = true  end sub

Comments

Post a Comment

Popular posts from this blog

javascript - How to get current YouTube IDs via iMacros? -

-
i want viewed youtube video id , save csv via imacros, gets nothing. here js code: var videoid; videoid ="code:"; videoid +="url goto=https://www.youtube.com/watch?v=dbnywxdz_pa"+"\n"; videoid +="add !extract {{!urlcurrent}}"+"\n"; videoid +="set !var1 eval(\"var s=\"{{!urlcurrent}}\"; s.match((?<=watch\\?v=|/videos/|embed\\/)[^#\\&\\?]*);s[0]; \")"+"\n"; videoid +="add !extract {{!var1}}"+"\n"; videoid +="saveas type=extract folder=* file=url.csv"+"\n"; try this: var videoid = "url goto=https://www.youtube.com/watch?v=dbnywxdz_pa" + "\n"; videoid += "set !extract {{!urlcurrent}}" + "\n"; videoid += 'set !extract eval("\'{{!extract}}\'.match(/v=(.{11})/)[1];")' + "\n"; videoid += "saveas type=extract folder=* file=url.csv" + "\n"; iimplay
Read more

c# - Maintaining a program folder in program files out of date? -

-
for program i'm writing in vs c# wpf need store user related information on user's computer. far knew has been done creating folder in c:\program files , adding whatever program related info folder in subfolders or whatever. after doing browsing came across lot of people saying method out of date because access may denied create folder there, works administrative accounts, etc.. 1 site suggested saving c:\users\username\appdata\roaming or c:\users\username\appdata\local. question best , date method saving program data users computer? also take @ msdn article . it uwp apps have general idea put if developing wpf app. you may need these folders: environment.specialfolder.applicationdata environment.specialfolder.localapplicationdata environment.specialfolder.commonapplicationdata
Read more

emulation - Android map show my location didn't work -

-
i have been struggle current location in google map, tried official map demo, not working also. shows getmylocation button on upper right, didn't show blue dot on map current location. here code , i'm using emulator target api 23, guess may emulator's problem since code download directly github. advice appreciated. [screenshot][1] package com.example.mapdemo; import com.google.android.gms.maps.googlemap; import com.google.android.gms.maps.googlemap.onmylocationbuttonclicklistener; import com.google.android.gms.maps.onmapreadycallback; import com.google.android.gms.maps.supportmapfragment; import android.manifest; import android.content.pm.packagemanager; import android.os.bundle; import android.support.annotation.nonnull; import android.support.v4.app.activitycompat; import android.support.v4.content.contextcompat; import android.support.v7.app.appcompatactivity; import android.widget.toast; /** * demo
Read more