Macro Question?

B

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
 
B

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)
 
F

Frank Kabel

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

Bob

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

Bob

Yeah its replacing my last cell with data in!

Bob said:
Sometimes takes out the last data and replaces it then sometimes goes right
to the bottom of the sheet
Click to expand...
 
R

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