VBA If And Then Else

Så hvis E = F
så skal E rettes/ganges med henholdsvis 1,2 - 1,5 - 2 eller 3 ?

Prøv denne formel linje, efter din Else:   
Hele teksten herunder er ud i én linje.

        Worksheets("Formula").Range("F" & i).Worksheets("Formula").Range(("E" & i)).Formula = "HVIS(E>10000;E*1,2;HVIS(E>5000;E*1,3;HVIS(E2>2500;E*1,5;HVIS(E>1000;E*2;HVIS(E>=0;E*3;10000000))))))"")"

@store-morten,
Ja, bare modsat, hvis F = E

@ebea, det vil jeg prøve i morgen, da jeg desværre ikke fik min bærbare med fra arbejde :)

Er: E = F ikke det samme som F = E

Prøv

Hejsa ebea og store-morten,

Takker for jeres altid ihærdige indsats 👍👌

@ebea
Prøvede lidt med det du foreslog, men havde ikke rigtigt held med det.
Det er nok mig der ikke kunne få den til at makke rette.

@store-morten
Du fik lavet et næsten færdigt resultat til mig, takker.
Jeg skulle dog bygge noget mere på, da jeg ikke havde lagt det hele op. Dog med vilje.
Jeg skal jo også lære af den hjælp I kommer med og ikke bare bede om den færdige kode.
Det jeg nok ikke kunne gennemskue, er det med at lave flere If'er, men det har du da vist mig nu 👍

Endnu en stor tak til jer to for den ihærdige indsats her i forummet, TAK!

Det færdige resultat:

Sub test()

        Dim LR1 As Long

    Application.ScreenUpdating = False
    Set ws1 = Sheets("Ark1")
    LR1 = ws1.Range("F" & Rows.Count).End(xlUp).Row
    For i = 1 To LR1
        If ws1.Range("F" & i).Value > 0 And ws1.Range("F" & i).Value <> ws1.Range("E" & i).Value Then
            Range("H" & i) = Range("E" & i) * 1.2
            Range("J" & i) = Range("E" & i) * 1.1
            Range("L" & i) = Range("F" & i)
            Range("N" & i) = Range("F" & i)
          ws1.Range("I" & i).Value = "DKK"
          ws1.Range("K" & i).Value = "DKK"
          ws1.Range("M" & i).Value = "DKK"
          ws1.Range("O" & i).Value = "DKK"
    Else
        If Range("E" & i) = Range("F" & i) Then
            If Range("E" & i) > 10000 Then
            Range("F" & i) = Range("E" & i) * 1.2
            Range("H" & i) = Range("E" & i) * 1.2
            Range("J" & i) = Range("E" & i) * 1.1
            Range("L" & i) = Range("E" & i) * 1.2
            Range("N" & i) = Range("E" & i) * 1.2
            GoTo Fortsæt
            End If
     
            If Range("E" & i) > 2500 Then
            Range("F" & i) = Range("E" & i) * 1.5
            Range("H" & i) = Range("E" & i) * 1.2
            Range("J" & i) = Range("E" & i) * 1.1
            Range("L" & i) = Range("E" & i) * 1.5
            Range("N" & i) = Range("E" & i) * 1.5
            GoTo Fortsæt
            End If
     
            If Range("E" & i) > 1000 Then
            Range("F" & i) = Range("E" & i) * 2
            Range("H" & i) = Range("E" & i) * 1.2
            Range("J" & i) = Range("E" & i) * 1.1
            Range("L" & i) = Range("E" & i) * 2
            Range("N" & i) = Range("E" & i) * 2
            GoTo Fortsæt
            End If
     
            If Range("E" & i) >= 0 Then
            Range("F" & i) = Range("E" & i) * 3
            Range("H" & i) = Range("E" & i) * 1.2
            Range("J" & i) = Range("E" & i) * 1.1
            Range("L" & i) = Range("E" & i) * 3
            Range("N" & i) = Range("E" & i) * 3
            GoTo Fortsæt
            End If
           
        End If
    End If
Fortsæt:
    Next
    Application.ScreenUpdating = True
End Sub