If then else i VBA...

2 svar · 392 visningar · startad av Kalle M 8 okt. 2004

Kalle MMedlem sedan mars 20041 936 inlägg

Frågan8 okt. 2004 12:06#1

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

Jesper TMedlem sedan nov. 20017 144 inlägg

8 okt. 2004 12:45#2

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?

@ndersMedlem sedan juni 200032 967 inlägg

8 okt. 2004 12:48#3

Känns som en liten fortsättning på denna tråd. :)

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