vendredi 5 juillet 2019

VBA question - how to fix if / elseif / then statements

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