Hi all,
My code below works fine, but can't seem to expend on it...
I currently use 9 macros (Del_A / Call Del_B... / Call Del_I ) to achieve what I want.
I tried adding a Array("A", "B", "C".... "I") and tried the Case If, but my VB knowledge isn't great, so I need some advice.
A) Is it worth changing my code?
B) If so, any ideas, and how?
---------------------------------------
Sub Del_A()
Dim qk As Long
For qk = Cells(100, 1).End(xlUp).Row To 1 Step -1
If Cells(qk, 1) > 100 And Cells(qk, 2) = "A" Then Rows(qk).Delete
Next
'Call Del_B
End Sub
--------------------------------------
Cheers,
Sprucy
My code below works fine, but can't seem to expend on it...
I currently use 9 macros (Del_A / Call Del_B... / Call Del_I ) to achieve what I want.
I tried adding a Array("A", "B", "C".... "I") and tried the Case If, but my VB knowledge isn't great, so I need some advice.
A) Is it worth changing my code?
B) If so, any ideas, and how?
---------------------------------------
Sub Del_A()
Dim qk As Long
For qk = Cells(100, 1).End(xlUp).Row To 1 Step -1
If Cells(qk, 1) > 100 And Cells(qk, 2) = "A" Then Rows(qk).Delete
Next
'Call Del_B
End Sub
--------------------------------------
Cheers,
Sprucy