Excel VBA- Modify code so data transferred from 'Invoice' sheet to 'Sales Book' sheet save to a different workbook instead -


i have code, sends data 'invoice' sheet 'sales book' sheet, after consideration feel beneficial have data sent different workbook altogether. how implement using code below (as took me ages far!!). here code- original question. solved , updated below-

the code below works. last issue resolve fact data copied on copies on empty item rows. found simple solution copy code below pic here. it's auto run vba code deletes row if there no data in cell. help. feel invincible!

sub sendtosales() dim wb workbook  '''! dim currentwb workbook  '''! dim wbloc string  '''! dim rng range dim long dim long dim rng_dest range application.screenupdating = false wbloc = "c:\salestracker.xlsm"  '''! location of workbook, trimmed down public view set currentwb = excel.thisworkbook  '''! set wb = workbooks.open(wbloc)   '''! opens workbook = 1 set rng_dest = wb.sheets("salestracker").range("d:f") '''! change sheets() whichever sheet want use  ' find first empty row in columns d:f on sheet sales book until worksheetfunction.counta(rng_dest.rows(i)) = 0    = + 1 loop  'copy range a23:d27 on sheet invoice variant array set rng = currentwb.sheets("invoice").range("a23:d27") '''!  ' copy rows containing values sheet sales book = 1 rng.rows.count if worksheetfunction.counta(rng.rows(a)) <> 0   rng_dest.rows(i).value = rng.rows(a).value   wb.sheets("salestracker")  '''! change sheets() whichever sheet want use      'copy invoice number      .range("b" & i).value = currentwb.sheets("invoice").range("c18").value '''!      'copy date      .range("a" & i).value = currentwb.sheets("invoice").range("c15").value '''!      'copy company name      .range("c" & i).value = currentwb.sheets("invoice").range("a7").value '''!   end  '''!   = + 1 end if next  wb.close savechanges:=true  '''! wil close workbook , save changes  set wb = nothing  '''! cleaning memory set currentwb = nothing  '''! cleaning memory application.screenupdating = true  end sub

image of invoice , salestracker comments in red, , problem bit on saletracker greyed-out

here code deletes rows have no data in cell, f in case-

sub killemptyf() on error resume next columns("f").specialcells(xlcelltypeblanks).entirerow.delete end sub

and here code auto run module whenever workbook opened- 

sub auto_run() run ("killemptyf") end sub

something should work. i've added/edited i've marked '''!.

sub sendtosales() dim wb workbook  '''! dim currentwb workbook  '''! dim wbloc string  '''! dim rng range dim long dim long dim rng_dest range application.screenupdating = false wbloc = "c:\documents\salestracker.xlsm"  '''! location of workbook set currentwb = excel.thisworkbook  '''! set wb = workbooks.open(wbloc)   '''! opens workbook = 1 set rng_dest = wb.sheets(1).range("d:f") '''! change sheets() whichever sheet want use  ' find first empty row in columns d:f on sheet sales book until worksheetfunction.counta(rng_dest.rows(i)) = 0    = + 1 loop  'copy range a23:d27 on sheet invoice variant array set rng = currentwb.sheets("invoice").range("a23:d27") '''!  ' copy rows containing values sheet sales book = 1 rng.rows.count if worksheetfunction.counta(rng.rows(a)) <> 0   rng_dest.rows(i).value = rng.rows(a).value   wb.sheets(1)  '''! change sheets() whichever sheet want use      'copy invoice number      .range("b" & i).value = currentwb.sheets("invoice").range("c18").value '''!      'copy date      .range("a" & i).value = currentwb.sheets("invoice").range("c15").value '''!      'copy company name      .range("c" & i).value = currentwb.sheets("invoice").range("a7").value '''!   end  '''!   = + 1 end if next  wb.close savechanges:=true  '''! wil close workbook , save changes  set wb = nothing  '''! cleaning memory set currentwb = nothing  '''! cleaning memory application.screenupdating = true  end sub

Comments

Post a Comment

Popular posts from this blog

python Tkinter Capturing keyboard events save as one single string -

is possible store keyboard events 1 string? code below stores 1 char , prints it. card reader or bar code reader, contains collection of character/ string not 1 character @ time. goal save char pressed text variable. from tkinter import * root = tk() def key(event): text= event.char text+= event.char print ("pressed", text) def callback(event): frame.focus_set() print ("clicked at", event.x, event.y) frame = frame(root, width=100, height=100) frame.bind("<key>", key) frame.bind("<button-1>", callback) frame.pack() root.mainloop() currently, creating text variable , everytime key() function gets called, , text stores last character typed. you can define text module level variable , , use module level text inside key function - text = '' def key(event): global text text+= event.char print("pressed", text)
Read more

android - InAppBilling registering BroadcastReceiver in AndroidManifest -

i'm implementing inapp billing in android app. works well, however, i'm trying decouple broadcast receiver activity manifest. suggestion in android's trivialdrive sample: // important: dynamically register broadcast messages updated purchases. // register receiver here instead of <receiver> in manifest // because call getpurchases() @ startup, therefore can ignore // broadcasts sent while app isn't running. // note: registering listener in activity bad idea, done here // because sample. regardless, receiver must registered after // iabhelper setup, before first call getpurchases(). currently there's class extends broadcastreceiver : public class iabbroadcastreceiver extends broadcastreceiver { /** * intent action receiver should filter for. */ public static final string action = "com.android.vending.billing.purchases_updated"; private final iabbroadcastlistener mlistener; public iabbroadcastreceiver(iabbroadcastlistener listener) { m
Read more

javascript - Z-index in d3.js -

i have map , when hover effect on region of map below yellow line , circle, last ones disappear. how can solve problem? http://jsfiddle.net/ot21n9qx/ var arc = g.append("path") .style("fill", "none") .style("stroke", "yellow") .style("stroke-width", 2) .attr("d", "m" + pathorigin[0] + "," + pathorigin[1] + " q" + svgpoint[0] + "," + pathorigin[1] + " " + svgpoint[0] + "," + svgpoint[1]); var circlesize = d3.scale.linear() .domain([0, 0.5, 1]) .range([4, 10, 4]); svg not have z order draws objects in order created. need create path , circle after create highlight regions. here forked fiddle: http://jsfiddle.net/o00fzgaf/1/
Read more