Combining two codes for two different sheets into a mastercode on a separate sheet

[glockgal42]

So I have two codes that I am using to delete cells from two different sheets. I first had a button on each sheet to run the macros, but instead I would like to create one button on my third sheet that will run both macros.

My first code is for Worksheet ("yard")

Sub RemoveTractors()
    Last = Cells(Rows.Count, "B").End(xlUp).Row
    For i = Last To 1 Step -1
        If (Cells(i, "B").Value) = "Tractor" Then
            Cells(i, "A").EntireRow.Delete
        End If
        Next i
    End Sub

My second code is for Worksheet ("Yard Configuration")

Sub RemoveDeletedLocations()
    Last = Cells(Rows.Count, "K").End(xlUp).Row
    For i = Last To 1 Step -1
        If (Cells(i, "K").Value) = "Yes" Then
            Cells(i, "A").EntireRow.Delete
        End If
        Next i
    End Sub

Then my master code will be placed on Worksheet ("Yard Availabilities")

Sub FormatLists()
    Call RemoveTractors
    Call RemoveDeletedLocations
End Sub

What's the best way to go about this?
Thank you!

 

[tygrrboi]

you will have to be specific about the sheets inside the individual macros. If you do not list a sheet, it will assume you are talking about the active sheet... in your case "Yard Availabilities".. which is not where you want the macro to be done..

try this

[COLOR=#333333]Sub RemoveTractors()
    [COLOR=#ff0000]With Sheets("yard")[/COLOR]
        Last = [COLOR=#ff0000].[/COLOR]Cells([COLOR=#ff0000].[/COLOR]Rows.Count, "B").End(xlUp).Row
        For i = Last To 1 Step -1
            If ([COLOR=#ff0000].[/COLOR]Cells(i, "B").Value) = "Tractor" Then
                [COLOR=#ff0000].[/COLOR]Cells(i, "A").EntireRow.Delete
            End If
        Next i
    [COLOR=#ff0000]End With [/COLOR]
End Sub
[/COLOR]
[COLOR=#333333]Sub RemoveDeletedLocations()
    [COLOR=#ff0000]With Sheets("Yard Configuration")[/COLOR]
         Last = [COLOR=#ff0000].[/COLOR]Cells([COLOR=#ff0000].[/COLOR]Rows.Count, "K").End(xlUp).Row
         For i = Last To 1 Step -1
             If ([COLOR=#ff0000].[/COLOR]Cells(i, "K").Value) = "Yes" Then
                 [COLOR=#ff0000].[/COLOR]Cells(i, "A").EntireRow.Delete
             End If
         Next i
    [COLOR=#ff0000]End With[/COLOR]
End Sub
[/COLOR]
[COLOR=#333333]Sub FormatLists()
    Call RemoveTractors
    Call RemoveDeletedLocations
End Sub[/COLOR]

 

[glockgal42]

See I tried that but it looks like I did not add the . in front of cells or rows so that could have been my problem. Thank you! I will try that.

 

[tygrrboi]

Using a With statement keeps something in its "memory".. so when you start a call with a dot, it means that the blank space before the dot is the entire thing inside your with statement.

So if you are on sheet, Yard...

With Sheets("Yard Configuration")
Range("A1").Value
End With

is going to be the A1 value in sheet, Yard (because you have not set the sheet... it assumes that you mean the active sheet, Yard.)

Whereas

With Sheets("Yard Configuration")
.Range("A1").Value
End With

will be the A1 value on the sheet, Yard Configuration. The dot connects the Range to the sheet you assigned to the With statement.


I hope this helps make things clear..