Macro to delete last entry of a column
 

I want to delete the last 2 entries of column of data in excel 2007. The
column length varies each time I want to run the macro. I've tried recording
a macro using the 'ctl down' shortcut then deleting the last two entries.
However, when I run the macro on a different data set it doesn't delete the
last entries but deletes the data in the rows that was recorded in the
original macro.

Please could you advise me on the line of code I need to refer to the last
two entries of a column of any length.

Thank you!

Macro to delete last entry of a column
 

Hi

This should do it:

Sub DeleteRows()
TargetCol = "A"
LastRow = Range(TargetCol & Rows.Count).End(xlUp).Row

Cells(LastRow - 1, TargetCol).Resize(2, 1).ClearContents
End Sub

Regards,
Per

On 6 Feb., 01:34, Mel wrote:
I want to delete the last 2 entries of column of data in excel 2007. The
column length varies each time I want to run the macro. I've tried recording
a macro using the 'ctl down' shortcut then deleting the last two entries.
However, when I run the macro on a different data set it doesn't delete the
last entries but deletes the data in the rows that was recorded in the
original macro. *

Please could you advise me on the line of code I need to refer to the last
two entries of a column of any length.

Thank you!

Macro to delete last entry of a column
 

Maybe this

Sub DeleteBottom2Rows()
ActiveSheet.Select
Range("a65000").Select
Selection.End(xlUp).Select
Selection.EntireRow.Delete
Selection.Offset(-1, 0).EntireRow.Delete
End Sub

hth
Vaya con Dios,
Chuck, CABGx3


"Mel" wrote in message
...
I want to delete the last 2 entries of column of data in excel 2007. The
column length varies each time I want to run the macro. I've tried
recording
a macro using the 'ctl down' shortcut then deleting the last two entries.
However, when I run the macro on a different data set it doesn't delete
the
last entries but deletes the data in the rows that was recorded in the
original macro.

Please could you advise me on the line of code I need to refer to the last
two entries of a column of any length.

Thank you!

Macro to delete last entry of a column
 

Hello

This macro will delete the last two entries in the column of your active
cell.
(even if the column is empty, or has only one value in row 1)

Sub Delete_Last_2()

On Error Resume Next
Cells(Rows.Count, ActiveCell.Column).End(xlUp).Offset(-1, 0).ClearContents
On Error GoTo 0
Cells(Rows.Count, ActiveCell.Column).End(xlUp).ClearContents

End Sub








"Mel" a écrit dans le message de groupe de
discussion : ...
I want to delete the last 2 entries of column of data in excel 2007. The
column length varies each time I want to run the macro. I've tried
recording
a macro using the 'ctl down' shortcut then deleting the last two entries.
However, when I run the macro on a different data set it doesn't delete
the
last entries but deletes the data in the rows that was recorded in the
original macro.

Please could you advise me on the line of code I need to refer to the last
two entries of a column of any length.

Thank you!

Macro to delete last entry of a column
 

Let say you data start on cell B3.

Sub deletecell()
Range("b3").Select 'first cell of your column
Selection.End(xlDown).Select 'go all the way down to last used cell
ActiveCell.Offset(-1, 0).Select 'go up one cell
ActiveCell.Resize(2, 1).ClearContents 'increase range 2x1 cell, delete
last two cell
End Sub

Hope it works fine for your needs



"Mel" wrote:

I want to delete the last 2 entries of column of data in excel 2007. The
column length varies each time I want to run the macro. I've tried recording
a macro using the 'ctl down' shortcut then deleting the last two entries.
However, when I run the macro on a different data set it doesn't delete the
last entries but deletes the data in the rows that was recorded in the
original macro.

Please could you advise me on the line of code I need to refer to the last
two entries of a column of any length.

Thank you!

Macro to delete last entry of a column
 

Sorry, I mis-read your post........this one will delete just the last two
entries in column A, rather than the entire rows.

Sub DeleteBottom2Rows()
ActiveSheet.Select
Range("a65000").Select
Selection.End(xlUp).Select
Selection.ClearContents
Selection.Offset(-1, 0).ClearContents
End Sub

Vaya con Dios,
Chuck, CABGx3




"clr" wrote in message
...
Maybe this

Sub DeleteBottom2Rows()
ActiveSheet.Select
Range("a65000").Select
Selection.End(xlUp).Select
Selection.EntireRow.Delete
Selection.Offset(-1, 0).EntireRow.Delete
End Sub

hth
Vaya con Dios,
Chuck, CABGx3


"Mel" wrote in message
...
I want to delete the last 2 entries of column of data in excel 2007. The
column length varies each time I want to run the macro. I've tried
recording
a macro using the 'ctl down' shortcut then deleting the last two entries.
However, when I run the macro on a different data set it doesn't delete
the
last entries but deletes the data in the rows that was recorded in the
original macro.

Please could you advise me on the line of code I need to refer to the
last
two entries of a column of any length.

Thank you!