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
En skærmrevolution er på vej: Her er alt du bør vide om fremtidens mini-LED og micro-LED-skærme
En mindre skærmrevolution er nu under opsejling. Tre nye skærmteknologier kommer med hver deres løfte om vild kontrast, flottere farver og modulære egenskaber.
Computerworld
Overblik: Så meget betaler danske virksomheder i løn til it-medarbejderne - se listerne her
Overblik: Der er meget stor forskel på løn-niveauet for it-medarbejderne i de danske virksomheder. Få overblikket over, hvor lønnen er højest og lavest her.
CIO
The Digital Edge: Claus H. Andersen står i spidsen for at gøre dit indkøb nemmere i Salling Groups 1.500 butikker
Podcast: Salling Groups digitale chef, Claus H. Andersen, er på en digital mission: Det skal være nemmere at handle, nemmere at være kunde og nemmere være forbruger - i alle kædens 1.500 butikker. Hør hvordan den digitale chef arbejder.
Job & Karriere
"Vi var fem mennesker, der fik 400 millioner kroner, et lokale på 12 m2 og et stempel fra Undervisningsministeriet. Det kalder jeg mit første start-up. Det blev til IT-Universitetet. "
"Da jeg var færdig med PhD´en så var vi fem mennesker, der fik 400 millioner kroner, et lokale på 12 m2 og et stempel fra Undervisningsministeriet. Så skulle vi bare have et nyt universitet op og køre på seks måneder. Det kalder jeg mit første start-up. Det blev til IT-Universitetet."
White paper
Spændende undersøgelse: Her ligger forretningsværdien i print-sikkerhed
En undersøgelse fra IDC viser, at der for virksomheder er en solid business case i at prioritere sikkerhed på print, og ethvert it-initiativ der kan nedbringe omkostninger, er attraktivt for ledere. I undersøgelsen har IDC lavet dybdegående interviews med 16 organisationer, som bruger en entreprise printerløsning, og disse interviews viser at der ligger stor forretningsværdi i denne løsning. Organisationerne blev bedt om at beskrive forskellen på ”før” og ”efter” og det viser sig, at de har opnået et mere sikkert print-miljø, samtidig med at der spares både penge og tid.