#1   Report Post  
Posted to microsoft.public.excel.misc
Wu Wu is offline
external usenet poster
 
Posts: 36
Default difficult question

I want to write a marco that to copy few specified rows from sheet 1 to sheet
2:
.................................................. .................................................. ....
R=Inputbox("pls input the first row number")
R1=inputbox("pls input the last row number")

Rows(R:R1).Select
Selection.Copy
Sheets("Sheet2").Select
ActiveSheet.Paste

.................................................. .................................................. ......

But, the above macro is not work at "Rows(R:R1).Select", I would like to use
inputbox to enter specified number of row to copy from sheet1 to sheet2. How
to do that???

  #2   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
 
Posts: 4,624
Default difficult question

One way:

Dim vFirst As Variant
Dim vLast As Variant

Do
vFirst = Application.InputBox( _
Prompt:="Please input the first row number", _
Title:="Copy Rows", _
Default:=1, _
Type:=1)
If vFirst = False Then Exit Sub 'user cancelled
Loop Until (vFirst = 1) And (vFirst <= Rows.Count)
Do
vLast = Application.InputBox( _
Prompt:="Please input the last row number", _
Title:="Copy Rows", _
Default:=vFirst, _
Type:=1)
If vLast = False Then Exit Sub 'user cancelled
Loop Until (vLast = vFirst) And (vLast <= Rows.Count)
ActiveSheet.Rows(vFirst & ":" & vLast).Copy _
Destination:=Sheets("Sheet2").Range("A1")


In article ,
Wu wrote:

I want to write a marco that to copy few specified rows from sheet 1 to sheet
2:
.................................................. ............................
.........................
R=Inputbox("pls input the first row number")
R1=inputbox("pls input the last row number")

Rows(R:R1).Select
Selection.Copy
Sheets("Sheet2").Select
ActiveSheet.Paste

.................................................. ............................
...........................

But, the above macro is not work at "Rows(R:R1).Select", I would like to use
inputbox to enter specified number of row to copy from sheet1 to sheet2. How
to do that???

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
horrifyingly difficult excel chart / gantt question... [email protected] Charts and Charting in Excel 1 February 2nd 06 07:08 PM
Difficult (at least to me) formula question darkwood Excel Worksheet Functions 5 December 29th 05 02:39 PM
Difficult but do-able? Jaydubs Excel Discussion (Misc queries) 8 October 6th 05 11:01 AM
Very simple, but difficult formula question pugsly8422 Excel Worksheet Functions 4 July 7th 05 03:14 PM
Difficult Excel Question [email protected] Excel Discussion (Misc queries) 2 January 27th 05 01:10 PM


All times are GMT +1. The time now is 04:34 PM.

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"