Hej hej

Det låter som att du gör dina manuella hanteringar exakt likadant varje gång. Efterssom så verkar vara fallet är din enklaste lösning att spela in ett macro. Blir det svårt att göra allt i ett svep kan du alltid spela in flera. Exempelvis en som heter radera gammal data, och en som heter fyll på med ny.

En annan variant skulle kunna vara att inaktivera att excel beräknar formler när du är klar med din fil. Då kommer inte dina formler att förstöras om du tömmer csv fliken på data. Detta gör du på arkiv --> alternativ----> formler----> manuell beräkning. Se till att bocka ur rutan spara automatiskt vid sparning av filen. Sedan kan du antningen tvinga excel att beräkna med F9, eller slå på automatisk beräkning igen.

Sista varianten är att kontakta mig så kan vi lösa det på konsultbasis, då blir det isåfall en VBA lösning.

 Jag satt och fipplade med detta en stund idag och skapade tillslut en formulärkontrollknapp och kopplade ett macro till den som ser ut så här:

Sub Lägg_Till_Enheter()

'

' Lägg_Till_Enheter Makro

' Lägger till enheter i Lagerstatus listan permanent

'

'

    Range("G18").Select

    Sheets("Lagerstatus").Select

    ActiveWorkbook.Worksheets("Lagerstatus").AutoFilter.Sort.SortFields.Clear

    ActiveWorkbook.Worksheets("Lagerstatus").AutoFilter.Sort.SortFields.Add Key:= _

        Range("D2"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _

        xlSortNormal

    With ActiveWorkbook.Worksheets("Lagerstatus").AutoFilter.Sort

        .Header = xlYes

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With

    ActiveSheet.Range("$A$2:$I$452").AutoFilter Field:=4, Criteria1:="<>"

    Range("D3").Select

    Range(Selection, Selection.End(xlToRight)).Select

    Range(Selection, Selection.End(xlDown)).Select

    Selection.Copy

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    Application.CutCopyMode = False

    Range("D3").Select

    ActiveSheet.Range("$A$2:$I$452").AutoFilter Field:=4

    ActiveWorkbook.Worksheets("Lagerstatus").AutoFilter.Sort.SortFields.Clear

    ActiveWorkbook.Worksheets("Lagerstatus").AutoFilter.Sort.SortFields.Add Key:= _

        Range("A2:A452"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _

        :=xlSortNormal

    With ActiveWorkbook.Worksheets("Lagerstatus").AutoFilter.Sort

        .Header = xlYes

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With

    Sheets("Utlämnade").Select

    Range("A2").Select

End Sub

Funkade klockrent när jag testat hittills och det tar hänsyn till att det kan vara olika många enheter i olika lagerförändringar.

Den klistrar in de värden som finns data på. Lämnar LETARAD formlerna i de ofyllda cellerna och sorterar sedan listan som jag vill ha den :)

Men det vore kul om man förstod koden och kunde skriva detta "manuellt"

Jag förstår en del, men skulle inte kunna få det fungerande utan inspelning

Men tack för inputen. Det hjälpte mig på traven.

Jag funderade på VBA och variabler ett tag, men jag insåg snabbt att min kompetens på det är för dålig och jag valde macro istället

 Jag ser det lite som självutbildning att försöka sätta sig in i andras problem

Och jag ska på chefen om utbildning i VBA och hur man skapar vettiga rapporter.

Nu sitter jag mest och knåpar ihop pivot tabeller men det är mest trial and error som utövas

Han skulle kolla efter om vi hade internutbildningar, så det kanske blir vilket år som helst :)