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

fleron
fleron (27.950 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 (45.433 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 (50.194 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 (50.194 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.950 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 (50.194 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 (45.433 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.950 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 (45.433 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

Aktuel tid i celle

Oprettet den 1. september 2015 kl. 06.29
skaanning giver 60 point for svar | Giv et svar »

Dynamisk graf

Oprettet den 31. august 2015 kl. 10.37
kaz9k giver 30 point for svar | Giv et svar »

VBA knao - Gem som PDF

Oprettet den 29. august 2015 kl. 21.26
FroZties giver 60 point for svar | Giv et svar »

Seneste guides

Fjern reklamer i Edge - Windows 10
Download/import af tabeller - IE
Manual til casio ur





Computerworld

Teaser billede

Vidste du det? Derfor kom dine computere med Syvkabale og Minestryger

Det var ikke kun for underholdningens skyld, da Microsoft introducerede brugerne til Minestryger og Syvkabale.

CIO

Teaser billede

Stor mangel: Danske virksomheder kommer snart til at mangle denne type it-folk

Danske virksomheder står på spring for at komme i gang med store projekter inden for data-analyse - ikke mindst drevet af data fra de sociale medier. Men der er et problem: Der er ikke folk nok.

Comon

Teaser billede

Derfor er Nigeria-svindlerne så snot-dumme

Har du også undret dig over, hvorfor de såkaldte Nigeria-breve så åbenlyst bærer præg af at være fake?

Channelworld

Teaser billede

HP splittes op i to danske selskaber: Her er de to nye topchefer i Danmark

HP har sat navne på, hvem der fra 1. november kommer til at stå i spidsen for de to nye danske HP-selskaber, som opstår, når hardwarekoncernen splittes i to.

White paper

Teaser billede

Cloud? - her er de gode råd om kontrakten og om at skifte

Skiftet er svært, og kontrakterne fulde af faldgruber. Download dette white paper fra Computerworld og få tip til at klare udfordringerne Nyt white paper skrevet af Computerworld.dk



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