formule in vba copieren tot einde regels

[GerV]

ik heb een nieuw bestand met gevulde kolommen a en b geupload.

 

[Jack Nouws]

Sorteren op kolom 8 (=kolom H)

Sub VenA2()
  With Sheets("ziekenlijst").Cells(1).CurrentRegion
    .Sort .Cells(1, [COLOR=#ff0000]8[/COLOR]), , , , , , , xlYes
  End With
End Sub

 

[VenA]

VenA
ook jouw 1ste code geeft een foutmelding.

Welke foutmelding? en gevonden waar het aan ligt?

Vandaar ook de opmerking om een bestand te plaatsen. Anders wordt het een beetje voor de vuist weg typen en dan wordt het ongetest geplaatst.

Waar is de rest van de code gebleven die je steeds in de plaatjes laat zien?

 

[snb]

Sub M_snb()
  With Blad1
     .Cells(1).CurrentRegion.Sort .Cells(1, 8), , , , , , , 1
  End With
End Sub

 

[GerV]

Allen,

hartelijke dank voor het meedenken. Ik heb de code nu werkend.

Toch nog 1 vraagje, waar staan de , , , , , voor in de formule?

 

[GerV]

Allen,

hartelijke dank voor het meedenken. Ik heb de code nu werkend.

Toch nog 1 vraagje, waar staan de , , , , , voor in de formule?

 

[snb]

VBEditor ( Alt-F11 ), help ( F1 ), lemma Range.Sort

 

[GerV]

Snb,

bedankt.