ExcelJ95 Seniormester
20. december 2018 - 02:12 Der er 4 kommentarer

Flyt data VBA

Hej.
Jeg har dette ark:

https://we.tl/t-VXFiEtXZtJ

Min udfordring er, at få flyttet min rente, i celle b2, over i kolonne D det antal gange der er oplyst i celle A2, når jeg trykker på knappen.

Nogen der kan hjælpe med dette?

På forhånd tak.
ExcelJ95 Seniormester
20. december 2018 - 02:14 #1
... og samtidigt med, at jeg kan skrive en nå rente ind et hvis antal gange neden under efterfølgende.
kim1a Ekspert
20. december 2018 - 09:22 #2
VBAen til knappen kunne være:

Sub rente()

Dim last_row As Integer
Dim start_row As Integer
Dim strInterest As String

last_row = Cells(Rows.Count, 1).End(xlUp).Row
start_row = 2

For r = 2 To last_row

    strInterest = Cells(r, 2).Value
    For i = start_row To start_row + Cells(r, 1).Value - 1
    Cells(start_row, 4).Value = strInterest
    start_row = i + 1
    Next i
Next r

End Sub
ExcelJ95 Seniormester
20. december 2018 - 10:22 #3
Hej.
Tak fo svar!!

Kan man lave det sådan, at når jeg har afspillet makroen første gang, så næste gang jeg afspiller den, så sætter den dataene ind i første ledige celle i kolonne D, så den altså ikke sletter nogle renter jeg en gang tidligere har sat id?
kim1a Ekspert
20. december 2018 - 13:29 #4
Vi kan lave en lille tilføjelse i starten af vbaen så den fjerner hvad der lå i kolonne D udover overskriften:

range(cells(2,4),cells(15000,4).select
selection.clearcontents
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

Opret Preview

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





Premium
Datatilsynet vil ikke forholde sig til danske skolers brug af Microsoft 365: "Det er lidt ud over det normale pensum"
Interview: Datatilsynet vil ikke komme med en klar anbefaling til, om danske skoler kan bruge udenlandske cloud-løsninger, før man har set konkrete eksempler. “Det er helt bestemt et område, der har vores bevågenhed og hele tiden bliver vurderet.”
Computerworld
Huaweis topchef: Vores nye styresystem er betydelig hurtigere end Android
Huawei er svært tilfreds med selskabets nye operativsystem, der hedder Hongmeng. Systemet er meget hurtigere end Android, lover topchefen, og Huawei vil udbrede det til en masse andre enheder.
CIO
The Digital Edge: Ørsteds CIO Michael Biermann styrker it-afdelingen: "Vi får en masse nye kollegaer med kompetencer, som vi overhovedet ikke har set før. Det er virkeligt spændende"
The Digital Edge: Et styrket fokus på it-arkitektur, agile og værktøjer som design thinking har på få år sat fart på den 780 personer store it-afdeling hos energikoncernen Ørsted. Hør hele historien om transformationen og hvad fremtiden byder direkte fra CIO Michael Biermann.
Job & Karriere
Nye danskkrav får ansøgertallet til at falde på IT-Universitetet
Et nyt sprogkrav, der skal begrænse antallet af internationale studerende, har betydet, at 16 procent færre har søgt om at blive optaget på en bacheloruddannelse på IT-Universitetet i København.
White paper
Bliv klogere: Dataprotection by the numbers - for dummies
Kvantitative metrics gør dig i stand til, at sammenligne ledigheds- og beskyttelses-alternativer objektivt, uden bias i forhold til erfaringer og fordomme eller udbyderpræference. I dette whitepaper går vi i dybden med adskillige metrics, og starter med at definere hver og en, hvorefter vi tilføjer dem til diskussionen om hvilke slags data protection, data retention og data availabilty, som du kan bruge i forskellige scenarier. Formålet er at hjælpe dig som it-professionel, som sidder med ansvaret for data protection, med at kommunikere overfor finansielle stakeholders i din organisation.