excel - Copy data from a worksheet to another stepping by 6 -

-

i have bit of problem : have 3 worksheets: 

 - a.xlsm,   - b.xlsm   - c.xlsm.

the worksheets have 1 sheet (sheet1) .the 3 worksheets fixed , not change. want copy cells

a.xlsm- f1, l1, s1, w1 (jumping 6 cells) b.xlsm-column h- h1, h2, h3, h4 , a.xlsm- f2, l2, s2, w2 copy in c.xlsm- column h- h1, h2, h3, h4.

any welcomed. thank you.

enter image description here

enter image description here

sub testcopydata()  dim wba workbook dim wbb workbook  set wba = activeworkbook set wbb = "\\hofs\mike1.xlsm"  dim sheeta worksheet dim sheetb worksheet  sheeta = wba.sheets("sheet1") sheetb = wbb.sheets("sheet1")  dim rowa integer dim lastrowa integer  lastrowa = sheeta.cells(sheeta.rows.count, 1).end(xlup).row  dim cola integer dim lastcola integer  lastcola = sheeta.cells(1, sheeta.columns.count).end(xltoleft).column

if strcomp(sheets("sheeta").cells(aa, 1).value, sheets("sheetb").cells(a, 1).value) = 0 then

for rowa = 1 lastrowa     cola = 1 lastcola         sheetb.cells(cola, "w").value = sheeta.cells(row, (cola * 6)).value     next cola next row  else: exit sub

end sub

i made test code below in witch put dates of year 1 one if filter found copy cell worksheet need doesn't work good. 

sub fetchdata3() sheets("sheet3").select     sheets("sheet2").range("a1:i50000").advancedfilter action:= _     xlfiltercopy, criteriarange:=range("j1:j2"), copytorange:=range("a1:i1"), _     unique:=false

end sub

i had time, made code can use start, you'll have add more data:

sub testcopydata()      dim wba workbook     dim wbb workbook     dim wbc workbook      set wba = "a.xlsm" 'you'll need open or define each workbook     set wbb = "b.xlsm"     set wbc = "c.xlsm"      dim sheeta worksheet     dim sheetb worksheet     dim sheetc worksheet      sheeta = wba.sheets("sheet1")     sheetb = wbb.sheets("sheet1")     sheetc = wbc.sheets("sheet1")      dim rowa integer     dim lastrowa integer      lastrowa = sheeta.cells(sheeta.rows.count, 1).end(xlup).row      dim cola integer     dim lastcola integer      lastcola = sheeta.cells(1, sheeta.columns.count).end(xltoleft).column      rowa = 1 lastrowa         cola = 1 lastcola             sheetb.cells(cola, "h").value = sheeta.cells(row, (cola * 6)).value         next cola     next row  end sub

this not tested , it's exception writes code here, know....


Comments

Post a Comment

Popular posts from this blog

Hatching array of circles in AutoCAD using c# -

-
i beginner in autocad plugins .i have created array of circle using following code. now, have hatch circles in array .how that??how hatch circles @ once? moreover, how can return hatch method , use hatch objects.sorry language.thanks in advance. [assembly: commandclass(typeof(beamsection.class1))] namespace beamsection { public class class1 { //class1 obj = new class1(); [commandmethod("beamatsupport")] public void addlightweightpolyline() { // current document , database document acdoc = application.documentmanager.mdiactivedocument; database accurdb = acdoc.database; promptpointresult ppr = acdoc.editor.getpoint("\nselect starting point "); var ucs = acdoc.editor.currentusercoordinatesystem; point3d startingpt = ppr.value.transformby(ucs); list<double> radius = new list<double>(); radius.add(0.5);
Read more

ios - UITEXTFIELD InputView Uipicker not working in swift -

-
hello trying pop uipickerview view programmatically when user clicks on textfield. have tried doesn't doing anything. isn't working. nothing happening when click textfield class userprofiletableviewcontroller: uitableviewcontroller,uitextfielddelegate,uipickerviewdelegate,uipickerviewdatasource { var itempicker: uipickerview! = uipickerview() @iboutlet weak var gendertxtfield: uitextfield! var gender = ["male","female"] override func viewdidload() { super.viewdidload() gendertxtfield.delegate = self itempicker!.delegate = self itempicker!.datasource = self itempicker!.backgroundcolor = uicolor.blackcolor() self.gendertxtfield.inputview = itempicker } func numberofcomponentsinpickerview(pickerview: uipickerview) -> int{ return 1 } // returns # of rows in each component.. func pickerview(pickerview: uipickerview, numberofrowsincomponent component:
Read more

Python Pig Latin Translator -

-
so have been working on @ codecademy.com while trying learn python. don't know if blind , can't see why won't work or what. here's code won't let me use. function print variable if had typed in , print "empty" if didn't type anything. print "welcome english pig latin translator!" original = raw_input("what's name?") if len(original) > 0 print original else print "empty" if len(original) > 0 else the above lines contains syntax errors. try: if len(original) > 0: else: note added colons, ( : ).
Read more