Macro To Delete All Rows When The Last Letter In Column A is An N

[Dazzawm]

Is there a Macro To Delete All Rows When The Last Letter In Column A is An N please.

What would be beneficial is a code with an input box so I can put the letter as I will use it on all different occasions.

Thank.

 

[gallen]

Hello, this should do as you ask:

Sub DeleteLetter()
    Dim sLet As String 'user defined letter to search for in column A
    Dim l As Long 'counter
    
    Dim fr As Long, lr As Long 'first row, last row
    
    fr = 2 'assumption here, change as necessary
    lr = Range("A" & Rows.Count).End(xlUp).Row 'last used row in col a
    
TryAgain:
    sLet = Application.InputBox("Please select letter to delete", "Select")
    If sLet = "False" Then Exit Sub
    
    If Len(sLet) <> 1 Then
        MsgBox "Please only select a single letter", vbCritical, "Incorrect input"
        GoTo TryAgain
    End If
    
    'if we get here, user has selected a letter
    
    'count from bottom up to delete rows:
    For l = lr To fr Step -1
       If Right(Range("A" & l), 1) = sLet Then Range("A" & l).EntireRow.Delete'is last letter same as user input?
    Next l
    
End Sub

 

[Dazzawm]

Thanks gallen seems to work a treat. I had to add the application screenupdating bit as I had some very big files.

 

[gallen]

Yes, also, if you have a 'Worksheet_Change' event you will need to 'Application.EnableEvents = False' too to stop it it triggering on every deletion