data entry
 

I am trying to write a macro that will copy data from, lets say cell c3 and
paste it to cell c6. Each day I will be adding new data to cell c3 and
coping to the next blank cell c7, c8, c9, c10 etc.

The macro is more complicated than this and I can do everything I need to
except to add the data to the next blank cell.

Thanks for the help

data entry
 

Hi Larry,

Try this Change event sub:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$3" Then
Application.EnableEvents = False
lastrow = Columns("C").Find(What:="*", _
After:=Range("C1"), _
LookAt:=xlPart, _
LookIn:=xlValues, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row
Range("C" & lastrow + 1).Value = Target.Value
Application.EnableEvents = True
End If
End Sub

Regards,
Stefi


€žLarry Fish€� ezt Ã*rta:

I am trying to write a macro that will copy data from, lets say cell c3 and
paste it to cell c6. Each day I will be adding new data to cell c3 and
coping to the next blank cell c7, c8, c9, c10 etc.

The macro is more complicated than this and I can do everything I need to
except to add the data to the next blank cell.

Thanks for the help

data entry
 

Stefi wrote:
Hi Larry,

Try this Change event sub:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$3" Then
Application.EnableEvents = False
lastrow = Columns("C").Find(What:="*", _
After:=Range("C1"), _
LookAt:=xlPart, _
LookIn:=xlValues, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row
Range("C" & lastrow + 1).Value = Target.Value
Application.EnableEvents = True
End If
End Sub

Regards,
Stefi

€žLarry Fish€� ezt Ã*rta:

I am trying to write a macro that will copy data from, lets say cell c3 and
paste it to cell c6. Each day I will be adding new data to cell c3 and
[quoted text clipped - 4 lines]

Thanks for the help

Thanks Stefi

Will try this tonight. Know I why I wanted to stick with Lotus 123. All I
wound need was {down}.

Thanks for your time and Help.

data entry
 

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 9/25/2006 by
'
' Keyboard Shortcut: Ctrl+a
'
Range("C1:F1").Select
Selection.Copy
Range("A1").Select
Selection.End(xlDown).Select
Range("C65536").Select
Selection.End(xlUp).Select
' Range("C7")+0.1.Select
ActiveSheet.Paste
End Sub
This macro workd fine but I need c7 to change to c8 after pasting data. Or
moving down one cell after executing the "select.End(aIUP).Select
Larry Fish wrote:
Hi Larry,

[quoted text clipped - 25 lines]

Thanks for the help

Thanks Stefi

Will try this tonight. Know I why I wanted to stick with Lotus 123. All I
wound need was {down}.

Thanks for your time and Help.

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...l-new/200609/1

data entry
 

Sub Macro1()
Range("C1:F1").Select
Selection.Copy
Selection.End(xlDown).Select
Range("C" & ActiveCell.Row + 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

Regards,
Stefi


€žLarry Fish via OfficeKB.com€� ezt Ã*rta:

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 9/25/2006 by
'
' Keyboard Shortcut: Ctrl+a
'
Range("C1:F1").Select
Selection.Copy
Range("A1").Select
Selection.End(xlDown).Select
Range("C65536").Select
Selection.End(xlUp).Select
' Range("C7")+0.1.Select
ActiveSheet.Paste
End Sub
This macro workd fine but I need c7 to change to c8 after pasting data. Or
moving down one cell after executing the "select.End(aIUP).Select
Larry Fish wrote:
Hi Larry,

[quoted text clipped - 25 lines]

Thanks for the help

Thanks Stefi

Will try this tonight. Know I why I wanted to stick with Lotus 123. All I
wound need was {down}.

Thanks for your time and Help.

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...l-new/200609/1

data entry
 

Thanks Stefi this works great.
Larry

Stefi wrote:
Sub Macro1()
Range("C1:F1").Select
Selection.Copy
Selection.End(xlDown).Select
Range("C" & ActiveCell.Row + 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

Regards,
Stefi

€žLarry Fish via OfficeKB.com€� ezt Ã*rta:

Sub Macro1()
'
[quoted text clipped - 26 lines]

Thanks for your time and Help.

--
Message posted via http://www.officekb.com

data entry
 

You are welcome! Thanks for the feedback!
Stefi


€žLarry Fish via OfficeKB.com€� ezt Ã*rta:

Thanks Stefi this works great.
Larry

Stefi wrote:
Sub Macro1()
Range("C1:F1").Select
Selection.Copy
Selection.End(xlDown).Select
Range("C" & ActiveCell.Row + 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

Regards,
Stefi

€žLarry Fish via OfficeKB.com€� ezt Ã*rta:

Sub Macro1()
'
[quoted text clipped - 26 lines]

Thanks for your time and Help.

--
Message posted via http://www.officekb.com