excel - VBA - Copy specific value from one sheet column to next sheet row -


i need please, have 2 sheet, in first sheet record time against different numbers (1 50), want copy time stamp on new sheet against same number. sheet 1: sheet 1 example

sheet 2: sheet 2 example

please vba code done automatically.

sub mytry() dim lrow long dim lrow1 long dim time1 date  sheets("time").select  lrow = range("a" & rows.count).end(xlup).row  icntr = 2 lrow  num1 = cells(icntr, 1)      sheets("rec").select     lrow1 = range("a" & rows.count).end(xlup).row     icntr2 = 2 lrow1         if cells(icntr2, 1) = num1             time1 = cells(icntr2, 2)             sheets("time").select             t1 = 2 20             if cells(icntr, t1) = ""             cells(icntr, t1) = time1             end if             goto 1              next t1              1             sheets("rec").select          end if       next icntr2  sheets("time").select next icntr

end sub

this isn't prettiest thing i've done, i'm going try...

you may want think adding few variables, since know items going on sheets("rec"):

dim integer dim lrow long 'specific sheets("time") dim lc1 long, lc2 long, lc3 long 'up lc9 in example last column row #

taking have , rolling it, loop through sheets("time"):

lrow = sheets("time").range("a" & sheets("time").rows.count).end(xlup).row  = 2 lrow

i recommend avoiding sheet select @ start , specifying sheets name go, or using statements (the latter might not work smoothly path i'm going select case).

you can use select case inside of loop equivalent number count, e.g., 9 example.

select case cells(i,1).value  case 1    lc1=sheets("rec").cells(2, sheets("rec").columns.count).end(xltoleft).column     sheets("time").cells(i,2).copy sheets("rec").cells(2,lc1)  case 2    lc2=sheets("rec").cells(3, sheets("rec").columns.count).end(xltoleft).column     sheets("time").cells(i,2).copy sheets("rec").cells(3,lc2)  case 3    lc3=sheets("rec").cells(4, sheets("rec").columns.count).end(xltoleft).column     sheets("time").cells(i,2).copy sheets("rec").cells(4,lc3)  end select

then should able have run pretty smooth, making sure next i. comes looking like:

dim integer dim lrow long  dim lc1 long, lc2 long, lc3 long   lrow1 = sheets("time").range("a" & sheets("time").rows.count).end(xlup).row  = 2 lrow  select case cells(i,1).value  case 1    lc1=sheets("rec").cells(2, sheets("rec").columns.count).end(xltoleft).column     sheets("time").cells(i,2).copy sheets("rec").cells(2,lc1)  case 2    lc2=sheets("rec").cells(3, sheets("rec").columns.count).end(xltoleft).column     sheets("time").cells(i,2).copy sheets("rec").cells(3,lc2)  case 3    lc3=sheets("rec").cells(4, sheets("rec").columns.count).end(xltoleft).column     sheets("time").cells(i,2).copy sheets("rec").cells(4,lc3)  end select  next

Comments

Post a Comment

Popular posts from this blog

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

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

sql server - Why does Linq-to-SQL add unnecessary COUNT()? -

here tables: create table customer ( cid int primary key, name varchar(32) ) create table ord ( oid int primary key, cid int foreign key references customer, address varchar(20) ) here's linq-to-sql statement: var aaa = c in db.customer select new { c, o = c.ord.tolist() }; and here's inexplicable query generated linq-to-sql: select [t0].[cid] [cid], [t0].[name] [name], [t1].[oid] [oid], [t1].[cid] [cid2], [t1].[address] [address], (select count(*) [dbo].[ord] [t2] [t2].[cid] = [t0].[cid]) [value] [dbo].[customer] [t0] left outer join [dbo].[ord] [t1] on [t1].[cid] = [t0].[cid] order [t0].[cid], [t1].[oid] i want understand how rid of count(*) part. it's entirely uncalled for! linq needs count(*) in order determine number of entries returned o = c.ord.tolist() .
Read more