Oprettet man. d. 14. januar 2013 kl. 11:23:55

fleron
fleron (26.400 point. Point ude: 460)


Flytte reference ved hjælp af regning

Jeg skal flytte en reference 7 pladser i samme kolonne.

Jeg har en reference der hedder: ='El-Produktion - 2013'!D7
Nedenunder har jeg et tilsvarende felt, men det skal være lig D14.
Jeg har ikke lyst til at sidde og oprette hele året manuelt, så jeg tænkte om man ved hjælp af +? kunne få referencen til at flytte sig, således man bare kan trække formlen ned over cellerne.

Når man skriver +7 lægger den bare 7 til værdien i D7, den flytter ikke referencen.

Jeg har også prøvet med ='El-Produktion - 2013'!$D$7, men uden held

Er der en venlig sjæl der kan løse dette?

Skrevet man. d. 14. januar 2013 kl. 12:02:35| #1

store-morten
store-morten (41.090 point)
I en tom kolonne:

='El-Produktion - 2013'!D7
7 rækker under
='El-Produktion - 2013'!D14

Marker fra ='El-Produktion - 2013'!D7 og 6 rækker under ='El-Produktion - 2013'!D14

Fyld ned så langt du behøver.
Med markering --> Søg og vælg --> Gå til speciel --> Vælg "Tomme celler" --> OK

Højreklik på den nye markering og vælg --> Slet. Vælg --> "Ryk celler opad" --> OK

Skrevet man. d. 14. januar 2013 kl. 12:40:57| #2

dkhanknu
dkhanknu (48.614 point)
Måske:

=FORSKYDNING('El-Produktion-2013'!$D$1;7*RÆKKE(2:2)-1;;;)

Skrevet man. d. 14. januar 2013 kl. 12:42:10| #3

dkhanknu
dkhanknu (48.614 point)
Om igen:

=FORSKYDNING('El-Produktion-2013'!$D$1;7*RÆKKE(1:1)-1;;;)

Formlen kopieres nedad.

Skrevet man. d. 14. januar 2013 kl. 16:59:00| #4

fleron
fleron (26.400 point)
Hej Begge

@Store-morten: Din løsning virker, omend den stadig er manuel med sletning af rækker :-)

@dkhanknu: Din formel er ikke helt korrekt - den virker ikke :-(
Prøvede selv med denne: =OFFSET('El-Produktion - 2013'!D7;7;0;1;1), men når jeg kopiere den nedad så skifter D7 til D8, D9, D10 o.s.v. hvor jeg gerne ville at den skiftede til D14, D21, D28 o.s.v. - Den skal blot lægge 7 til referencetallet.

Skrevet man. d. 14. januar 2013 kl. 17:08:47| #5

dkhanknu
dkhanknu (48.614 point)
Er du ikke lige lovlig skråsikker i din konstatering af, at det ikke virker?

Hans

http://gupl.dk/690115/

Skrevet søn. d. 20. januar 2013 kl. 13:45:22| #6

store-morten
store-morten (41.090 point)
Måske med en Makro?

I en tom kolonne:

='El-Produktion - 2013'!D7

Marker cellen, kør Makro: "Indsæt_formel"
Sub Indsæt_formel()

Start = ActiveCell.Address

Antal = InputBox("Indtast antal kopier")
If Antal = "" Then Exit Sub
Spring = InputBox("Indtast antal spring")
If Spring = "" Then Exit Sub

Application.ScreenUpdating = False

For i = 1 To Antal
    ActiveCell.Copy Destination:=ActiveCell.Offset(Spring, 0)
    ActiveCell.Offset(Spring, 0).Select
    Next i
   
Slut = ActiveCell.Address

Range(Start & ":" & Slut).SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlUp
Range(Start).Select

Application.ScreenUpdating = True
End Sub

Skrevet man. d. 25. februar 2013 kl. 20:54:41| #7

fleron
fleron (26.400 point)
Hej igen.
Der kom lige noget privatliv ind over - så derfor blev mit excel problem nedprioriteret.

@Hans - Jeg kan få din løsning til at virke - smid et svar :-)
@Store-Morten - Jeg har ikke afprøvet din formel, og da jeg ikke kan gennemskue den = finde ud af at rette i den (hvis det behov skulle opstå) så vælger jeg at sige tak for input :-)

Mvh
Finn Fleron

Skrevet man. d. 25. februar 2013 kl. 21:11:14| #8

store-morten
store-morten (41.090 point)
Hej Finn.

#4
"@Store-morten: Din løsning virker, omend den stadig er manuel med sletning af rækker :-)"

Måske med en Makro?
I en tom kolonne:
='El-Produktion - 2013'!D7
Marker cellen, kør Makro: "Indsæt_formel"

Denne makro udfører det "Manuelle" med sletning af rækker.

Skrevet tir. d. 26. februar 2013 kl. 06:30:26| #9


Skriv et indlæg




Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] [img]link til billede[/img]
Web- og emailadresser omdannes automatisk til links

Log ind

   


Seneste spørgsmål

45 degree diagonal linie

Oprettet den 25. oktober 2014 kl. 23.34
5837 giver 200 point for svar | Giv et svar »

Excel 2010, fanen Fomater findes ikke

Oprettet den 24. oktober 2014 kl. 12.32
knagen7100 giver 60 point for svar | Giv et svar »

VBA til at erstatte tekst

Oprettet den 24. oktober 2014 kl. 11.48
mrkr giver 200 point for svar | Giv et svar »

Seneste guides

Find ejeren af et vilkårligt domæne
Undgå reklamerne på iPad
Opret BOOTBAR USB pen ...





Computerworld

Teaser billede

Android L: Disse telefoner får den nye version af Android

Den nyeste version af Android, Android Lollipop, er blevet præsenteret og er nu kommet ud i prøveversion til nogle enkelte enheder, men hvilke smartphones vil rent faktisk få det nye system?

CIO

Teaser billede

Microsoft: Adgang til Windows 10 vil kræve flere koder

I et forsøg på at appellere til de sikkerheds-bekymrede it-chefer indbygger Microsoft to-faktor-autentifikation direkte i Windows 10, som vil kræve to koder at få adgang til. Også en række andre...

Comon

Teaser billede

Test: Mini-computer fra Gigabyte har overraskende meget kraft

Gigabyte's Brix Pro (GB-BXi7-4770R) har overraskende meget kraft i så lille et chassis, men størrelsen giver også problemer.

Channelworld

Teaser billede

Printbranchen er ved at save benene af sig selv

Stenhård priskonkurrence undergraver den traditionelle forretningsmodel for salg af print-og kopimaskiner.

White paper

Teaser billede

It-besparelser med printanalyse

Hvordan skaber du den optimale drift og TCO for den samlede printerinstallation? Få en præcist evaluering med Scriptor Printanalyse.



Udgiver · © 2014 Computerworld A/S · Hørkær 18 · 2730 Herlev · Tlf.: 77 300 300 · Fax: 77 300 301 · Brug af personoplysninger