Loop through drop down list and then call other macros

[DPhilip]

Good Morning. Anyone point out to me how to loop through a drop down list and then call another macro?

Ex. Drop down list:
Apple
Orange
Peach
Mango
Plum

I want it to go to apple first, run a macro I already use have then move to Orange and run the macro again until i get to plum and stop.

Right now I go to Apple then run the macro, then manually go to Orange, run the macro.. I have about 200 on my drop down list and this will save a lot of time.

Thanks in advance.

 

[Norie]

How did you create/populate the dropdown?

 

[DPhilip]

How did you create/populate the dropdown?

Its data in a column in my input tab and I used to create a drop down list via data validation tab.

 

[mikerickson]

If the Validated cell is Sheet1!A1, you might use

Dim oneThing as Variant
Dim ListOfThings as Variant

With Sheets("Sheet1").Range("A1").Validation
    If .Formula1 Like "=*" Then
        ListOfThings = Evaluate(.Formula1)
    Else
        ListOfThings = Split(.Formula1, ",")
    End If

    For Each oneThing in ListOfThings
        .Value = oneThing
        Call otherMacro
    Next oneThing
End With

 

[DPhilip]

Thank you so much but I am getting an Run Time Error 450 - "Wrong number of arguments or invalid property assignments" I presssed F8 to see the error and its the "Call Other Macro" part.

If the Validated cell is Sheet1!A1, you might use

Dim oneThing as Variant
Dim ListOfThings as Variant

With Sheets("Sheet1").Range("A1").Validation
    If .Formula1 Like "=*" Then
        ListOfThings = Evaluate(.Formula1)
    Else
        ListOfThings = Split(.Formula1, ",")
    End If

    For Each oneThing in ListOfThings
        .Value = oneThing
        Call otherMacro
    Next oneThing
End With

 

[mikerickson]

The OP asks to loop through the list and call other macros. You would substitute the actual name of the other macro.

 

[DPhilip]

Yes I did that. Its throwing an error

 

[Norie]

Can you post the macro(s) you are trying to call?

 

[DPhilip]

Well, I usually run this macro which calls all these macros..

Sub RunAllMacros()

HaulRevenue
FRejects
FilterClockShark
Differential
Splits
LegOne
LegTwo
PaymentSummary
SaveSheetsAsPDF
End Sub

 

[Norie]

Have you replaced this line of code, from Mike's code in post #4,

Call otherMacro

with this?

Call RunAllMacros