vba conditional find & replace -


today stuck code while trying replace dot (.) if in list sheet1 not match 1 of values list of sheet (same workbook). "argument not optional" error not give me other hint.

sub filter(wss worksheet, wsn worksheet, integer, j integer, k integer, l integer, integer) ' ' substitute macro ' application.screenupdating = false range("a1").formular1c1 = "sorted" set wss = sheets("sheet1") set wsn = sheets("non_confid") col1 = "a" col2 = "e" col3 = "c"

for = 1 200      if wss.range(col1 & a) = wsn.range("ab2:ab600")         = + 1         else: range(col1 & a).replace what:=".", replacement:="", lookat:=xlpart, searchorder:=xlbyrows, matchcase:=false, searchformat:=false, replaceformat:=false         = + 1      end if next  range("a1").autofilter activeworkbook.worksheets("sheet1").autofilter.sort.sortfields.clear activeworkbook.worksheets("sheet1").autofilter.sort.sortfields.add key:=range("a:a"), sorton:=xlsortonvalues, order:=xlascending, dataoption:=xlsortnormal activeworkbook.worksheets("sheet1").autofilter.sort     .header = xlyes     .matchcase = false     .orientation = xltoptobottom     .sortmethod = xlpinyin     .apply end  range("a1").select selection     .horizontalalignment = xlcenter     .verticalalignment = xlbottom     .wraptext = false     .orientation = 0     .addindent = false     .indentlevel = 0     .shrinktofit = false     .readingorder = xlcontext     .mergecells = false end     selection.interior     .pattern = xlsolid     .patterncolorindex = xlautomatic     .color = 15773696     .tintandshade = 0     .patterntintandshade = 0 end  selection.font     .color = -10477568     .tintandshade = 0 end  activesheet.listobjects.add(xlsrcrange, range("$a$1:$a$500"), , xlyes).name = "table1" activesheet.listobjects("table1").range.autofilter field:=1, criteria1:="<>"      set wss = sheets("sheet1") 'this has assigned worksheet sheet1 wss     set wsn = sheets("non_confid") 'this has assigned worksheet sheet1 wsu      = 2      j = 2 300         if not isempty(wss.range(col1 & j).value)             wss.range(col3 & - 1).value = wss.range(col1 & j).value             = + 1         end if     next  range("a:b").entirecolumn.delete      k = 1 300            if isempty(wss.range(col1 & k).value)                 = + 1 'exit 'this jumps out of loop, no more copying.            else                 wsn.range(col2 & i).value = wss.range(col1 & k).value                 = + 1            end if     next  sheets("non_confid").select columns("a:g").entirecolumn.autofit range("e1").select activesheet.listobjects("status").range.autofilter field:=4, criteria1:="<>" range("a1").select activeworkbook.saved = true application.screenupdating = true

end sub

thank in advance time!

the required arguments replace what , replacement, have supplied.

i not receive error message line:

if wss.range(col1 & a) = wsn.range("ab2:ab600")

because trying compare single value range.

(i'm assuming wss , wsn set correctly worksheets.)

this cause of errrors. error message different suspicious not posting actual code, or enough of replicate problem.


Comments

Post a Comment

Popular posts from this blog

curl - PHP fsockopen help required -

i trying work on cloudflare api , have found in documentation. unfortunately have no idea how can use in fsockopen or through curl. here example of post request. need know how can make request below data post using curl or fsockopen curl https://www.cloudflare.com/api_json.html -d 'a=cache_lvl' \ -d 'tkn=8afbe6dea02407989af4dd4c97bb6e25' \ -d 'email=sample@example.com' \ -d 'z=example.com' \ -d 'v=agg' here link cloudflare https://www.cloudflare.com/docs/client-api.html#s4.2 try one: $ch = curl_init("https://www.cloudflare.com/api_json.html"); curl_setopt($ch, curlopt_returntransfer,1); curl_setopt($ch, curlopt_followlocation, 1); curl_setopt($ch, curlopt_ssl_verifypeer,false); // handling of -d curl parameter here. $param = array( 'a' => 'cache_lvl', 'tkn' => '8afbe6dea02407989af4dd4c97bb6e25', 'email' => 'sample@example.com', 'z' =...
Read more

HTTP/1.0 407 Proxy Authentication Required PHP -

i working in restricted network/limited access internet. since have use proxy make web service call. here php code calling web service , response . $client = new soapclient("http: //www.xyz.com/abc/wsdls/login.wsdl", array("trace" => 1, "exceptions" => 1, 'proxy_host' => $proxy_host, 'proxy_port' => $proxy_port, 'proxy_login' => $proxy_login, 'proxy_password' => $proxy_password)); response is fatal error: uncaught soapfault exception: [wsdl] soap-error: parsing wsdl: couldn't load ' http://www.xyz.com/abc/wsdls/login.wsdl ' : failed load external entity if copy url error message , paste in browser(with same proxy settings) works. 2nd scenario is, if pass values instead of variables giving me diffarant response $client = new soapclient("http: //www.xyz.com/abc/wsdls/login.wsdl", array("trace" => 1, "exceptions" => 1, 'proxy_host' ...
Read more

c# - Resource not found error -

i have problem accessing method on homecontroller. show code of method : [httpget] public actionresult decriptidentifiantetredirige(string login_crypter, string mdp_crypter) { string loginacrypter = _globalmanager.protegemotdepasse(login_crypter); string mdpacrypter = _globalmanager.protegemotdepasse(mdp_crypter); user userapp = new models.user(login_crypter, mdp_crypter); if (userapp.authentificationvalidee(userapp.userlogin, userapp.password)) { session["name"] = userapp.userlogin; return redirecttoaction("accueil", "home"); } else { return redirecttoaction("validerauthentification", "home"); } } then in routeconfig.cs wrote route : routes.maproute( name: "authentificationapresdecryptage", url: "{controller}/{action}/{login_crypter}/{mdp_crypter}", defaults: new...
Read more