Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy user entered Range from one sheet to another
Hi,
I have a sheet with about 48 rows and columns with data from Row A to Row CD. When The macro runs I want to create a new sheet and copy the first 5 rows to the new sheet and give the user a way to choose the other row to copy to the new sheet. I am able to create the new sheet and to let the user select the rows to copy, buth the new sheet is blank. Could Somebody please help. Thx dpatwary |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy user entered Range from one sheet to another
Here is the code I have written.
Sub SpreadWorkAssgmnt() Dim RowToBeCopied As Range 'This line of code is optional Dim wSht As Worksheet Dim ResultWSht As Worksheet Dim shtName As String Dim Last As Long Set Rng = Application.InputBox(prompt:="Select Column to Work on", Type:=8) Rng.Select shtName = Format(Now, "mmmm_yyyy") For Each wSht In Worksheets If wSht.Name = shtName Then MsgBox "Sheet already exists...Make necessary " & _ "corrections and try again." Exit Sub End If Next wSht Set ResultWSht = ThisWorkbook.Worksheets.Add ResultWSht.Name = shtName Set wSht = ActiveSheet wSht.Range("A1").Copy ResultWSht.Range ("A1:CD5") MsgBox "I am at the END" End Sub Thanks wrote: Hi, I have a sheet with about 48 rows and columns with data from Row A to Row CD. When The macro runs I want to create a new sheet and copy the first 5 rows to the new sheet and give the user a way to choose the other row to copy to the new sheet. I am able to create the new sheet and to let the user select the rows to copy, buth the new sheet is blank. Could Somebody please help. Thx dpatwary |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
user input decides cell copy range | Excel Programming | |||
user input decides cell copy range | Excel Discussion (Misc queries) | |||
How do I edit a selected range then copy the range into an new sheet??? | Excel Programming | |||
User form browsing for a range on a sheet? | Excel Programming | |||
Copy from User form to Sheet macro | Excel Programming |