Avatar billede Jesper P Juniormester
12. maj 2017 - 13:59 Der er 1 kommentar og
1 løsning

dynamisk range - vba

Hej Eksperter
Jeg sidder og bøvler med at få et stykke vba kode til at blive lidt mere dynamisk. jeg har dette stykke kode som fint flytter data fra range R5/Q5 til Q5,

If Not Intersect(Target, Range("O5")) Is Nothing Then
            Range("Q5").Value = Range("R5").Value & Chr(10) & Range("Q5").Value
        End If

Men jeg har mange rækker, så hvordan får jeg funktionen til at virke sådan at hvis jeg så klikker på O2756 så skal den smide data til R2756/Q2756 til Q2756.
Jeg er strandet her

If Not Intersect(Target, Range("$O$5:$O$3000")) Is Nothing Then
            Range("Q5?????").Value = Range("R5?????").Value & Chr(10) & Range("Q5?????").Value
        End If
Avatar billede excelent Ekspert
12. maj 2017 - 17:03 #1
Range("Q" & ActiveCell.Row).Value = Range("R" & ActiveCell.Row).Value & Chr(10) & Range("Q" & ActiveCell.Row).Value
Avatar billede Jesper P Juniormester
12. maj 2017 - 17:58 #2
You are so Excelent :)
tak for hjælpen igen igen
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
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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