Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 3
Default Copy and paste to other worksheets

I have 4 worksheets within 1 workbook that I track issues by area. Currently
I fill out a main worksheet first and then copy and paste the specific range
to another worksheet based on that area. Does anyone know of a code that I
could use to copy a range and paste it to the designated worksheet based on
specific criteria. Ex. Column "K" has 1 letter in each cell and there is only
3 letters you can use there. L,P, or S. Based on those letters, that would
indicate moving the range to the worksheet for that letter. Please let me
know of any ideas.

Thank you,
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 8,520
Default Copy and paste to other worksheets

With sheetnames L, P and S; try the below macro...

Sub CopyRowstoDifferentSheets()
Dim wb As Workbook, ws1 As Worksheet, ws2 As Worksheet
Dim lngRow As Long, lngLastRow1 As Long, lngLastRow2 As Long
Set wb = ActiveWorkbook
Set ws1 = wb.Sheets("Main")
lngLastRow1 = ws1.Cells(Rows.Count, "K").End(xlUp).Row
For lngRow = 2 To lngLastRow1
Set ws2 = wb.Sheets(CStr(ws1.Range("K" & lngRow)))
lngLastRow2 = ws2.Cells(Rows.Count, "K").End(xlUp).Row
ws1.Rows(lngRow).Copy ws2.Rows(lngLastRow2 + 1)
Next
End Sub



--
Jacob (MVP - Excel)


"jrrock26" wrote:

I have 4 worksheets within 1 workbook that I track issues by area. Currently
I fill out a main worksheet first and then copy and paste the specific range
to another worksheet based on that area. Does anyone know of a code that I
could use to copy a range and paste it to the designated worksheet based on
specific criteria. Ex. Column "K" has 1 letter in each cell and there is only
3 letters you can use there. L,P, or S. Based on those letters, that would
indicate moving the range to the worksheet for that letter. Please let me
know of any ideas.

Thank you,

  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 1,522
Default Copy and paste to other worksheets

If desired, send your file to my address below. I will only look if:
1. You send a copy of this message on an inserted sheet
2. You give me the newsgroup and the subject line
3. You send a clear explanation of what you want
4. You send before/after examples and expected results.


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"jrrock26" wrote in message
...
I have 4 worksheets within 1 workbook that I track issues by area.
Currently
I fill out a main worksheet first and then copy and paste the specific
range
to another worksheet based on that area. Does anyone know of a code that I
could use to copy a range and paste it to the designated worksheet based
on
specific criteria. Ex. Column "K" has 1 letter in each cell and there is
only
3 letters you can use there. L,P, or S. Based on those letters, that would
indicate moving the range to the worksheet for that letter. Please let me
know of any ideas.

Thank you,


Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Copy and paste a name list across worksheets chungacs Excel Discussion (Misc queries) 2 June 14th 08 07:39 AM
copy multiple worksheets of a workbook, and paste onto a Word document ( either create new doc file or paste onto an existing file.) I need this done by VBA, Excel Macro Steven Excel Programming 1 October 17th 05 08:56 AM
Copy and Paste between 2 worksheets with VBA Dave Y Excel Worksheet Functions 2 June 15th 05 03:47 PM
copy/paste data between worksheets Anthony Excel Discussion (Misc queries) 0 February 5th 05 12:31 AM
Copy/Paste to all Worksheets sharon Excel Programming 2 February 11th 04 04:42 PM


All times are GMT +1. The time now is 05:28 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"