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..
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.
