Notifikationer

Markér alle som læst Log ud

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

Synes godt om

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

Synes godt om

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 :)

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Excel kurser

Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Samle data fra flere kolonner i 1 Af FinnLauridsen i Excel	5	17/04/202616:11	27/04/202617:58
Træk data fra ny lokation ved måneds skift Af Hezo i Excel	6	13/04/202614:32	15/04/202611:04
Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel	2	31/03/202610:22	31/03/202611:47
Stempel ur start og stop Af lurup i Excel	2	23/03/202613:24	31/03/202610:27
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel	4	08/03/202611:56	08/03/202613:57

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS