Macro sorteert cellen binnen een bereik, andere macro's mee sorteren?

[Peer44]

Hallo,

een uitdaging:

via een macro wordt een bereik gesorteerd op basis van getallen, 1,2,3 etc.
hieronder de betreffende code:

Private Sub CommandButton2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

'
' sorteren Macro
'
' Sneltoets: CTRL+SHIFT+V
'
    Range("A5:T43").Select
    ActiveWindow.SmallScroll Down:=-22
    ActiveWorkbook.Worksheets("Invulblad").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("invulblad").Sort.SortFields.Add Key:=Range( _
        "A5"), SortOn:=xlSortOnValues, order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("invulblad").Sort
        .SetRange Range("A5:T43")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A5").Select
End Sub

Nu staat er op dat werkblad vanaf regel 5 t/m regel 43 de volgende macro per regel:
via een commandbutton in kolom a per regel 1 button

Sub regel5()
'
' regel5 Macro
'

'
    Range("B5").Select
    ActiveCell.FormulaR1C1 = "=RC[52]"
    Range("c5").Select
    ActiveCell.FormulaR1C1 = "=RC[59]"
    Range("G5").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[48]="""","""",RC[48])"
    Range("G5").Select
    Selection.AutoFill Destination:=Range("G5:H5"), Type:=xlFillDefault
    Range("G5:H5").Select
    Range("H5").Select
End Sub

op iedere regel is de macro uiteraard voorzien van het juiste regel nummer.

Als ik nu de eerste macro start, "sorteren" dan worden de waardes binnen excel mooi gesorteerd, echter de macro's verhuizen niet mee.

dus als ik bijv. na sorteren in regel 7, op de knop click dan wordt regel 5 gestart ipv 7. omdat de verwijziging in de macro's niet meegaat.

Wie heeft hier een oplossing voor?

Ik heb geen voorbeeld mee gepost omdat ik dan behoorlijk wat data eruit moet halen, hopelijk is het zo duidelijk..

alvast bedankt.

 

[Haije]

Peer,

probeer eens of dit je verder helpt:

Sub regel5()
'
' regel5 Macro
'
    Range("B" & activecell.row) = "=RC[52]"
    Range("c" & activecell.row) = "=RC[59]"
    Range("G" & activecell.row) = "=IF(RC[48]="""","""",RC[48])"
    Range("G" & activecell.row).Select
    Selection.AutoFill Destination:=Range("G" & activecell.row:"H" & activecell.row), Type:=xlFillDefault
    Range("G" & activecell.row:"H" & activecell.row).Select
    Range("H" & activecell.row).Select
End Sub

 

[Peer44]

Haije bedankt,

hier ben ik verder meegekomen.