VBA: Search, save and replace by rows according to conditions -


i have input this:

gen,n,,,gongd,,,n,,,kl,0007bd,,,,,,,,tak, gen,n,,,ratec,,,n,,,kp,0007bc,,,,,,,,taz, kap,n,,,ebfwe,n,,,,,,,,,kp,002bd4,,,kp,123000,,,,,n,,,,p kap,n,,,st,weit,e3,ebfwei,,,kp,002bd2,n,,,,,,kp,002bd3,,,,,,,z,mg00,,,,,n,,,,p

i have code this:

sub find() dim rfoundaddress range dim sfirstaddress string dim x long  thisworkbook.worksheets("sheet1").columns(1)     set rfoundaddress = .find("kap,*", lookin:=xlvalues, lookat:=xlwhole)     if not rfoundaddress nothing         sfirstaddress = rfoundaddress.address                     dim wrdarray() string             dim text_string string             dim string             dim k string             dim num long             text_string = rfoundaddress             wrdarray() = split(text_string, "kp,")             = left(wrdarray(1), 6)             k = left(wrdarray(2), 6)              columns("a").replace what:=i, _                         replacement:=k, _                         lookat:=xlpart, _                         searchorder:=xlbyrows, _                         matchcase:=false, _                         searchformat:=false, _                         replaceformat:=false              set rfoundaddress = .findnext(rfoundaddress)         loop while not rfoundaddress nothing , _             rfoundaddress.address <> sfirstaddress     end if end end sub

what trying do: find lines starting "kap" , save 6 chars/int after first "kp" , 6 chars/int after second "kp" k. search whole data-set (hundreds of rows in column a) if contain string , if yes, replace string k. , loop this. same line starting "kap". code gives me error message: subscript out of range when comes "columns("a")..." second time. can me please?

thank in advance

edited make searched string occurrences same ("kap,*")

you don't want modify (via replace()) range you're looping through

so collect needed replacements in array while looping through range , loop through array , make replacements

like follows:

option explicit  sub find()     dim rfound range     dim sfirstaddress string     dim val variant     dim nkap long      thisworkbook.worksheets("sheet1").columns(1)         nkap = application.worksheetfunction.countif(.cells, "kap,*") '<--| count occurrences of "kap,*"         if nkap > 0             redim vals(1 nkap) variant '<--| array collect find/replace couples             nkap = 0             set rfound = .find("kap,*", lookin:=xlvalues, lookat:=xlwhole)             sfirstaddress = rfound.address                             nkap = nkap + 1                 vals(nkap) = split(split(split(rfound.text, "kp")(1), ",")(1) & "," & split(split(rfound.text, "kp")(2), ",")(1), ",") '<--| store ith couple of find/replace values                 set rfound = .findnext(rfound)             loop while rfound.address <> sfirstaddress              each val in vals '<--| loop through values replaced array                 .replace what:=val(0), _                         replacement:=val(1), _                         lookat:=xlpart, _                         searchorder:=xlbyrows, _                         matchcase:=false, _                         searchformat:=false, _                         replaceformat:=false              next val         end if       end end sub  function getvalues(txt string) variant     if instr(txt, "kp") > 0 getvalues = split(split(split(txt, "kp")(1), ",")(1) & "," & split(split(txt, "kp")(2), ",")(1), ",") end function

Comments

Post a Comment

Popular posts from this blog

asynchronous - C# WinSCP .NET assembly: How to upload multiple files asynchronously -

i using winscp .net assembly uploading files. want upload multiple files asynchronous way. have created method works single upload. public class uploadingdata { private sessionoptions _sessionoptions; private session _session; //connection etc private void onconnected() { foreach (var fileinfo in localfileslist) { var task = task.factory.startnew(() => uploadfilesasync(fileinfo)); } } private async task uploadfilesasync(string file) { string remotefilepath = _session.translatelocalpathtoremote(file, @"/", "/test_data_upload"); var uploading = _session.putfiles(file, remotefilepath, false); //when done await task.run(() => thread.sleep(1000)); } } please suggest me correct way. thanks you can use backgroundworker class this: string[] images = new string[50]; foreach (var path in images) { backgroundworker
Read more

aws api gateway - SerializationException in posting new Records via Dynamodb Proxy Service in API -

i getting "__type": "com.amazon.coral.service#serializationexception" as reply in postman & in test console in api gateway trying post record directly dynamodb using api proxy services.. referring aws article - https://aws.amazon.com/blogs/compute/using-amazon-api-gateway-as-a-proxy-for-dynamodb/ here's mapping { "tablename": "tablenamegoeshere", "item": { "id" : "$context.requestid" "eventname" : "$input.path('$.eventname')", "timestamp" : $input.path('$.timestamp'), "answers": "$util.parsejson($input.path('$.answers'))" } } update: did asked ... , worked if try add array of json objects gives me above same error - here's trying now. please - couldnt find on google well #set($inputroot = $input.path('$')) { "tablename": "answer", "item": {
Read more

asp.net - Problems sending emails from forum -

i have been redesigning site has message board, has been written guy looked after site. it has few problems , written in .asp , uses .mdb files database. you can see whole thing here . feel free post if helps, test thing have set using original files , new database. the basic problem when posts message, supposed email sent them, have posted it. when replies, originator supposed message, replier has been posted. i’d have thought @ point in process there should script/file in postmessage.asp? the postmessage.asp page below. <% option explicit %> <!-- #include virtual="common/adovbs.inc" --> <html> <head> <meta http-equiv="content-type" content="text/html; charset=windows-1252"> <meta name="generator" content="microsoft frontpage 4.0"> <meta name="progid" content="frontpage.editor.document"> <title>new page 2</title> <base target="_self"
Read more