Oprettet man. d. 14. januar 2013 kl. 11:23:55
Tjen 60 point | 9 kommentarer
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 (33.797 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
='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 (41.680 point)
Måske:
=FORSKYDNING('El-Produktion-2013'!$D$1;7*RÆKKE(2:2)-1;;;)
=FORSKYDNING('El-Produktion-2013'!$D$1;7*RÆKKE(2:2)-1;;;)
Skrevet man. d. 14. januar 2013 kl. 12:42:10| #3
dkhanknu (41.680 point)
Om igen:
=FORSKYDNING('El-Produktion-2013'!$D$1;7*RÆKKE(1:1)-1;;;)
Formlen kopieres nedad.
=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 (23.810 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.
@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 (41.680 point)
Er du ikke lige lovlig skråsikker i din konstatering af, at det ikke virker?
Hans
http://gupl.dk/ (...)
Hans
http://gupl.dk/ (...)
Skrevet søn. d. 20. januar 2013 kl. 13:45:22| #6
store-morten (33.797 point)
Måske med en Makro?
I en tom kolonne:
='El-Produktion - 2013'!D7
Marker cellen, kør Makro: "Indsæt_formel"
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
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 (23.810 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
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 (33.797 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.
#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
Svar
Log ind
Seneste spørgsmål
Kan man bruge anden kode i Excel end VBA og ...
Oprettet den 24. maj 2013 kl. 14.32
anthonsen giver 30 point for svar | Giv et svar »
Skal finde en værdi efter en given max værdi
Oprettet den 23. maj 2013 kl. 21.43
bjurs giver 30 point for svar | Giv et svar »
Seneste guides
Seneste nyheder
Tips & Tricks fra PC World
Fem smarte funktioner i din Mac som du sikkert ikke kender
Her har du fem muligheder for at tweake din Mac på en fed måde.
Anmeldelser fra PC World
Test: Samsung Galaxy S4 er et hit - trods gøglertricks
Kan Samsung beholde førertrøjen i det store Android-race? Galaxy S4 er smækfyldt med innovative funktioner, men også med en del gøgl. Er det for meget? Få vores dom over Samsungs nye topmodel.
Seneste blogindlæg
Tvangslukke spørgsmål: Hvad er den bedste løsning?
Hej Vi har mange åbne spørgsmål på Eksperten. Vi ville gerne tvangslukke dem - så et spørgsmål efter f.eks. 6 måneder lukkes. Men der er et par uklarheder som ville være gode at få lidt input til:...
Nyheder fra PC World
Ny opfindelse: Oplad din mobil på 20 sekunder
Måske er det snart slut med at lade mobilen op hver aften. Med ny opfindelse kan telefonen få fuld energi på sølle 20 sekunder.
Nyheder fra Computerworld
Galleri: De 10 vildeste datacentre i verden
I en gammel kirke, i et oppusteligt telt, på nedlagte militæranlæg eller midt i ørkenen. Der er ingen grænser for, hvor man kan banke et datacenter op. Her er de 10 sejeste anlæg i verden. I...
IT Kurser
Samarbejdspartnere
Udgiver · © 2013 IDG Danmark A/S · Hørkær 18 · 2730 Herlev · Tlf.: 77 300 300 · Fax: 77 300 301 · Brug af personoplysninger