CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

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

Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
renteberegning Af Pil i Excel	3	24/11/202411:27	25/11/202417:42
Identificér og hent del af tekststreng Af TheLibrarian i Excel	2	22/11/202416:49	25/11/202409:27
Ændre nuller til ovenstående tekst Af boro23 i Excel	4	20/11/202410:44	20/11/202412:08
HVIS med datoer Af HHA i Excel	6	20/11/202408:31	20/11/202412:51
Numerisk liste Af AND i Excel	8	19/11/202414:05	19/11/202423:31

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