Helpje..

[Anne44]

Ik wil graag op mijn werk e.e.a. herhaaldelijk werk vereenvoudigen..
Helaas ben ik niet zo bekend (nog ) met VB..

Ik wil graag dat in mijn makro, een formule (E2) naar beneden toe wordt doorgetrokken.. echter het aantal regels is elke keer anders.. What to do?

Kan iemand voor mij die makro schrijven (een klein stukje dus maar) misschien.. please.., Dan neem ik de rest op en waar ik dat nodig heb kan ik dan knippen en plakken.. toch??

Grtz, Annelies

 

[Wigi]

Annelies

Sub doorvoeren()
    Dim rngBegin As Range
    Set rngBegin = Selection.Range("A1")
    rngBegin.AutoFill Destination:=Range(rngBegin, Cells(Rows.Count, rngBegin.Offset(, -1).Column).End(xlUp).Offset(, 1)), Type:=xlFillDefault
End Sub

Selecteer cel E2 en doe dan de macro.

Wigi

 

[Wigi]

Annelies

En als je niet eerst wil selecteren (en dat zou ik zelf ook niet doen), dan is het:

Sub doorvoeren()
    Dim rngBegin As Range
    Set rngBegin = Range("E2")
    With rngBegin
        .AutoFill Range(.Address, Cells(Rows.Count, .Column - 1).End(xlUp).Offset(, 1)), xlFillDefault
    End With
End Sub

(tevens nog andere vereenvoudigingen gedaan).

Wigi

 

[Anne44]

Geweldig!

Dank je wel!

 

[Anne44]

Ik wordt geweldig op gang geholpen....
Kunnen jullie me dan ook helpen hoe een macro op meerdere excell werbladen te laten lopen (gehele werkmap min een totalen werkblad..)???

Greetz,

 

[Wigi]

Annelies,

Sub meerderesheets()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "Totalen" Then 'jouw code
    Next ws
End Sub

Verzin eens een titel voor jouw probleem...

Wigi

 

[Anne44]

Toepassing code werkt (nog) niet..

Ik probeer te plakken wat je geschreven hebt, echter wil hij voor commando nog een end sub.. werkt dus nog niet...

Range("S2").Select
ActiveCell.FormulaR1C1 = "=RC[-15]*RC[-1]"
Sub doorvoeren()
Dim rngBegin As Range
Set rngBegin = Range("S2")
With rngBegin
.AutoFill Range(.Address, Cells(Rows.Count, .Column - 1).End(xlUp).Offset(, 1)), xlFillDefault
End With
End Sub
Range("Q2").Select
ActiveCell.FormulaR1C1 = "=RC[-13]*RC[-2]"
Range("Q1").Select
ActiveCell.FormulaR1C1 = "Totaal VP"
Range("S1").Select
ActiveCell.FormulaR1C1 = "Totaal MN"

Wat moet ik aanpassen

 

[Wigi]

Laat Sub doorvoeren() en ook End Sub weg uit mijn code als je het ergens tussen plakt.

Op het einde: .Select is niet nodig.

Dit is al genoeg:

Range("Q1") = "Totaal VP"

Wigi