Copy data in column based on cell value

[oakman]

Greetins to all,
I would like to THANK all in advance for your generous help. This is
my question. I have a file with two spreadsheets - INPUT and
INCS&DECS. On row 4 of "INCS&DECS", i have an IF statement to show the
word "Total" when appropriate. I would like to copy data for rows 6 to
30 from the "INCS&DECS" spreadsheet to a specified area in the "INPUT"
sheet whenever the word "Total" appears in row 4 in the "INCS&DECS"
sheet. I am still an absolute beginner, although I have tried in the
past - slow learner. Therefore, I am ashamed to say that I don't even
have a piece of code to show for because I don't even know where to
begin.

I would be greatful for any help with this problem. Thanks again!

 

[Tom Ogilvy]

Data appears in cells - not rows or do you mean any cell in row 4 may
contain the word total. If so, then do you mean you only want to copy data
from that column for rows 6 to 30.

What makes total appear. Is this due to a formula, so the calculate event
would need to be used as a trigger. Or does someone hand enter the word
total.

If the whole of rows 6 to 300 are not copied, but only a single column, if
total appeared in a new column in row 4, would the new column's data
overwrite the original data from old column that contained total?

worksheets("INCS&DECS").rows("6:30").copy _
Destination:=worksheets("Input").Range("A50")

would copy the whole of rows 6 through 30.

 

[Guest]

''select the sheet where total appears
sheets("INCS&DECS").select
If range("A4").value="Total" then
rows(6:30).copy
' select the sheet you want to copy from
sheets("INPUT").select
'select destination and paste
INPUT.Range("A5").Select
activecell.pastespecial