merging many deletion macros into one

[neocrk]

Hi Guys,

I have a large spreadsheet where I have many deletion macros - basically they are removing records that have specific value in G column).
For that I am using following macros:

Sub macro1()
Dim i As Integer
For i = 1000 To 1 Step -1
If Range("G" & i).Value = "text" Then

Range("A" & i & ":O" & i).Delete Shift:=xlUp

End If
Next i
End Sub

I have around 10 macros like the one above and then I am calling them with one button:

Sub buttonMacro()
Call macro1
Call macro2
Call macro3
Call macro4

Is it possible to merge all those macros into one and then assign only one macro to the button ? Probably that would be much more efficient that running them separately

 

[Chris Mack]

Could you just replace "Call macro1" with the code for 'macro1', etc.?

Chris

 

[neocrk]

Could you just replace "Call macro1" with the code for 'macro1', etc.?

Chris

Yes I can do it but it is means that I will just shift whole code from one part of the script to another so it is not a solution...

 

[Chris Mack]

So are you looking for something like this:

Sub macro1()
Dim i As Integer
For i = 1000 To 1 Step -1
If Range("G" & i).Value = "text" Or Range("G" & i).Value = "another value" Or Range("G" & i).Value = "another value2" Or Range("G" & i).Value = "another value3" Then
Range("A" & i & ":O" & i).Delete Shift:=xlUp
End If
Next i
End Sub

Chris.

 

[snb_]

Sub M_snb()   sn=activesheet.columns(5).specialcells(2)

  For j= 1 to ubound(
   If sn(j,1)= "text" or sn(j,1)="text_2" or sn(j,1)= "text_3" Then sn(j,1)=""
  next   
  activesheet.columns(5).specialcells(2)=sn
  activesheet.columns(5).specialcells(4).entirerow.delete End Sub</pre>

 

[neocrk]

So are you looking for something like this:

Sub macro1()
Dim i As Integer
For i = 1000 To 1 Step -1
If Range("G" & i).Value = "text" Or Range("G" & i).Value = "another value" Or Range("G" & i).Value = "another value2" Or Range("G" & i).Value = "another value3" Then
Range("A" & i & ":O" & i).Delete Shift:=xlUp
End If
Next i
End Sub

Chris.

That is perfect Chris :D One last thing - where should I put & _ to split that code in few lines(it is very long now) - I tried in few different places but it's not working for me?

 

[Chris Mack]

As far as I'm aware you can put it anywhere. The syntax is just " _", i.e. space then underscore, then move to the next line.

Chris.