Young Grasshopper
Board Regular
- Joined
- Dec 9, 2022
- Messages
- 58
- Office Version
- 365
- 2016
- Platform
- Windows
Hi World!
I have this code in a vba userform. I need every referance cell to increase by one (D1, D2, D3 etc.) for every "IF Then".
My original plan was just to do it manually, as started, but as the code needs to be repeated 100 times, there is probably a faster way to do it..
Any suggestions?
Would appreciate any help
I have this code in a vba userform. I need every referance cell to increase by one (D1, D2, D3 etc.) for every "IF Then".
My original plan was just to do it manually, as started, but as the code needs to be repeated 100 times, there is probably a faster way to do it..
VBA Code:
Private Sub Testbtn_Click()
If Me.ComboBox1.Text = Worksheets("Macrodata").Range("D1").Text Then
Headline.Value = Worksheets("MacroData").Range("AD2").Value
Description.Value = Worksheets("MacroData").Range("AE2").Value
URL.Value = Worksheets("Responsive Search Ads HUB").Range("D11").Value
End If
If Me.ComboBox1.Text = Worksheets("Macrodata").Range("D2").Text Then
Headline.Value = Worksheets("MacroData").Range("AD3").Value
Description.Value = Worksheets("MacroData").Range("AE3").Value
URL.Value = Worksheets("Responsive Search Ads HUB").Range("D12").Value
End If
If Me.ComboBox1.Text = Worksheets("Macrodata").Range("D3").Text Then
Headline.Value = Worksheets("MacroData").Range("AD4").Value
Description.Value = Worksheets("MacroData").Range("AE4").Value
URL.Value = Worksheets("Responsive Search Ads HUB").Range("D13").Value
End If
If Me.ComboBox1.Text = Worksheets("Macrodata").Range("D4").Text Then
Headline.Value = Worksheets("MacroData").Range("AD5").Value
Description.Value = Worksheets("MacroData").Range("AE5").Value
URL.Value = Worksheets("Responsive Search Ads HUB").Range("D14").Value
End If
End Sub
Any suggestions?
Would appreciate any help