Hej. jeg har en projekt mappe som indeholder en lang række data som jeg gerne vil have sorteret i forskellige regne ark, men kan simpelt hen ikke regne ud hvordan dette gøres.
Min projekt mappe består af 4 regneark. regneark 1 som er mit udgangspunkt og indeholder alle dataene, Ark 2 som er leverandør X1, ark 3 som er leverandør X2 og ark 4 som er leverandør X3. I ark 1 kan der eksempelvis være 1000 rækker med data, hvor der i hver række i kolonne A enten står leverandør X1, X2 eller X3. Jeg vil så gerne at Excel selv fordele de 1000 rækker ud i de 3 andre regneark ud fra hvilken leverandør der måtte stå i kolonne A, således at alle rækker hvor leverandøren står til at være X1 bliver sendt til ark X1 osv..
Med version 7 af TeamShare tager Lector næste skridt og bygger en platform for AI-agenter, der i højere grad kan følge medarbejderen gennem hele arbejdsprocessen.
Navngiv dine arkfaner med leverandørenes navne, så de er ens med dem i A kolonnen i Ark 1.
kør så makroen
Sub FordelLeverandør() Dim Data As Variant, I As Long, X As Integer, Res As Range Data = Sheets("Ark1").Range("A1").CurrentRegion For I = 1 To UBound(Data, 1) Set Res = Sheets(Data(I, 1)).Range("A" & FindSidste(Data(I, 1))) For X = 1 To UBound(Data, 2) Res.Offset(0, X - 1) = Data(I, X) Next Next End Sub
Public Function FindSidste(Snavn) As Long FindSidste = Sheets(Snavn).Range("A65536").End(xlUp).Offset(1, 0).Row End Function
kan du sende et eksempelark, så kikker jeg på det kabbak snabela vip dot cybercity dot dk
dot = .
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
