Avatar billede Laugesen1 Mester
12. september 2016 - 02:10 Der er 5 kommentarer og
1 løsning

Tilpas hel kolonne ved brug af offset og rDest

Jeg har en makro der indsætter værdier flere forskellige steder i et ark. Jeg bruger offset med refence til én celle (rDest), i eksemplet er det Range("K5").

Dette for at jeg nemt kan flytte alle destinationscellerne i arket på en gang.

I en enkelt kolonne, skal jeg også kunne bruge -Selection.Columns.AutoFit, for at tilpasse kolonnens bredde. Dette skal også være ud fra rDest, så kolonnereferencen bliver flyttet med, når jeg ændre rDest.

Jeg har prøvet med følgende kode:

  Set rDest = Sheets("Ark1").Range("K5")
    rDest.Offset(0, 2).IntireColumns.Select
        Selection.Columns.AutoFit

I eksemplet er det 2 kolonner til højre for K5, altså kolonne M, der skal blive tilpasset i bredden.
Men det virker ikke.

Er der nogen der har et bud på, hvordan jeg gør det?

På forhånd tak
Laugesen
Avatar billede excelent Ekspert
12. september 2016 - 05:28 #1
Set rDest = Sheets("Ark1").Range("K5")
Columns(rDest).Offset(0, 2).AutoFit
Avatar billede Laugesen1 Mester
12. september 2016 - 09:54 #2
Hej excelent
Tak for dit svar.

Jeg har indsat:  Columns(rDest).Offset(0, 2).AutoFit
Men den giver en debug.
Avatar billede supertekst Ekspert
12. september 2016 - 14:01 #3
Eksempel:
Sub test2()
    Set rDest = Sheets("Ark11").Range("K5")
    rDest.Offset(0, 2).Select
    Selection.Columns.AutoFit
End Sub
Avatar billede supertekst Ekspert
12. september 2016 - 14:01 #4
NB: Ark11 --> Ark1
Avatar billede Laugesen1 Mester
12. september 2016 - 14:48 #5
Hej Supertekst
Tak for dit svar.

Jeg har indsat din kode:
        rDest.Offset(0, 2).Select
        Selection.Columns.AutoFit

Den justerer kolonnebredden, men kun efter indholdet i række 5.
Så har jeg tilføjet -Entire- i koden, og nu virker det efter hensigten.

Sub test3()
    Set rDest = Sheets("Ark1").Range("K5")
    rDest.Offset(0, 2).Select
    Selection.EntireColumn.AutoFit
End Sub


Tak for hjælpen
Laugesen
Avatar billede supertekst Ekspert
12. september 2016 - 14:50 #6
Så lidt..
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