Avatar billede tnt Novice
22. juni 2016 - 15:10 Der er 1 kommentar og
1 løsning

Indsæt x antal linjer med hver måned ud fra en linje med start og slut dato

Hej

Jeg har en lang række med linjer, hvor jeg gerne ud fra oplysningerne i hver enkelt linje (i et nyt ark) vil indsætte x antal rækker med den 1. i månederne ud fra start og slut dato.

Oplysningerne i kolonne A og B, vil være de samme for alle ud fra hver linje, så det vil kun være datoen som skal være forskellig i de nye linjer.

F.eks.:
___A_________B________C_____________D
1__ID01______100______01-01-2016______31-01-2016
2__ID02______200______01-01-2016______29-02-2016
3__ID03______300______01-08-2016______31-12-2016

bliver til:

__A______B_____C
1_ID01___100___01-01-2016
2_ID02___200___01-01-2016
3_ID02___200___01-02-2016
4_ID03___300___01-08-2016
5_ID03___300___01-09-2016
6_ID03___300___01-10-2016
7_ID03___300___01-11-2016
8_ID03___300___01-12-2016

Kan det på nogen måde løses på en smart og automatiseret måde?

På forhånd tak!
Mvh. Thomas
Avatar billede Jessen Seniormester
23. juni 2016 - 11:27 #1
Hej,

Sjov udfordring.

Her er en løsning - den skal nok tilpasses lidt til dit ark.

Sub ProdPlan()

t = 1
n = 1

Do Until Sheets("Ark1").Cells(t, 1) = ""

    Sheets("Ark2").Cells(n, 1) = Sheets("Ark1").Cells(t, 1)
    Sheets("Ark2").Cells(n, 2) = Sheets("Ark1").Cells(t, 2)
    Sheets("Ark2").Cells(n, 3) = Sheets("Ark1").Cells(t, 3)

    Do Until Sheets("Ark1").Cells(t, 4) < DateAdd("m", 1, Sheets("Ark2").Cells(n, 3))
       
        n = n + 1
       
        Sheets("Ark2").Cells(n, 1) = Sheets("Ark1").Cells(t, 1)
        Sheets("Ark2").Cells(n, 2) = Sheets("Ark1").Cells(t, 2)
        Sheets("Ark2").Cells(n, 3) = DateAdd("m", 1, Sheets("Ark2").Cells(n - 1, 3))
       
    Loop
   
    n = n + 1
    t = t + 1
   
Loop
   
End Sub
Avatar billede tnt Novice
23. juni 2016 - 15:23 #2
Hej Jessen

Den er tilpasset, og det virker bare! Tusind tak for hjælpen. Jeg tænkte nok, at der måtte være en smart løsning på det :)
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester