First, I made the worksheet "WSName" equal to what is in Cell C8 of the "Parameters" worksheet.
Then, I would like to have an if statement that does the following:
If field 1 says "Carbon tax" and field 2 = 25, then have this cell = that cell. If field 1 says "Carbon tax" and field 2 = 50, then have this cell = another cell. If field 1 says "Carbon tax" and field 2 = 75, then have this cell = yet another cell. And so on and so forth.
So far, the code does not do anything. Would appreciate some help!
Here is my code:
Dim WSName As String
WSName = Worksheets("Parameters").Range("C8")
If Worksheets("Parameters").Range("C6").Value = "Carbon tax" And Worksheets("Parameters").Range("C7").Value = 0 Then
Worksheets(WSName).Range("F14").Value = Worksheets("Risk Rating Model Inputs").Range("AC54")
ElseIf Worksheets("Parameters").Range("C6").Value = "Carbon tax" And Worksheets("Parameters").Range("C7").Value = 25 Then
Worksheets(WSName).Range("G14").Value = Worksheets("Risk Rating Model Inputs").Range("AC57")
ElseIf Worksheets("Parameters").Range("C6").Value = "Carbon tax" And Worksheets("Parameters").Range("C7").Value = 50 Then
Worksheets(WSName).Range("H14").Value = Worksheets("Risk Rating Model Inputs").Range("AC57")
ElseIf Worksheets("Parameters").Range("C6").Value = "Carbon tax" And Worksheets("Parameters").Range("C7").Value = 75 Then
Worksheets(WSName).Range("I14").Value = Worksheets("Risk Rating Model Inputs").Range("AC57")
ElseIf Worksheets("Parameters").Range("C6").Value = "Carbon tax" And Worksheets("Parameters").Range("C7").Value = 100 Then
Worksheets(WSName).Range("J14").Value = Worksheets("Risk Rating Model Inputs").Range("AC57")
ElseIf Worksheets("Parameters").Range("C6").Value = "Integrated" Then
Worksheets(WSName).Range("K14").Value = Worksheets("Risk Rating Model Inputs").Range("AC56")
End If
There are no error messages; the code just doesn't do anything.
Aucun commentaire:
Enregistrer un commentaire