Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Finding and Deleting last row
Hi, I'm learning VB and have a problem. It is very simple: I have spread sheet for which I am writing a macro to 1) Delete the content of the first row...this is done and then 2) find the last row wit content and delete the content. I am having trouble writing the cod for 2.... I have : lastrow.select selection.clearcontents Can anyone help? Regard ----------------------------------------------- ~~ Message posted from http://www.ExcelTip.com ~~View and post usenet messages directly from http://www.ExcelForum.com |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Finding and Deleting last row
Sub ClearLastRow()
' assuming column A has data in all rows ... Range("A65536").End(xlUp).EntireRow.ClearContents End Sub Regards Trevor "Bourbon" wrote in message ... Hi, I'm learning VB and have a problem. It is very simple: I have a spread sheet for which I am writing a macro to 1) Delete the contents of the first row...this is done and then 2) find the last row with content and delete the content. I am having trouble writing the code for 2.... I have : lastrow.select selection.clearcontents Can anyone help? Regards ------------------------------------------------ ~~ Message posted from http://www.ExcelTip.com/ ~~View and post usenet messages directly from http://www.ExcelForum.com/ |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Finding and Deleting last row
Examples that are working for the activesheet
If you can check one column you can use this example for column A Sub test() Dim LR As Long LR = Range("A" & Rows.Count).End(xlUp).Row Cells(LR, "A").EntireRow.Delete End Sub If you want to delete the last row with data on the sheet use this example with the function Sub testing() Cells(LastRow(ActiveSheet), "A").EntireRow.Delete End Sub Function LastRow(sh As Worksheet) On Error Resume Next LastRow = sh.Cells.Find(What:="*", _ After:=sh.Range("A1"), _ Lookat:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Row On Error GoTo 0 End Function -- Regards Ron de Bruin (Win XP Pro SP-1 XL2002 SP-2) www.rondebruin.nl "Bourbon" wrote in message ... Hi, I'm learning VB and have a problem. It is very simple: I have a spread sheet for which I am writing a macro to 1) Delete the contents of the first row...this is done and then 2) find the last row with content and delete the content. I am having trouble writing the code for 2.... I have : lastrow.select selection.clearcontents Can anyone help? Regards ------------------------------------------------ ~~ Message posted from http://www.ExcelTip.com/ ~~View and post usenet messages directly from http://www.ExcelForum.com/ |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Finding and Deleting last row
Thanks very much, it worked... Very appreciated Cia ----------------------------------------------- ~~ Message posted from http://www.ExcelTip.com ~~View and post usenet messages directly from http://www.ExcelForum.com |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
finding duplicate cell and deleting both | Excel Worksheet Functions | |||
Finding and deleting macro in a workbook | Excel Discussion (Misc queries) | |||
Finding a cell match then deleting a row. | Excel Discussion (Misc queries) | |||
Finding and Deleting | New Users to Excel | |||
Finding and deleting question marks | Excel Discussion (Misc queries) |