Avatar billede anskov Mester
23. august 2018 - 14:19 Der er 3 kommentarer

VBA: kopir celle og indsæt i anden celle defineret af værdi i tredje celle

Hej Alle

Noget rodet overskrift, men lad mig prøve at forklare.
Jeg har følgende linje i min VBA kode

intSidsteraekke = Sheets("Rapportering").Cells(Sheets("Rapportering").Rows.Count, "A").End(xlUp).Row
intInputraekke = intSidsteraekke
Sheets("Rapportering").Cells(intInputraekke, 15) = Sheets("Start").Range("B20").Value

Hvor den siger den kopire B20 fra arket Start og indsætter i næste tomme linje og 15 kolloner til venstre.

Det er lige akurat tallet 15 jeg gerne vil have styret udfra værdien af en specifik celle. Så hvis A1 i arket "start" var lig 3 så bliver den kopiret celle indsat 3 kolloner til venstre.

Håber i kan hjælpe
Søren
Avatar billede Jan Hansen Ekspert
23. august 2018 - 14:32 #1
Hej
prøv, ej testet

Sheets("Rapportering").Cells(intInputraekke, Sheets("Start").Range("A1").Value*1) = Sheets("Start").Range("B20").Value

Jan
Avatar billede anskov Mester
23. august 2018 - 15:34 #2
Hej Jan

Tak for MEGET hurtig svar.
Jeg er ikke lige nået der til i min kode...så vender tilbage med om det kan bruges senere.
Avatar billede store-morten Ekspert
23. august 2018 - 19:58 #3
Måske:

Plads = Sheets("Start").Range("A1").Value
intSidsteraekke = Sheets("Rapportering").Cells(Sheets("Rapportering").Rows.Count, "A").End(xlUp).Row
intInputraekke = intSidsteraekke
Sheets("Rapportering").Cells(intInputraekke, 15 - Plads) = Sheets("Start").Range("B20").Value

3 kolonner til venstre for 15 (= kolonne L)
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

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