---
title: "If then else i VBA..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/113164-if-then-else-i-vba"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "Kalle M"
published: "2004-10-08T12:06:52.000Z"
updated: "2004-10-08T12:48:49.000Z"
replies: 2
views: 399
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/113164-if-then-else-i-vba"
---

# If then else i VBA...

## #1 — Kalle M, 2004-10-08T12:06Z

Har skrivit följande kod. Har fått för mig att det brukar avslutas med End If...men att jag skrivit alla ifsatser med \_.
Hur skulle koden annars se ut? Om jag nu vill kunna ha End if i slutet?

Tack för hjälpen! 

```
Sub januariKalkyl()
    If ActiveCell.Offset(0, 1).FormulaR1C1 = "" Then _
        ActiveCell.Offset(0, 1).FormulaR1C1 = "januari"
    If ActiveCell.Offset(1, 0).FormulaR1C1 = "" Then _
        ActiveCell.Offset(1, 0).FormulaR1C1 = "Kassa"
    If ActiveCell.Offset(1, 1).FormulaR1C1 = "" Then _
        ActiveCell.Offset(1, 1).FormulaR1C1 = "40000"
    If ActiveCell.Offset(2, 0).FormulaR1C1 = "" Then _
        ActiveCell.Offset(2, 0).FormulaR1C1 = "Hyra"
    If ActiveCell.Offset(2, 1).FormulaR1C1 = "" Then _
        ActiveCell.Offset(2, 1).FormulaR1C1 = "8000"
    If ActiveCell.Offset(3, 0).FormulaR1C1 = "" Then _
        ActiveCell.Offset(3, 0).FormulaR1C1 = "Material"
    If ActiveCell.Offset(3, 1).FormulaR1C1 = "" Then _
        ActiveCell.Offset(3, 1).FormulaR1C1 = "5000"
    If ActiveCell.Offset(4, 0).FormulaR1C1 = "" Then _
        ActiveCell.Offset(4, 0).FormulaR1C1 = "Lön"
    If ActiveCell.Offset(4, 1).FormulaR1C1 = "" Then _
        ActiveCell.Offset(4, 1).FormulaR1C1 = "20000"
    If ActiveCell.Offset(5, 0).FormulaR1C1 = "" Then _
        ActiveCell.Offset(5, 0).FormulaR1C1 = "Resultat"
    If ActiveCell.Offset(5, 1).FormulaR1C1 = "" Then _
        ActiveCell.Offset(5, 1).FormulaR1C1 = _
        "=R[-4]C-R[-3]C-R[-2]C-R[-1]C"

End Sub
```

Permalänk: https://www.webforum.nu/p/113164

## #2 — Jesper T, 2004-10-08T12:45Z

```
If ActiveCell.Offset(0, 1).FormulaR1C1 = "" Then ActiveCell.Offset(0, 1).FormulaR1C1 = "januari"
    If ActiveCell.Offset(1, 0).FormulaR1C1 = "" Then ActiveCell.Offset(1, 0).FormulaR1C1 = "Kassa"
...
```

eller

```
If ActiveCell.Offset(0, 1).FormulaR1C1 = "" Then
        ActiveCell.Offset(0, 1).FormulaR1C1 = "januari"
end if
    If ActiveCell.Offset(1, 0).FormulaR1C1 = "" Then
        ActiveCell.Offset(1, 0).FormulaR1C1 = "Kassa"
end if
...
```

Eller vad menar du?

Permalänk: https://www.webforum.nu/p/1456980

## #3 — @nders, 2004-10-08T12:48Z

Känns som en liten fortsättning på [denna tråd](http://www.webforum.nu/showthread.php?s=&forumid=89&threadid=107201). :)

Som ett litet tips så går det att fortsätta på gamla trådar när man har följdfrågor.

(Och ja, moderatorn (dvs vänstertecknad) minns *alla* trådar som tidigare postats. ;-) )

Mvh

Permalänk: https://www.webforum.nu/p/1456982

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/113164-if-then-else-i-vba