excel - After pasting an array, I want to paste a new array next to the first one -


i have automatic procedure works great

private sub worksheet_change(byval target range) if not intersect(target, range("a:a, l:l")) nothing     on error goto fìn     application.enableevents = false     dim long, n long     dim arrmatrix variant     redim arrmatrix(1 1, 1 1)     = 2 cells(rows.count, 1).end(xlup).row         if cells(i, 12).value = "pi emitida"             n = n + 1             redim preserve arrmatrix(1 1, 1 n)             arrmatrix(1, n) = cells(i, 1).value         end if     next     worksheets("inicio")         .range("g4:g" & rows.count).clearcontents         .range("g4").resize(ubound(arrmatrix, 2), 1) =      application.transpose(arrmatrix)     end end if fìn: application.enableevents = true end sub

my problem want same , paste different array in colum next first one, array must same if these conditions achieved:

dim hoy date hoy=date if cells(j, 12).value = "pi emitida" or cells(j, 12).value = "pi firmada" or       cells(j, 12).value = "carta credito l/c" or cells(j, 12).value = "con booking" , hoy - cells(j, 12).value >= 0  

private sub worksheet_change(byval target range)     dim long, n long, dim j long, m long     dim arrmatrix() variant, dim arrmatrix1() variant  if not intersect(target, range("a:a, l:l")) nothing     ' on error goto fìn 'commented find out line error - uncomment once fixed     application.enableevents = false      = 2 cells(rows.count, 1).end(xlup).row         if cells(i, 12).value = "pi emitida"             n = n + 1             redim preserve arrmatrix(1 1, 1 n)             arrmatrix(1, n) = cells(i, 1).value         end if          if (cells(i, 12).value = "pi emitida" or cells(i, 12).value = "pi firmada" or cells(i, 12).value = "carta credito l/c" or cells(i, 12).value = "con booking") , datediff(d, cells(i, 17).value, today) > 0             m = m + 1             redim preserve arrmatrix1(1 1, 1 m)             arrmatrix1(1, m) = cells(i, 1).value         end if     next     worksheets("inicio")         .range("g4:g" & rows.count).clearcontents         .range("g4").resize(ubound(arrmatrix, 2), 1) = application.transpose(arrmatrix)         .range("h4:h" & rows.count).clearcontents         .range("h4").resize(ubound(arrmatrix1, 2), 1) = application.transpose(arrmatrix1)     end end if   fìn: application.enableevents = true end sub

Comments

Post a Comment

Popular posts from this blog

java - Spring Data JPA: Why findOne(id) executing delete query internally? -

i have 1 application using @manytomany annotation link 2 different entities 1 parent entity. not sure if have implemented properly. when execute .findone() on parent entity's repository find it, @ first fetch data along executing delete queries internally delete record mapping table (a table jpa creates after adding @manytomany annotation.). following generated sql queries , code snippet: java class @entity @table(name = "inventory") public class inventory { @id long id; // many other properties @manytomany(fetch=fetchtype.lazy) private list<stream> streams; @manytomany(fetch=fetchtype.lazy) private list<subject> subjects; } there no other annotation i've put in stream , subject entity class link inventory class. when run app, create following tables: inventory stream subject inventory_stream inventory_subject (inventory_stream , inventory_subject, 2 tables created automatically, don't k...
Read more

python - Mongodb How to add addtional information when aggregating? -

i beginner , wrote line pipeline works, wanna add other information output, screen name , or number of tweets.i tried add under $group gave me syntax error everytime here pipeline: def make_pipeline(): # complete aggregation pipeline pipeline = [ { '$match': { "user.statuses_count": {"$gt":99 }, "user.time_zone": "brasilia" } }, { "$group": { "_id": "$user.id", "followers": { "$max": "$user.followers_count" } } }, { "$sort": { "followers": -1 } }, { "$limit" : 1 } ]; i using on example : { "_id" : objectid("5304e2e3cc9e684aa98bef97"), "text" : "first week of school on :p", "in_reply_to_status_id" : null, "retweet_count" : null, ...
Read more

java - Incorrect order of records in M-M relationship in hibernate -

Image
i have 4 records in bridge table in mysql database. using @manytomany in hibernate, accurate order of employees incorrect incorrect of projects. following required material figure out doing mistake. this source. @entity @table(name="project") public class projectbean { @id @generatedvalue @column(name="project_id") private int projectid; @column(name="title") private string projecttitle; @manytomany(mappedby="projects") private collection<employeebean> employees; public projectbean() { employees = new arraylist<employeebean>(); } //getters & setters } @entity @table(name="employee") public class employeebean { @id @generatedvalue @column(name="employee_id") private int employee_id; @column(name="first_name") private string ...
Read more