Macro inkorten

[Jack Nouws]

Hallo

Hoe kun je deze macro het beste veranderen naar een simpele VBA code?

Groeten Jack

Sub CmdSorteerOpPlant()

    Application.Goto Reference:="Plantgegevens"
    ActiveWorkbook.Worksheets("Planten").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Planten").Sort.SortFields.Add Key:=Range("C4"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Planten").Sort
        .SetRange Range("C4:H20")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

 

[Jack Nouws]

Hallo

Hoe kun je deze macro het beste veranderen naar een simpele VBA code?

Groeten Jack

Sub CmdSorteerOpPlant()

    Application.Goto Reference:="Plantgegevens"
    ActiveWorkbook.Worksheets("Planten").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Planten").Sort.SortFields.Add Key:=Range("C4"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Planten").Sort
        .SetRange Range("C4:H20")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Hebbes

Range("B4:H100").Sort Key1:=Range("B4")

 

[Roncancio]

:thumb::thumb:
Ik zie wel dat je eerst sorteert op cel C4 en vervolgens in de verkorte versie op cel B4.
Verder heb je het sorteerbereik aangepast.

Hoe dan ook als je tevreden bent met het resultaat kan je je vraag op opgelost zetten.

Met vriendelijke groet,


Roncancio

 

[Jack Nouws]

:thumb::thumb:
Ik zie wel dat je eerst sorteert op cel C4 en vervolgens in de verkorte versie op cel B4.
Verder heb je het sorteerbereik aangepast.

Hoe dan ook als je tevreden bent met het resultaat kan je je vraag op opgelost zetten.

Met vriendelijke groet,


Roncancio

Hoi Roncancio

Zou het nog anders kunnen dan?

Met vr gr Jack

 

[snb]

Korter en robuuster

sheets("Planten").Range("B4:H100").Sort sheets("Planten").Range("B4")

of

[Planten!B4:H100].sort [Planten!B4]

 

[Jack Nouws]

Korter en robuuster

sheets("Planten").Range("B4:H100").Sort sheets("Planten").Range("B4")

of

[Planten!B4:H100].sort [Planten!B4]

Ok bedankt weer wat wijzer geworden!:thumb:

Groetjes Jack

 

[Jack Nouws]

Ok bedankt weer wat wijzer geworden!:thumb:

Groetjes Jack

Hoe kun je dit in een werkende code veranderen?

met vr gr
Jack

Range("D4:D100").Special Paste:=Values.Range("C4")

 

[Warme bakkertje]

[D4:D100].Copy
[C4].PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

Of omgekeerd, naargelang wat je naar waar wil kopiëren

Mvg

Rudi