Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy row
Hi, I wanted to copy a row from the sheet 1 to sheet 2 with a macro. i.e. sheet 1 row a1 to f1 to sheet 2 row a6 to f6. And when macr fires there should be a message box to appear about the selection o row.So that i can select any of the row from the sheet 1 to sheet 2. Any help will be highly appreciated. thanks nowfa -- nowfa ----------------------------------------------------------------------- nowfal's Profile: http://www.excelforum.com/member.php...fo&userid=1000 View this thread: http://www.excelforum.com/showthread.php?threadid=38621 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy row
Try this example
Dim sourceRange As Range Dim destrange As Range Set sourceRange = Sheets("Sheet1").Rows(1) Set destrange = Sheets("Sheet2").Rows(6) sourceRange.Copy destrange You can use this to copy the ActiveCell.Row Set sourceRange = ActiveCell.EntireRow See also http://www.rondebruin.nl/copy1.htm -- Regards Ron de Bruin http://www.rondebruin.nl "nowfal" wrote in message ... Hi, I wanted to copy a row from the sheet 1 to sheet 2 with a macro. i.e. sheet 1 row a1 to f1 to sheet 2 row a6 to f6. And when macro fires there should be a message box to appear about the selection of row.So that i can select any of the row from the sheet 1 to sheet 2. Any help will be highly appreciated. thanks nowfal -- nowfal ------------------------------------------------------------------------ nowfal's Profile: http://www.excelforum.com/member.php...o&userid=10003 View this thread: http://www.excelforum.com/showthread...hreadid=386219 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy row
dim rng as Range, rng1 as Range
On error resume next set rng = Application.InputBox("Select range to copy with mouse",Type:=8) if not rng is nothing then set rng1 = application.InputBox("Select destination with moust",Type:=8) else exit sub End if On Error goto 0 if not rng1 is nothing then rng.copy destination:=rng1(1) end if -- Regards, Tom Ogilvy "nowfal" wrote in message ... Hi, I wanted to copy a row from the sheet 1 to sheet 2 with a macro. i.e. sheet 1 row a1 to f1 to sheet 2 row a6 to f6. And when macro fires there should be a message box to appear about the selection of row.So that i can select any of the row from the sheet 1 to sheet 2. Any help will be highly appreciated. thanks nowfal -- nowfal ------------------------------------------------------------------------ nowfal's Profile: http://www.excelforum.com/member.php...o&userid=10003 View this thread: http://www.excelforum.com/showthread...hreadid=386219 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy row
HI, Both of you, Mr.Ron and Mr.Tom both of the codes are working well. But i am disturbing you again . If you help me again i am very thankful. what i needed is in the in the input box i want a selection not by the mouse but by specifying the row. i mean like row 3 of first sheet to row 5 of next sheet many thanks with regards nowfal -- nowfal ------------------------------------------------------------------------ nowfal's Profile: http://www.excelforum.com/member.php...o&userid=10003 View this thread: http://www.excelforum.com/showthread...hreadid=386219 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy row
If you only want to prompt the user to enter a number
Dim num1 as Variant, num2 as Variant num1 = InputBox("Enter the row number to copy") num2 = InputBox("Enter the destination row") if isnumeric(num1) and isnumeric(num2) then Worksheets("Sheet1").Rows(num1).copy _ Destination:=Worksheets('Sheet2').rows(num2) end if -- Regards, Tom Ogilvy "nowfal" wrote in message ... HI, Both of you, Mr.Ron and Mr.Tom both of the codes are working well. But i am disturbing you again . If you help me again i am very thankful. what i needed is in the in the input box i want a selection not by the mouse but by specifying the row. i mean like row 3 of first sheet to row 5 of next sheet many thanks with regards nowfal -- nowfal ------------------------------------------------------------------------ nowfal's Profile: http://www.excelforum.com/member.php...o&userid=10003 View this thread: http://www.excelforum.com/showthread...hreadid=386219 |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy row
Would it be suitable for you to place the value of the rows copied and pasted to into a cell? -- Losse ------------------------------------------------------------------------ Losse's Profile: http://www.excelforum.com/member.php...o&userid=24813 View this thread: http://www.excelforum.com/showthread...hreadid=386219 |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy row
Hi Tom, In your latest code some syntax error is coming on the last two lines . If you are helping again, i have a small correction in the requirements that only copying from the sheet 1 is varies the destination is same always. So please if you find time let have a look on it and help me. thanks once again with regards nowfal -- nowfal ------------------------------------------------------------------------ nowfal's Profile: http://www.excelforum.com/member.php...o&userid=10003 View this thread: http://www.excelforum.com/showthread...hreadid=386219 |
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy row
Hi Tom. Your code was perfect, the sytax error appears because o the last line you mentioned 'sheet2' instead of "sheet2" corrected i and it works . thanks for the help. Now i am trying for little twis that the destination row is a permanent place ie sheet 2 row(1). I possible when you get time please consider that. Any how once agai thanks a lot with regards nowfa -- nowfa ----------------------------------------------------------------------- nowfal's Profile: http://www.excelforum.com/member.php...fo&userid=1000 View this thread: http://www.excelforum.com/showthread.php?threadid=38621 |
#9
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy row
Hi, I didn't get a hand from the experts, still waiting. I just repeat the request: the user wanted to copy one row from sheet 1 to a fixed row to the second sheet. Mr. Tom was given me the earlier code which is working well. i wanted to remove the second input box and made it to a fixed say A20 of the second sheet. Please look into this matter. thanks and regards nowfal Beow is Toms code: Dim num1 as Variant, num2 as Variant num1 = InputBox("Enter the row number to copy") num2 = InputBox("Enter the destination row") if isnumeric(num1) and isnumeric(num2) then Worksheets("Sheet1").Rows(num1).copy _ Destination:=Worksheets("Sheet2").rows(num2) end if -- nowfal ------------------------------------------------------------------------ nowfal's Profile: http://www.excelforum.com/member.php...o&userid=10003 View this thread: http://www.excelforum.com/showthread...hreadid=386219 |
#10
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy row
Hi Nowfal,
Try: Dim num1 As Variant, num2 As Long num1 = InputBox("Enter the row number to copy") num2 = 20 If IsNumeric(num1) Then Worksheets("Sheet1").Rows(num1).Copy _ Destination:=Worksheets("Sheet2").Rows(num2) End If --- Regards, Norman "nowfal" wrote in message ... Hi, I didn't get a hand from the experts, still waiting. I just repeat the request: the user wanted to copy one row from sheet 1 to a fixed row to the second sheet. Mr. Tom was given me the earlier code which is working well. i wanted to remove the second input box and made it to a fixed say A20 of the second sheet. Please look into this matter. thanks and regards nowfal Beow is Toms code: Dim num1 as Variant, num2 as Variant num1 = InputBox("Enter the row number to copy") num2 = InputBox("Enter the destination row") if isnumeric(num1) and isnumeric(num2) then Worksheets("Sheet1").Rows(num1).copy _ Destination:=Worksheets("Sheet2").rows(num2) end if -- nowfal ------------------------------------------------------------------------ nowfal's Profile: http://www.excelforum.com/member.php...o&userid=10003 View this thread: http://www.excelforum.com/showthread...hreadid=386219 |
#11
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy row
Thank you very much Mr.Norman Jones thats exactly what i wanted. it works perfectly. with regards nowfal -- nowfal ------------------------------------------------------------------------ nowfal's Profile: http://www.excelforum.com/member.php...o&userid=10003 View this thread: http://www.excelforum.com/showthread...hreadid=386219 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Copy and paste versus copy and insert copied cells | New Users to Excel | |||
Copy/Paste how to avoid the copy of formula cells w/o calc values | Excel Discussion (Misc queries) | |||
EXCEL FILE a copy/a copy/a copy ....filename | New Users to Excel | |||
Code to copy range vs Copy Entire Worksheet - can't figure it out | Excel Programming | |||
How copy format, font, color and border without copy/paste? | Excel Programming |