Macro Question?

[Bob]

--
-- Can this be scripted into a Macro>After active cell>
go down 16 cells, then go down the column to the next empty cell and
enter (Date)
..Offset(0, 1).Value = "PAYMENT RECEIVED"

So A has the date and B has payment received



Thanks in advance.........Bob

 

[Bob Phillips]

Hi Bob,

This should do it

With ActiveCell.Offset(16, 0).End(xlDown)
.Value = Format(Date, "dd mm yyyy")
.Offset(0, 1).Value = "PAYMENT RECEIVED"
End With

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

 

[Bob]

that just highlighted the first 8 columns in my work book!

 

[Frank Kabel]

Hi Bob
are you sure
works for me. You may post the complete code you have used (including
Bob's suggestion)

 

[Bob]

Sometimes takes out the last data and replaces it then sometimes goes right
to the bottom of the sheet

 

[Bob]

Yeah its replacing my last cell with data in!

Sometimes takes out the last data and replaces it then sometimes goes right
to the bottom of the sheet

 

[Rob van Gelder]

Try
With ActiveCell.Offset(16, 0).End(xlDown).Offset(1,0)

Keep in mind what this code is doing:
From 16 cells below the ActiveCell, press End+Down and place a date in the
next row down and "payment received" in the column next to that.

So if your activecell is at the end of the list already, it's going to try
to get to the very bottom of the worksheet.

 

[Bob]

Rob you got it BRILLIANT Thanks for your help ..Bob