Opdatering af nye data ifbm sortering af mastersheet til nye sheet (vba)

Skal de gl. data på sagsoversigten bibeholdes?

Ja - fremadrettet er det meningen, at alle nye sager der kommer tilføjes det eksisterende sagsoversigt-ark via Data Form! Så ja det skal de vel - hvis jeg forstår dit spørgsmål korrekt! :O)

Så skal koden udvides - så sidste række gemmes inden næste opdatering indlæses.

Ville det være ok at anvende cellerne AA1 til teksten: Sidste række opdateret" og AA2 til nr på sidste række?

AA2 vil så blive opdateret automatisk når opdateringskørslen er udført.

ja det er helt fint med mig.. Det eneste der skal være i de sheets er den data der kommer fra mastersheetet :o)

Rem Version 2
Rem =========
Dim antalRækker As Long, status As String, ræk As Long
Dim startRæk As Long, slutRæk As Long
Dim førsteRække As Long
Const statusKolonne = "J"                          '<--- Justeres
Const sidsteKolonne = "T"                          '<--- justeres
Public Sub fordelStatus()
    antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
    førsteRække = Range("AA2") + 1
   
    Sortering førsteRække, antalRækker
   
    startRæk = førsteRække
    slutRæk = 1
    status = Trim(Range(statusKolonne & førsteRække))
   
    Application.ScreenUpdating = False
   
    For ræk = førsteRække + 1 To antalRækker
        If Range(statusKolonne & ræk) = status Then
            slutRæk = slutRæk + 1
        Else
            overførTilStatusArk status, startRæk, slutRæk
           
            startRæk = ræk
            slutRæk = ræk
            status = Trim(Range(statusKolonne & ræk))
        End If
    Next ræk

    overførTilStatusArk status, startRæk, slutRæk

Rem opdater første række
    Range("AA2") = ræk - 1
   
    Application.ScreenUpdating = True
   
    MsgBox "Status-fordeling afsluttet"
End Sub
Private Sub overførTilStatusArk(status, startRæk, slutRæk)
Dim sidsteRække As Long
    Range("A" & startRæk & ":" & sidsteKolonne & slutRæk).Select
    Selection.Copy

    Sheets(status).Activate
    sidsteRække = ActiveCell.SpecialCells(xlLastCell).Row

    ActiveSheet.Range("A" & sidsteRække + 1).Select
    ActiveSheet.Paste
    ActiveSheet.Columns.AutoFit
   
    Sheets("Sagsoversigt").Select
    Application.CutCopyMode = False
End Sub
Private Sub Sortering(fra, til)
    ActiveWorkbook.Worksheets("Sagsoversigt").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sagsoversigt").Sort.SortFields.Add Key:=Range(statusKolonne & CStr(førsteRække) & ":" & statusKolonne & CStr(til)) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sagsoversigt").Sort
        .SetRange Range("A" & CStr(førsteRække) & ":" & sidsteKolonne & CStr(til))
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Du er bare dagens solstråle på ellers kedelig gråvejrsdag :O) 1000 Tak Peter

Selv tak..