VBA Help - Error when sinlge line is added.

[Trev0j]

Good day..

Need help - Newbie in VBA coding.

have below code:

Columns("Z:Z").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
'Selection.Copy
Range("x3").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 2).Range("A1").Select
Range(Selection, Selection.End(xlUp)).Select
Application.CutCopyMode = False
Selection.FillDown
Selection.End(xlDown).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

Code is working fine when Multiple lines are added in a row.
hope to find working code when only single line is added.

thanks

 

[footoo]

Re: TODAY() - error for single row.

Presumably you have pasted some data to column X (and possibly other columns) and wish to put the date in column Z for the new data rows.
Based on the code you posted, I will assume that the pasted data is selected, so :

Intersect(Selection.EntireRow, [Z:Z]) = Date

 

[Trev0j]

Re: TODAY() - error for single row.

Maybe....

Sub xxxxx()
Range(Range("Z" & Rows.Count).End(xlUp).Offset(1), Range("Z" & Range("X" & Rows.Count).End(xlUp).Row)) = Date
End Sub

Looks fine! - Thank you very much...

 

[Trev0j]

Re: TODAY() - error for single row.

thank you... it works also..
but i have codes before the one i posted thats why it is deselected.

Thank so much..

 

[Fluff]

Re: TODAY() - error for single row.

@Trev0j
Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread. (rule 12 here: Forum Rules).
I have merged both your threads.