Copy rows between different sheets if condition met

[AUCP03]

I have an assignment tracker. The data is in 9 columns (A-I). Everything is
in a list
and I want it to stay that way. What I want to happen though is that every
time
a new row is added to the Worksheet "Master" is that worksheets called
different names are populated with the same information in the same
format,just in the different worksheet, at the bottom of the list, but also
in a list. All the columns are data columns from A to I. Coloumn A is a
Hyper link manually input and I would like it to stay a hyperlink after it is
copied over. The Name is always entered in coloumn I. Currently there are 8
other name worksheets, but more may be added later.

So is there a way to say if row X column I in worksheet "Master" is "Tom"
then worksheet "Tom" will have the next available row(next available) = row X
from "Master"?
Where row X is the newly input data in worksheet "Master"

 

[Ron de Bruin]

Hi AUCP03

Maybe you can play with the code on this page
http://www.rondebruin.nl/copy5.htm#below

 

[AUCP03]

Ron de Bruin

Thank you for the response, however I think that all of that is a lot over
my head. I will see what I can come up with, but I was hoping for a much
easier solution and possibly one that did not involve VB.

 

[AUCP03]

Ron de Bruin

I have been tinkering with your program
Create a new sheet for all Unique values or paste it below the
existing data if the sheet exists

and it runs up until the line
'Filter the range
rng.AutoFilter Field:=FieldNum, Criteria1:="=" & cell.Value

Then it buggs out. I do not understand this line, however from the limited
knowledge I have the Criteria1:="=" seems like it would be looking for a
value "=" Is that right, if so how do I get it to go back and search for
the correct value?

 

[Ron de Bruin]

It will filter on the cell values of the column you choose (FieldNum)

Is the sheet name, sheet range and field num correct in the code?


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm

 

[AUCP03]

I have played with that a bit as I thought it might have been causing me some
problems.

Set ws1 = Sheets("ISSUED IN 2009")

'This is the sheet name with my data, I copied this from the tab to ensure I
got it right.

Set rng = ws1.Range("A2:I" & Rows.Count)

'My Sheet has one large header in row 1, I have column headers in row 2, and
the data itself starts in row 3 and continues down from there. The list
starts in row 2 and emcompases all my data.

FieldNum = 9

'I want it to run based on the names in column I, which as I understand it
is FieldNum 9

Thank you for your continued assistance with this.