Excel, VBA and moving rows -

-

i rookie re: vba , macros (creating or running). need assistance code me copy row 1 spreadsheet another, leaving in original sheet , marking somehow (i think), or otherwise ensuring it's not copied again in future. found few posts moving rows, relied on date entry, not work purpose. sheet has column (h) drop down data validation - entry cell drop down identify row 1 copy next sheet. however, there column follows (j), data entry optional, , don't want row copied before giving user opportunity enter column, it's contents copy (or maybe that's set of separate code?). rows copied new spreadsheet should inserted next available row. thank assistance & instructions can offer.

okay - info. have gathered posts, have following:

sub copyrows() dim xrow integer, xcol integer, lastcol integer dim datavalidation range, rowtocopy integer, copyrange range, destrange range dim copywsrow integer, jcolvalue string dim origws worksheet, copyws worksheet  set origws = activesheet  ' edit these 2 lines needed.  if have "copy" worksheet already, comment out first line ' , change 'sheets("copy")' 'sheets("_____")' worksheets.add(after:=worksheets(1)).name = "copy" set copyws = sheets("copy")  origws.activate  set datavalidation = origws.cells(1, 8) ' cell h1 has data validation.  change necessary rowtocopy = datavalidation.value  'find last column used, isn't col. h.  if it's column h, assume g last column lastcol = origws.cells(1, 1).end(xltoright).column if lastcol = 8 lastcol = lastcol - 1  origws set copyrange = .range(.cells(rowtocopy, 1), .cells(rowtocopy, lastcol)) end  'what's next available row in copy ws? if copyws.usedrange.rows.count = 1 , copyws.cells(1, 1).value = ""     copywsrow = 1 else     copywsrow = copyws.usedrange.rows.count + 1 ' count used rows, , add 1 make next blank row row copy end if 'set destination range  copyws set destrange = .range(.cells(copywsrow, 1), .cells(copywsrow, lastcol)) end  'now, copy info on (technically, set values equal) destrange.value = copyrange.value  'now, check see if column j has info - if so, add line did in copy ws if origws.cells(1, 10).value <> ""     jcolvalue = origws.cells(1, 10).value     copyws.cells(copywsrow, 10).value = jcolvalue end if     ' add note row copied     origws.cells(rowtocopy,13).value = "already copied"      end sub

a few notes: have assumed right column, data want copy, column g - since h has row value.

also, have h1 cell has data validation - might need edit necessary.

i tested data, in column through g, h1 , j1 being data validation (where outputs number) , j1 "extra" information. if want 'extra info' on each row of data, , not in 1 absolute spot, change jcolvalue formula jcolvalue = origws.cells(rowtocopy,10).value.

and of course, if doesn't work or needs tweaking, let me know.


Comments

Post a Comment

Popular posts from this blog

c++ - No viable overloaded operator for references a map -

-
i trying use map can make tag names reference number. when try , use it, in code error (6 in total every time reference map): src/main.cpp:25:45: error: no viable overloaded operator[] type 'std::map<std::string, std::string>' const char* idcs = node.child_value(tagmap[3]); this code: #include "pugi/pugixml.hpp" #include <iostream> #include <string> #include <map> int main() { pugi::xml_document doca, docb; std::map<std::string, pugi::xml_node> mapa, mapb; std::map<std::string, std::string> tagmap {{"1", "data"}, {"2", "entry"}, {"3", "id"}, {"4", "content"}}; if (!doca.load_file("a.xml") || !docb.load_file("b.xml")) { std::cout << "can't find input files"; return 1; } (auto& node: doca.child(tagmap[1]).children(tagmap[2])) { co
Read more

java - Custom OutputStreamAppender not run: LOGBACK: No context given for <MYAPPENDER> -

-
i wish write custom appender on basis of outputstreamappender . wrote following class package tests; import java.io.ioexception; import java.io.outputstream; import ch.qos.logback.core.outputstreamappender; public class myappender<e> extends outputstreamappender<e> { public myappender() { system.out.println("myappender created"); setoutputstream(new outputstream() { @override public void write(int b) throws ioexception { throw new unsupportedoperationexception(); } }); } } then wrote following runner: package tests; import org.slf4j.loggerfactory; import ch.qos.logback.classic.logger; public class runner { private static final logger log = (logger) loggerfactory.getlogger(runner.class); public static void main(string[] args) { //log.addappender(new myappender<iloggingevent>()); log.info("hello world"); } } finall
Read more

java - Cannot secure connection using TLS -

-
i'm trying establish secure socket connection between java client applet (built jdk 1.7.0_75-b13) , vc++ server application. as test vehicle, used vc++ client/server sample found in msdn forums, modified use schannel , able establish socket using cipher suite tls_rsa_with_aes_128_cbc_sha. works of tls 1.0/1.1/1.2. when try opening socket java applet same server application, connection rejected server reporting following: tls 1.0 acceptsecuritycontext failed: 0x80090327 tls 1.1 acceptsecuritycontext failed: 0x80090331 tls 1.2 acceptsecuritycontext failed: 0x80090331 this java code used create socket: debugprint("setting secure connection"); sslsocketfactory sslsocketfactory = (sslsocketfactory) sslsocketfactory.getdefault(); sslsocket sslsocket = (sslsocket) sslsocketfactory.createsocket("127.0.0.1", socketnumber); debugprint("starting handshake"); sslsocket.settcpnodelay(true); sslsocket.setsolinger(false, 0); sslsocket.s
Read more