Quickpick list in Excel

[Shaun]

I have a macro setup to switch between races based on the list in excel, the issue i face is i need 2 different races, just having trouble getting the second race to activate, even tried 2 different macros linked, any thoughts.

Code: Select all


Sub Race1()
With ThisWorkbook
.Sheets("Data").Range("Q2").Value = .Sheets("Data_QuickPickList").Range("N1").Value
End With
Race2
End Sub
Sub Race2()
With ThisWorkbook
.Sheets("Data").Range("Q51").Value = .Sheets("Data_QuickPickList").Range("O1").Value
End With
End Sub


Am using a simple data validation list and vlookup to get the race ID

[Captain Sensible]

Any reason why you don't just use

Code: Select all

Sub Race1()
With ThisWorkbook
.Sheets("Data").Range("Q2").Value = .Sheets("Data_QuickPickList").Range("N1").Value
.Sheets("Data").Range("Q51").Value = .Sheets("Data_QuickPickList").Range("O1").Value
End With
End Sub


I've always used Call to run other macros have you tried

Code: Select all

Call Race2

instead of Race2 if you need Race2() to run separately at other times.

[Shaun]

That is what i originally had, what i was finding is that the second race was failing to change, think it had to do with the refreshes, right now i have 2 separate buttons but would love to run it from one macro.

[Captain Sensible]

What's it actually doing? Might be easier ways to acheive it.

If it's because it can't complete two actions within the same refresh just have Race1() set a flag to say Race(2) runs on the next refresh.

Sub Race1()
With ThisWorkbook
.Sheets("Data").Range("Q2").Value = .Sheets("Data_QuickPickList").Range("N1").Value
.Sheets("Data").Range("AA1").Value = "Run macro race 2"
End With
End Sub

Then within you main code, before the code that fires macro Race(1), something simple like

Code: Select all

If .Sheets("Data").Range("AA1").Value = "Run macro race 2" Then Call Race2()

Code: Select all

Sub Race2()
With ThisWorkbook
.Sheets("Data").Range("Q51").Value = .Sheets("Data_QuickPickList").Range("O1").Value
.Sheets("Data").Range("AA1").Value = ""    'Just to reset the flag
End With
End Sub

[Shaun]

Thanks, setting up a flag did the trick

[Lovefanluv]

The floor can be a source of feedback that you bring this issue out of the channel.
The data are interesting issues. Layers can study To learn next