Copy row from one worksheet to another
Closed
PMYC
-
Aug 11, 2009 at 01:07 PM
kaiyasit Posts 30 Registration date Sunday August 9, 2009 Status Member Last seen April 20, 2010 - Aug 18, 2009 at 11:40 PM
kaiyasit Posts 30 Registration date Sunday August 9, 2009 Status Member Last seen April 20, 2010 - Aug 18, 2009 at 11:40 PM
Related:
- Copy row from one worksheet to another
- Transfer data from one excel worksheet to another automatically - Guide
- Saints row 2 cheats - Guide
- How do you add a username or author to a worksheet - Guide
- How to delete row in word - Guide
- Automatically run a macro when opening a worksheet - Guide
3 responses
kaiyasit
Posts
30
Registration date
Sunday August 9, 2009
Status
Member
Last seen
April 20, 2010
12
Aug 12, 2009 at 06:12 AM
Aug 12, 2009 at 06:12 AM
First question, you can use VLOOKUP()
Second question, i don't understand.
Second question, i don't understand.
Sorry
This is all in one workbook. I have in my "master" worksheet. First row Column head names:
Id First Name Last Name Address City State Zip Phone Age Birthday
L/B Returnee Parent Name School Team Weight E-mail .
ok now I type all your info including the team you were on last year, say the Steelers. I need to have that line copied to another worksheet (same workbook) named "Steelers" next empty row in that worksheet or if I typed nothing for team, I would need to copy that row to a worksheet name "New" or "New Player" to the next empty row on that worksheet. But can it be done automatically?
Thank you this is for a non profit org.
www.pmycsports.com
PMYC
This is all in one workbook. I have in my "master" worksheet. First row Column head names:
Id First Name Last Name Address City State Zip Phone Age Birthday
L/B Returnee Parent Name School Team Weight E-mail .
ok now I type all your info including the team you were on last year, say the Steelers. I need to have that line copied to another worksheet (same workbook) named "Steelers" next empty row in that worksheet or if I typed nothing for team, I would need to copy that row to a worksheet name "New" or "New Player" to the next empty row on that worksheet. But can it be done automatically?
Thank you this is for a non profit org.
www.pmycsports.com
PMYC
kaiyasit
Posts
30
Registration date
Sunday August 9, 2009
Status
Member
Last seen
April 20, 2010
12
Aug 18, 2009 at 11:40 PM
Aug 18, 2009 at 11:40 PM
Sorry......i'm very late...
Try to use below code....it may be help you
Sub TEST()
Dim Team As String
Dim Match As Boolean
Team = Sheets("Master").Range("N2")
Match = False
For Each b In Worksheets
If UCase(b.Name) = UCase("master") Then GoTo g
If UCase(Team) = UCase(b.Name) Then
Match = True
Call Copy1(b.Name)
Else
Match = False
End If
Debug.Print b.Name
g:
Next b
End Sub
Private Sub Copy1(ByVal SName As String)
Dim i As Integer
i = 2
Do Until Sheets(SName).Cells(i, 1) = "" Or Sheets(SName).Cells(i, 1) = Null
i = i + 1
Loop
Worksheets("Master").Range("A2:P2").Copy Destination:=Worksheets(SName).Range("A" & i)
End Sub
Try to use below code....it may be help you
Sub TEST()
Dim Team As String
Dim Match As Boolean
Team = Sheets("Master").Range("N2")
Match = False
For Each b In Worksheets
If UCase(b.Name) = UCase("master") Then GoTo g
If UCase(Team) = UCase(b.Name) Then
Match = True
Call Copy1(b.Name)
Else
Match = False
End If
Debug.Print b.Name
g:
Next b
End Sub
Private Sub Copy1(ByVal SName As String)
Dim i As Integer
i = 2
Do Until Sheets(SName).Cells(i, 1) = "" Or Sheets(SName).Cells(i, 1) = Null
i = i + 1
Loop
Worksheets("Master").Range("A2:P2").Copy Destination:=Worksheets(SName).Range("A" & i)
End Sub
