Delete entire row if cell contains lower case

[Raph85]

Hello,

I have a list of data in which I would like to delete the entire row if the text on column A is in lowercase. I am stuck to write a VBA for this one, could anyone help me with this please.

Thank you.

 

[Fluff]

How about

Sub delRws()
   Dim i As Long
   For i = Range("A" & Rows.Count).End(xlUp).row To 2 Step -1
      If Range("A" & i).Value = LCase(Range("A" & i).Value) Then
         Rows(i).Delete
      End If
   Next i
End Sub

 

[Raph85]

Hi Fluff,

Thank you for the reply, I tried that but it doesn't really work for me.

I am trying to delete the entire for anything in column A that contains lower case.

 

[LFKim2018]

How about

Sub delRws()
   Dim i As Long
   For i = Range("A" & Rows.Count).End(xlUp).row To 2 Step -1
      If Range("A" & i).Value = LCase(Range("A" & i).Value) Then
         Rows(i).Delete
      End If
   Next i
End Sub

I tried the above sub, it worked almost perfectly, it deleted all rows that were lowercase except for the very first row..
maybe the increment numbering needs to be adjusted? am not a vba expert....
many thanks

 

[LFKim2018]

I don't know..maybe you should clarify if the whole word is in lowercase or only some of it....
I tried the sub of Mr. Fluff, it worked except that the first cell was left untouched...
thanks

 

[Raph85]

wait a min... my bad. Fluff your VBA works perfectly when I tried a new sheet and free type it. But I think there's a format in my original data that doesn't work with the VBA.

Thank you so much Fluff, I'll try to find the issue.
@LFKim2018 - thanks for testing it for me. if you want the first cell maybe change the "Row to 2" to "Row to 1"

Thanks

 

[Raph85]

Found the issue..... not the whole word is in lowercase i.e: Smith/John instead of smith/john.
@Fluff - is there anyway to change it if it's contain any lower case then delete the entire row ?

Thanks heaps.

 

[LFKim2018]

wait a min... my bad. Fluff your VBA works perfectly when I tried a new sheet and free type it. But I think there's a format in my original data that doesn't work with the VBA.

Thank you so much Fluff, I'll try to find the issue.
@LFKim2018 - thanks for testing it for me. if you want the first cell maybe change the "Row to 2" to "Row to 1"

Thanks

Yes, it did worked alright!
thanks

 

[Fluff]

How about

Sub delRws()
   Dim i As Long
   For i = Range("A" & Rows.Count).End(xlUp).row To 2 Step -1
      If Range("A" & i).Value <> UCase(Range("A" & i).Value) Then
         Rows(i).Delete
      End If
   Next i
End Sub

 

[LFKim2018]

How about

Sub delRws()
   Dim i As Long
   For i = Range("A" & Rows.Count).End(xlUp).row To 2 Step -1
      If Range("A" & i).Value <> UCase(Range("A" & i).Value) Then
         Rows(i).Delete
      End If
   Next i
End Sub

I tried it and I think it did better because if ever an entry is not all caps, then it is deleted; only to make .row To 2 Step -1
to .row To 1 Step -1 so that the first cell can be deleted too. I hope this solved the problem of Mr Raph85... Nice programming Mr. Fluff!