How can i improve the following working code?
I would like to be able to join the "Select Case True" with the normal "Select Case" conditions
With w.Sheets("test")
For i = n To 10 Step -1
Select Case .Cells(i, 1)
Case 10111,23232,98076,41324
.Cells(i, 1).EntireRow.Delete
End Select
Select Case True
Case .Cells(i, 1) Like "A*"
.Cells(i, 1).EntireRow.Delete
End Select
Next i
End With
Thank You
It depends. If the list is reasonably finite (two or three elements), then you could make it a bit spaghetti and say
Select Case True
Case .Cells(i, 1) Like "A*"
.Cells(i, 1).EntireRow.Delete
Case .Cells(i, 1) = 10111
.Cells(i, 1).EntireRow.Delete
Case .Cells(i, 1) = 23232
.Cells(i, 1).EntireRow.Delete
...
End Select
But this has the terrible disadvantage of getting nasty very quickly. Other options:
With w.Sheets("test")
For i = n To 10 Step -1
Select Case .Cells(i, 1)
Case 10111,23232,98076,41324
.Cells(i, 1).EntireRow.Delete
Case Else
If .Cells(i, 1) Like "A*" Then
.Cells(i, 1).EntireRow.Delete
End If
End Select
Next i
End With
By the way, calling your workbook just plain w is quite a poor variable naming, choose something more explicit and informative like myImportantWorkbookOnThisDay or whatever. I like the camelCase, but you can choose any casing you like. Just some revealing name.
Select Case statement. You can evaluate only one condition type. You give a value and the Select Case will run the Case that matches this value, both on its type and its evaluation. If you give it a Boolean (True), it will run the Case that evaluates to this boolean. If you give it a String, it will run the Case that evaluates to a String of the same contents. Give it a Long, and it will run the Case that evaluates to a Long of the same value... You get the idea :)
\$\endgroup\$