This works fine.....but I dare ask for a small improvement. Is there a
way
the the program could find the next empty line in block a and palce
the info
there.
Thanks
Ian M
----- Original Message -----
From: "Dave Peterson" <(E-Mail Removed)>
Newsgroups: microsoft.public.excel.programming
Sent: Friday, July 23, 2010 1:01 PM
Subject: Re: Macro to copy


> You could add a button from the Forms toolbar (or use a shortcut key or
> even Alt-F8) to run a macro that copies the cell with the activecell on
> it:
>
> Option Explicit
> Sub testme()
>
> Dim NextRow As Long
>
> With ActiveSheet
>
> 'after the end of the first group, but before the start
> 'of the second. I used row 88.
> NextRow = .Cells(88, "A").End(xlUp).Row + 1
>
> 'some minor checks
> If ActiveCell.Row < 100 Then
> Beep
> 'or give a message
> MsgBox "Move to the second group!"
> Else
> ActiveCell.EntireRow.Copy _
> Destination:=.Cells(NextRow, "A")
> End If
> End With
> End Sub
>
>
> If you're new to macros:
>
> Debra Dalgleish has some notes how to implement macros here:
> http://www.contextures.com/xlvba01.html
>
> David McRitchie has an intro to macros:
> http://www.mvps.org/dmcritchie/excel/getstarted.htm
>
> Ron de Bruin's intro to macros:
> http://www.rondebruin.nl/code.htm
>
> (General, Regular and Standard modules all describe the same thing.)
>
>
> On 07/23/2010 09:26, (E-Mail Removed) wrote:
>> I have a sheet that comrpise TWO blocks of data
>> Block A goes from A1 to g20 displays chores that HAVE been done
>> Block B goes from A100 to G130 displays chores that HAVE TO BE DONE
>> Once a chore is done I want to select that line in block B and have a
>> macro copy that line to the bottom of block A above
>> I would appreciate any help you can give me
>> thanks
>
> --
> Dave Peterson
>

On Jul 23, 1:15*pm, pcor <ianma...@hotmail.com> wrote:
> This works fine.....but I dare ask for a small improvement. Is there a
> way
> the the program could find the next empty line in block a and palce
> the info
> there.
> Thanks
> Ian M
>
>
>
> ----- Original Message -----
> From: "Dave Peterson" <peter...@XSPAMverizon.net>
> Newsgroups: microsoft.public.excel.programming
> Sent: Friday, July 23, 2010 1:01 PM
> Subject: Re: Macro to copy
>
> > You could add a button from the Forms toolbar (or use a shortcut key or
> > even Alt-F8) to run a macro that copies the cell with the activecell on
> > it:
>
> > Option Explicit
> > Sub testme()
>
> > * * Dim NextRow As Long
>
> > * * With ActiveSheet
>
> > * * * * 'after the end of the first group, but before the start
> > * * * * 'of the second. *I used row 88.
> > * * * * NextRow = .Cells(88, "A").End(xlUp).Row + 1
>
> > * * * * 'some minor checks
> > * * * * If ActiveCell.Row < 100 Then
> > * * * * * * Beep
> > * * * * * * 'or give a message
> > * * * * * * MsgBox "Move to the second group!"
> > * * * * Else
> > * * * * * * ActiveCell.EntireRow.Copy _
> > * * * * * * * * Destination:=.Cells(NextRow, "A")
> > * * * * End If
> > * * End With
> > End Sub
>
> > If you're new to macros:
>
> > Debra Dalgleish has some notes how to implement macros here:
> >http://www.contextures.com/xlvba01.html
>
> > David McRitchie has an intro to macros:
> >http://www.mvps.org/dmcritchie/excel/getstarted.htm
>
> > Ron de Bruin's intro to macros:
> >http://www.rondebruin.nl/code.htm
>
> > (General, Regular and Standard modules all describe the same thing.)
>
> > On 07/23/2010 09:26, ianma...@hotmail.com wrote:
> >> I have a sheet that comrpise TWO blocks of data
> >> Block A goes from *A1 to g20 displays chores that HAVE been done
> >> Block B *goes from A100 to G130 displays chores that HAVE TO BE DONE
> >> Once a chore is done I want to select that line in block B and have a
> >> macro copy that line to the bottom of block A above
> >> I would appreciate any help you can give me
> >> thanks
>
> > --
> > Dave Peterson- Hide quoted text -
>
> - Show quoted text -
change
NextRow = .Cells(88, "A").End(xlUp).Row + 1
to
NextRow = .Cells(1, "A").End(xldown).Row + 1