Ron
Wed Mar 21 14:39:35 CDT 2007
You are welcome
--
Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm
"Vikky" <love.excel@gmail.com> wrote in message news:1174505499.470454.216250@e1g2000hsg.googlegroups.com...
> On Mar 21, 11:56 pm, "Ron de Bruin" <rondebr...@kabelfoon.nl> wrote:
>> Copy the macro and function in a normal module
>> Alt F11
>> Insert module
>> Paste it in the module
>> Alt q to go back to Excel
>>
>> This example copy row 1 from the sheet "Sheet1" to the first empty row on the worksheet "Sheet1"
>> You can run the macro with Alt-F8 or add a button on your sheet to run the macro
>>
>> Sub copy_3_Values_PasteSpecial()
>> Dim sourceRange As Range
>> Dim destrange As Range
>> Dim Lr As Long
>> Application.ScreenUpdating = False
>> Lr = LastRow(Sheets("Sheet1")) + 1
>> Set sourceRange = Sheets("Sheet1").Rows("1:1")
>> Set destrange = Sheets("Sheet1").Rows(Lr)
>> sourceRange.Copy
>> destrange.PasteSpecial xlPasteValues, , False, False
>> Application.CutCopyMode = False
>> Application.ScreenUpdating = True
>> End Sub
>>
>> Function LastRow(sh As Worksheet)
>> On Error Resume Next
>> LastRow = sh.Cells.Find(What:="*", _
>> After:=sh.Range("A1"), _
>> Lookat:=xlPart, _
>> LookIn:=xlFormulas, _
>> SearchOrder:=xlByRows, _
>> SearchDirection:=xlPrevious, _
>> MatchCase:=False).Row
>> On Error GoTo 0
>> End Function
>>
>> --
>>
>> Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm
>>
>>
>>
>> "Vikky" <love.ex...@gmail.com> wrote in messagenews:1174502603.872723.193940@p15g2000hsd.googlegroups.com...
>> > On Mar 21, 11:25 pm, "Ron de Bruin" <rondebr...@kabelfoon.nl> wrote:
>> >> Hi Vikky
>>
>> >> Give more information
>>
>> >> Do you want to copy a row (fixed row or selected row ?) to another sheet or in the same sheet below other data ?
>>
>> >> --
>>
>> >> Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm
>>
>> >> "Vikky" <love.ex...@gmail.com> wrote in messagenews:1174501056.851791.178290@y66g2000hsf.googlegroups.com...
>> >> > On Mar 21, 10:44 pm, "Ron de Bruin" <rondebr...@kabelfoon.nl> wrote:
>> >> >> Hi Vikky
>>
>> >> >> See
http://www.rondebruin.nl/copy1.htm
>>
>> >> >> Or if you want to find the row number of the last cell with data in a range see
http://www.rondebruin.nl/last.htm
>>
>> >> >> --
>>
>> >> >> Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm
>>
>> >> >> "Vikky" <love.ex...@gmail.com> wrote in messagenews:1174498666.568772.117750@y80g2000hsf.googlegroups.com...
>> >> >> > Hi Expert,
>>
>> >> >> > I am in need of such a macro or code by which I can copy & paste data
>> >> >> > from a particular row to first empty row of given row range.
>>
>> >> >> > Kindly help.
>>
>> >> >> > Regards,
>> >> >> > Vikky- Hide quoted text -
>>
>> >> >> - Show quoted text -
>>
>> >> > Hi Ron,
>>
>> >> > Thanks for ur reply.
>>
>> >> > I have visited both url which you have mentioned beinf a novice to
>> >> > macro & codes i'm fail to understand how to reach to desired result.
>>
>> >> > Kindly help.
>>
>> >> > Regards,
>>
>> >> > Vikky- Hide quoted text -
>>
>> >> - Show quoted text -
>>
>> > Hi Ron,
>>
>> > Yes, I want to copy a fixed row to in the same sheet below other
>> > data.
>>
>> > Regards,
>>
>> > Vikky- Hide quoted text -
>>
>> - Show quoted text -
>
> Hi Ron,
>
> It's Working.:)
>
> Thanks Alot for ur great help. This would save a lot of time of mine.
>
> Once again thanks a lot.
>
> Regards,
>
> Vikky
>