data entry

[Larry Fish]

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

 

[Guest]

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:

 

[Larry Fish]

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.

 

[Larry Fish via OfficeKB.com]

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

Hi Larry,

[quoted text clipped - 25 lines]
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.

 

[Guest]

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

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.

 

[Larry Fish via OfficeKB.com]

Thanks Stefi this works great.
Larry

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]

 

[Guest]

You are welcome! Thanks for the feedback!
Stefi


„Larry Fish via OfficeKB.com†ezt írta:

Thanks Stefi this works great.
Larry

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.