formule in vba copieren tot einde regels

[GerV]

Goedemorgen,

ik zoek de vba code om een formule in een kolom (bijv kolom b) te copieren tot de laatste gevulde regel van kolom A.

GerV

 

[ExcelAmateur]

Heb je hier al gekeken?
https://www.helpmij.nl/forum/showthread.php/902947-VBA-Autofill-tot-laatste-regel-werkt-niet-goed?highlight=Formule+tot+laatste+regel

 

[GerV]

Neen,

ik had gezocht op formule copieren.

Maar hierin staat inderdaad de oplossing.

Bedankt.

 

[GerV]

De formule krijg ik aangepast voor het copieren en verwijderen maar niet voor het sorteren.

Wat doe ik fout? Ik krijg de foutmelding bij de vetgedrukte tekst

Sub ziekenlijst_maken()
'
' ziekenlijst_maken Macro
' ziekenlijst maken, sorteren  en naar blad 1 copieren
'

'
    Sheets("ziekenlijst").Select
    Range("G:G,J:J,K:K,L:L,N:N,P:P,S:S,T:T").Select
    Selection.Delete Shift:=xlToLeft
    ActiveWindow.ScrollColumn = 1
    Range("H2").Select
    ActiveWorkbook.Worksheets("ziekenlijst").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ziekenlijst").Sort.SortFields.Add Key:=Range("H2") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("ziekenlijst").Sort
        [[I]I][/I][B].Set Range Range ("A2:L" & Cells(Row.Count, 1).End(x1Up))[/B][/I]
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

 

[snb]

Vermijd altijd 'Select ' en 'Activate' in VBA.

Gebruik VBA niet voor formules in een werkblad. Hetzelfde kan vaak in VBA zelf en tenslotte schrijf je het resultaat in het werkblad.

 

[GerV]

Snb,

het verwijderen van select is niet de oplossing. De foutmelding blijft.

 

[ExcelAmateur]

Hoort er tussen de 2 rangen niet een = te staan?

 

[GerV]

ExcelAmateur

bij een harde verwijzing stat geen = teken. Zal het eens proberen.

 

[GerV]

ExcelAmateur

blijf een foutmelding krijgen.

 

[ExcelAmateur]

Als je nu eens na de punt Set Range weghaalt, de andere Range laten staan.

 

[GerV]

helaas. nog steeds foutmelding

 

[ExcelAmateur]

Zo geeft hij hier nog geen fout melding.

With ActiveWorkbook.Worksheets("ziekenlijst").Sort
        .Set Range("A2:L" & Cells(Row.Count, 1))
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

 

[GerV]

hier wel foutmelding

 

[ExcelAmateur]

Heb je wel het verschil gezien?

 

[GerV]

??

ik heb jouw code gecopieerd.

 

[ExcelAmateur]

Dat is niet te zien op het plaatje.
Zet het bestandje eens hier.

 

[GerV]

Sub test()


  ActiveWorkbook.Worksheets("ziekenlijst").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ziekenlijst").Sort.SortFields.Add Key:=Range("H2") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("ziekenlijst").Sort
        .Set Range("A2:L" & Cells(Row.Count, 1))
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    End Sub

 

[VenA]

Ik zie nergens een voorbeeldbestand.

Sub VenA()
  Sheets("ziekenlijst").Range("A2:L" & Cells(Row.Count, 1).Row).Sort Sheets("ziekenlijst").[A2], , , , , , , xlNo
End Sub

of

Sub VenA()
  With Sheets("ziekenlijst").Cells(1).CurrentRegion
    .Sort .Cells(1), , , , , , , xlYes
  End With
End Sub

 

[GerV]

Hierbij een voorbeeld van het bestand (flink ingekort). Het gaat om de datum van de melding. Deze moet van oud naar nieuw gesorteerd worden.



VenA
ook jouw 1ste code geeft een foutmelding. De 2de code niet maar sorteert de gegevens niet.

GerV

 

[GerV]

oeps,

in het voorbeeld is kolom a leeg gebleven. Hier staan natuurlijk ook gegevens (ook in kolom B)