Autofill of FillDown

[Jack Nouws]

Hallo

Ik heb een vraag over onderstaande code.
Is er een manier om deze code nog in te korten, of samen te vatten?

            With .Cells(Rows.Count, 5).End(xlUp)
                 .AutoFill Destination:=.Resize(2)
            End With
            With .Cells(Rows.Count, 7).End(xlUp)
                 .AutoFill Destination:=.Resize(2)
            End With
            With .Cells(Rows.Count, 9).End(xlUp)
                 .AutoFill Destination:=.Resize(2)
            End With
            With .Cells(Rows.Count, 12).End(xlUp)
                 .AutoFill Destination:=.Resize(2)
            End With

Met vr gr
Jack

 

[Wigi]

Bvb.

For Each v In Array(5, 7, 9, 12)

    With .Cells(Rows.Count, v).End(xlUp)
        .AutoFill Destination:=.Resize(2)
    End With

Next

 

[snb]

.Cells(Rows.Count, 5).End(xlUp).resize(2).Filldown
.Cells(Rows.Count, 7).End(xlUp).resize(2).Filldown
.Cells(Rows.Count, 9).End(xlUp).resize(2).Filldown
.Cells(Rows.Count, 12).End(xlUp).resize(2).Filldown
of

for j=1 to 4
   Cells(Rows.Count, choose(j,5,7,9,12)).End(xlUp).resize(2).Filldown
next

 

[Jack Nouws]

Bvb.

Zijn er nog meerdere voorbeelden met dezelfde werkwijzen?

Met vr gr
Jack

 

[Jack Nouws]

Zijn er nog meerdere voorbeelden met dezelfde werkwijzen?

Met vr gr
Jack

Dank je snb, onze posten hebben elkaar net gekruist.

Met vr gr
Jack

 

[Wigi]

Zijn er nog meerdere voorbeelden met dezelfde werkwijzen?

Met vr gr
Jack

Waarom is 1 zo'n werkwijze niet voldoende?

 

[Jack Nouws]

Waarom is 1 zo'n werkwijze niet voldoende?

Ik zocht een werkwijze die goed bij m'n With en End With - statement paste

Met vr gr
Jack