data entry

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Larry Fish - 25 Sep 2006 13:09 GMT

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

Reply to this Message

Stefi - 25 Sep 2006 13:44 GMT

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

Reply to this Message

Larry Fish - 25 Sep 2006 15:13 GMT

>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.

Reply to this Message

Larry Fish - 25 Sep 2006 21:21 GMT

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 - 8 lines]
>
>Thanks for your time and Help.

Reply to this Message

Stefi - 26 Sep 2006 08:25 GMT

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.

Reply to this Message

Larry Fish - 26 Sep 2006 13:53 GMT

Thanks Stefi this works great.
Larry

>Sub Macro1()
> Range("C1:F1").Select
[quoted text clipped - 15 lines]
>> >
>> >Thanks for your time and Help.

Reply to this Message

Stefi - 26 Sep 2006 14:06 GMT

You are welcome! Thanks for the feedback!
Stefi

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

> Thanks Stefi this works great.
> Larry
[quoted text clipped - 18 lines]
> >> >
> >> >Thanks for your time and Help.

Reply to this Message

Rate this thread: