On Apr 26, 6:55*pm, "Cimjet" wrote:
Correction, you're 74, I'm 64

"Cimjet" wrote in message

...



Hi Don
"Homework" O God !!! I'm older then you , LOL "I'm retired"
I can't use the recorder, I know my question is poorly phrased, let me try to
explain.
A worksheet is filled by a Userform, Column C is the name of a Tab, there's 12
Tabs.
As each line is filled on the Input sheet, I would like to send "copy"that row
to its appropriate sheet.
So it's got to find last entry then paste below it.
Sorry if this is not better, let me know.
Cimjet

"Donald Guillett" wrote in message
....
On Apr 26, 6:00 pm, "Cimjet" wrote:
Hi Everyone
I'm trying to do this:
"Lookup last entry in Colomn C on "Input sheet" find Tab with same name then
copy last row from Input sheet to that Tab below last entry.
I don't know if its clear but it's way over my head.
Hope someone can help.
Thank you
Cimjet

Homework??
Record a macro while doing and clean it up.- Hide quoted text -

- Show quoted text -

Just turned 75 on income tax day. Should do it from anywhere in the
active workbook.

Sub findandcopy()
Set SS = Sheets("input sheet")
MV = SS.Cells(Rows.Count, "c").End(xlUp).Row
MS = SS.Cells(MV, "C")

With Sheets(MS)
LR = .Cells.Find("*", Cells(Rows.Count, Columns.Count) _
, , , xlByRows, xlPrevious).Row + 1
MsgBox LR
SS.Rows(MV).Copy .Cells(LR, "a")
End With
End Sub