Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
code back to worksheet
I have written some code which goes through a series of worksheets which are
all the same except the name is different peoples intials. The code opens each sheet and highlights the errors, I am trying to copy these errors into a summary/report sheet. The code goes through each row and when it finds an error jumps into the copying sub. I have got the code copying the errors into a report template sheet but can't get the code to jump back into the previously active worksheet, where the data/errors have been copied from to carry on looking for more errors and go through other sheets. once it finds an error... (i know there's errors in the code only rough/ quick) Range("A" & i : "L" & i).select Copy.selecction Call report sheets("summary").select -code to find the last row- paste.selection -now go back to last active sheet???- Any help? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
code back to worksheet
It is looking at each sheet you named in the array it is looking down col a for any value not equal to 1 When found those values are copied to the next available row in sheet1 Try it -- Don Guillett Microsoft MVP Excel SalesAid Software "project manager" wrote in message ... not too sure i get this, could you put a couple of notes to show what it does at the major sections? thanks "Don Guillett" wrote: You should ALWAYS post your code for comments but you may like this idea. Sub foreachwsinarray() myarray = Array("sheet2", "sheet3") For Each sh In myarray For Each c In Sheets(sh).Range("a2:a22") With Sheets("sheet1") If c < 1 Then lr = .Cells(Rows.Count, 1).End(xlUp).Row + 1 c.EntireRow.Copy .Cells(lr, 1) End If End With Next c Next sh End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "project manager" wrote in message ... I have written some code which goes through a series of worksheets which are all the same except the name is different peoples intials. The code opens each sheet and highlights the errors, I am trying to copy these errors into a summary/report sheet. The code goes through each row and when it finds an error jumps into the copying sub. I have got the code copying the errors into a report template sheet but can't get the code to jump back into the previously active worksheet, where the data/errors have been copied from to carry on looking for more errors and go through other sheets. once it finds an error... (i know there's errors in the code only rough/ quick) Range("A" & i : "L" & i).select Copy.selecction Call report sheets("summary").select -code to find the last row- paste.selection -now go back to last active sheet???- Any help? |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
code back to worksheet
Use a separate procedure to write the summary and pass the activesheet as an
argument like shown below...I have used your code only...Please try and feedback Sub <YourProcedure ' check Range("A" & i : "L" & i).select Copy.selecction Call WriteSummary(ActiveSheet) 'continue End Sub Sub WriteSummary(wsTemp as Worksheet) 'Procedure to write to summary. Source sheet passed as argument Sheets("summary").select -code to find the last row- Paste.selection -now go back to last active sheet???- wsTemp.Activate End Sub If this post helps click Yes --------------- Jacob Skaria "project manager" wrote: I have written some code which goes through a series of worksheets which are all the same except the name is different peoples intials. The code opens each sheet and highlights the errors, I am trying to copy these errors into a summary/report sheet. The code goes through each row and when it finds an error jumps into the copying sub. I have got the code copying the errors into a report template sheet but can't get the code to jump back into the previously active worksheet, where the data/errors have been copied from to carry on looking for more errors and go through other sheets. once it finds an error... (i know there's errors in the code only rough/ quick) Range("A" & i : "L" & i).select Copy.selecction Call report sheets("summary").select -code to find the last row- paste.selection -now go back to last active sheet???- Any help? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
code back to worksheet | Excel Programming | |||
Print worksheet 2 on back of worksheet 1, etc.... | Excel Discussion (Misc queries) | |||
importing back code modules | Excel Programming | |||
excel 2002 wont accept my code on back of disk | New Users to Excel | |||
code to strip back (from the right) a directory but not the file name | Excel Programming |