copying row

[nishkrish]

when i input a value in certain in column e1 i want that row to be copied to
a different worksheet on a perticular sheet.

i have a woorksheet name activity in column e i input agent no. i have
different worksheet called agent in that worksheet ihave tabs 1,2,3,4, and so
on till 100 i want when i input say no. 5 in activity sheet in column e the
data for that row ranganging from column a to aa should be copied to
worksheet agent.

is it posibble?

 

[rajan deshpande]

simply use macro. copy the row open your sheet where you want to paste.
place this code in thisworkbook & worksheet change event targeted to e1 cell.
rajan



nishkrish wrote:

copying row
22-Oct-09

when i input a value in certain in column e1 i want that row to be copied to
a different worksheet on a perticular sheet.

i have a woorksheet name activity in column e i input agent no. i have
different worksheet called agent in that worksheet ihave tabs 1,2,3,4, and so
on till 100 i want when i input say no. 5 in activity sheet in column e the
data for that row ranganging from column a to aa should be copied to
worksheet agent.

is it posibble?
--
Nisha P

Previous Posts In This Thread:

EggHeadCafe - Software Developer Portal of Choice
BOOK REVIEW: Silverlight 2 Unleashed / Bugnion [SAMS]
http://www.eggheadcafe.com/tutorial...f9b-d99c0d78cae8/book-review-silverlight.aspx

 

[muddan madhu]

I assumed you has 1 to 100 sheets.

in sheet1 col E, if you input value between 2 to 100 in any of the col
E row,
then from cell A:AA needs to copied and paste into respecitve sheets.

right click on sheet name, view code and paste the below code

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column <> 5 Or Target.Value = "" Then Exit Sub
A = ActiveSheet.Name
T = Target.Value
rowl = Target.Row
Rng = Sheets(T).Cells(Rows.Count, "A").End(xlUp).Row
Range("A" & rowl & ":AA" & rowl).Copy Sheets(T).Range("A" & Rng + 1)
Sheets(A).Select
Application.CutCopyMode = False

End Sub