Relative referencer !

Prøv i menuen Funktioner/Indstillinger fanebladet Standard. Sæt eller fjern flueben i R1C1-referencetype.

Ja...det var et okay bud ! men det ændrer tilsyneladende ikke rigtig noget. Jeg satte et flueben i boksen, men når jeg efterfølgende optager en makro er det det samme som før...den henviser til det præcise område, og det er jeg ikke interesseret i, den skal uføre makroen fra der hvor jeg nu måtte stå fra gang til gang. ????

Ok. Nej det kan den ikke finde ud af. I stedet kan du jo bruge funktionen

ActiveCell

der giver dig din aktuelle position.

Kan jeg det ?....så må jeg have mere hjælp, hvordan omsætter eksempelvis følgende :

Sub KopiData()

    Range("B3:B10").Select
    selection.Copy
    Range("C3:M10").Select
    ActiveSheet.Paste
    Range("B3").Select
       
End Sub

til et relativt område ved brug af denne ActiveCell funktion ????

Skal det altid kopieres til C3:M10 eller skal det altid kopieres ud på 11 kolonner?

Ja....hele makroen er relativ, med udgangpunkt i hvor er står.

Det kan faktisk gøres raltivt simpelt. Prøv med denne her.


Sub KopiData()

Selection.Copy Range(Selection.Offset(0, 1), Selection.Offset(0, 11))

End Sub

Ja næsten, men det er ikke kun en celle jeg ønsker at kopiere. Det er et område B3:B10 til andre områder C3:M10  ??

Jamen så skal du bare markere det område, der skal kopieres.

Dvs. hvis du markerer B3:B10 og kører makroen, så vil det markerede område blive kopieret til C3:M10.

Hvis du markerer A10:A14 og kører makroen, så vil det markerede område blive kopieret til B10:L14.

Okay....men hvad nu når det er alene er værdierne jeg ønsker kopieret, hvorledes skriver jeg det ?

Det nemmeste er nok at optage en makro, der anvender relative adresser fra begyndelsen. Start makrooptageren. I makroværtøjslinien klikker du på knappen Anvend relative reference. Fortsæt optagelsen.

Så kan du jo prøve med:

Sub KopiData()
Dim rng As Range

Set rng = Selection
Application.ScreenUpdating = False
Selection.Copy
Range(Selection.Offset(0, 1), Selection.Offset(0, 11)).PasteSpecial xlValues
Application.ScreenUpdating = True
Application.CutCopyMode = False
rng.Select

End Sub

tida > Har du fået løst dit problem?

Nej egentlig ikke...beklager mit udfald her på tråden. Jeg er ude efter jkrons løsning...jeg kan bare ikke finde knappen "Anvend relative reference"...hvor i hylen er den henne ????

Når du vælger Funktioner/Makro/Indspil ny makro... og trykker OK, så dukker der en lille værktøjslinie op, der hedder "Stop indspilning" (hvis den ikke dukker op, kan du aktivere den ved at højreklikke på menulinien og vælge "Stop indspilning"). På min er der to knapper: én der stopper makro-optagelsen, og én hvor man kan slå relative referencer til og fra.

Om ikke andet så burde ovenstånde forslag da virke i henhold til din beskrivelse.

Jeg har ikke knappen "Anvend relative referencer"...jeg kender den godt, men den dukker ikke op i min Excel version...jeg har givet op og lukker hermed spørgsmålet.