Formule herhalen op basis van invoerveld

[rickb1977]

Hallo,

Voor mijn werk moet ik regelmatig (dagelijks) bestanden opmaken.
De enige variabele in de bestanden is het aantal rijen en het aantal kolommen.

Als simpel voorbeeld heb ik twee bestanden meegestuurd. In bestand 'voorbeeld1' wil ik de opmaak die ik hieronder beschrijf toepassen op 1 kolom, namelijk B.
In bestand 'voorbeeld2' wil ik het toepassen in B, C, D en E.
De eerste kolom waar de opmaak op toegepast moet worden is altijd B.

Is het mogelijk om (misschien met een messagebox? Of is er een andere betere optie?) te vragen om het aantal kolommen en op basis van dat getal de formule X keer toe te passen?
De opmaak die ik hieronder beschrijf is maar als voorbeeld.

Sub Test_opmaak_kolommen()
'
' Test_opmaak_kolommen Macro
' Test
'

'
    Range("B1").Select
    Selection.Font.Bold = True
    Columns("B:B").Select
    With Selection
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("B5").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-3]C:R[-1]C)"
End Sub

Alvast bedankt voor het meedenken.

 

[emields]

bedoel je zoiets?

 

[rickb1977]

Hallo Emields,

Dank voor je reactie. Als ik de knop gebruik zie ik wel dat er een andere cel geselecteerd wordt maar er veranderd niets aan de opmaak.

 

[emields]

Misschien valt het zo beter op.