Copy with a macro
 

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"
Newsgroups: microsoft.public.excel.programming
Sent: Friday, July 23, 2010 1:01 PM
Subject: 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 he
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, 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

Copy with a macro
 

On Jul 23, 1:15*pm, pcor 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"
Newsgroups: microsoft.public.excel.programming
Sent: Friday, July 23, 2010 1:01 PM
Subject: 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 he
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, 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