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

fleron
fleron (27.465 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 (43.785 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 (49.709 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 (49.709 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 (27.465 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 (49.709 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 (43.785 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 (27.465 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 (43.785 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

Sortere efter drop down boks

Oprettet den 26. maj 2015 kl. 13.27
crmk-as giver 60 point for svar | Giv et svar »

Ændre datoformat og ugeformat

Oprettet den 26. maj 2015 kl. 10.17
Admir giver 45 point for svar | Giv et svar »

Indtastning af =TEXT i Excel online

Oprettet den 26. maj 2015 kl. 09.27
schunck giver 30 point for svar | Giv et svar »






Computerworld

Teaser billede

Windows 10-opgradering kun gratis det første år - her er Microsofts opgraderings-plan

Microsoft fejer enhver tvivl af banen: Windows 10 vil ikke blive ved med at være gratis. Se selskabets opgraderings-plan her.

CIO

Teaser billede

Efter 20 år i it-sikkerhedsbranchen: Her er fem barske sandheder fra kendt sikkerhedsekspert

Hvor reel en trussel er mobiltelefoner egentlig? Er det medarbejderne som er truslen mod firmaets data? Og hvorfor bliver amerikanske tjenester ved med at halte på sikkerheden? Få svaret når en...

Channelworld

Teaser billede

Presset og desperat: Derfor er Expert tvunget til at åbne masser af nye butikker

Computerviews: Experts planer om at åbne en ny front i krigen om markedet for forbrugerelektronik er kun en lille del af et stort slagsmål om it-forbrugerne gunst. Den egentlige trussel...

White paper

Teaser billede

Så store omkostninger har DoS-angreb

I dette white paper kan du læse om omkostningerne og konsekvenserne for din virksomhed ved såkaldte denial-of-service-angreb (DoS).



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