ARGHHH - Har stor mængde data, som jeg ønsker fordelt ud på nye sheets, ved sortering af enkelt kolonne i 'masteren'

Det er forståeligt. Via VBA kan det lade sig gøre..
Det lyder næsten som om det skal være færdigt til i morgen - eller?

..og velkommen til Eksperten..

Det har du helt ret i.. troede jeg bare kunne gøre det vha LOpslag eller IF formel.. men det lyder ikke sådan!! Nu jeg lost... har hørt om VBA - men ved sgu ikke hvad det er!!! Ved du om man kan finde eksempler på det nogen steder eller er det ikke bare lige sådan at lave...

Jeg prøver lige søge lidt nærmere om det!!!

Du skulle ikke have et eksempel liggende i excel vel?? Altså så jeg bare kunne sætte mine data ind og benytte din VBA kode?? Lyder godt nok ikke som noget jeg lige uden videre kan fremtrylle en kode til!! Uha uha - men excel verdenen åbner sig da for mine øjne må jeg sige.. :o)

Og 'supertekst' tak for velkomsten forresten ;o)

Selv tak..

Hvis det stadig er aktuelt - kan jeg nok hjælpe dig i løbet af dagen.

PS: Du skal kun anvende KOMMENTAR til at besvare indlæg. SVAR anvendes kun af forslagsstillere, når de fremsender en løsning, der måske kan ACCEPTERES af opgavestilleren.

Opgavestiller skal så i givet fald Acceptere et Svar - dette giver points.

Fortvivl ej - du er ikke den første...

:o) Det er da egentlig også logisk nok.. men tror ikke jeg så så meget logik i noget da jeg skrev her på siden i nat :-) :o) Jeg opgav og sidder nu og roder med det igen.. De der lange koder forstår jeg ikke meget af - er lige til at gå amok over - især eftersom folk der kender til det, siger det er hurtigt og nemt at lave... Så vil jeg også kunne finde ud af det!! :-(  Men ak nej..

Så ja - hvis nogen sidder inde med eksempler eller hurtigt kan hjælpe mig på vej - så tager jeg imod med kyshånd ;o)

Hvis du vil så prøv at sende filen (med opgavebeskrivelse og eksempler på ønskede resultater) til
hans.knudsensnabelamail.tele.dk

Du er velkommen til at sende et uddrag af - hvor du så med et par eksempler viser hvad det er du ønsker.

Er de forskellige ark oprettet i forvejen?
Går ud fra at der er sorteret?

I princippet kan det hele "køre automatisk" via makroen.

@-adresse under min profil.

Er klar med en model i VBA..

Dim antalRækker As Long, status As String, ræk As Long
Dim startRæk As Long, slutRæk As Long
Const førsteRække = 2                              'første datarække
Const statusKolonne = "J"                          '<--- Justeres
Const sidsteKolonne = "Q"                          '<--- justeres
Public Sub fordelStatus()
    antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
    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
   
    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