Forfatter |
Emne Søg Emne funktioner
|
larsJensen
Bronze bruger
Medlem: 28.Mar.2016
Land: Denmark
Status: Offline
Point: 72
|
Emne: At ændre tal Sendt: 18.Nov.2016 kl. 07:03 |
Tusind tak for svar begge to, men jeg har ikke haft tid til at kigge på det, og jeg fik heller ikke en mail om, at der har været indlæg. Jeg har "desværre" en travl hverdag, men jeg vil kigge på jeres svar; da de ikke involverer VBA, er jeg fortrøstningsfuld.
|
|
|
|
|
Bjarnehansen
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5509
|
Sendt: 13.Nov.2016 kl. 18:35 |
Så kan han selv arbejde videre med arket, men så har han også et ark han bare kan kopiere også bare ændre årstallet i A1
|
Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag. Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK
|
|
BQardi
Bronze bruger
Medlem: 11.Nov.2016
Land: Danmark
Status: Offline
Point: 100
|
Sendt: 13.Nov.2016 kl. 18:02 |
Exactly lige præcis:
Bjarnehansen skrev:
prøv at se på denne:har lavet formelerne i D2-D6, E2, F2 og E40 det er i fanen beregning_2015 det er lavet. |
|
|
Bjarnehansen
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5509
|
Sendt: 13.Nov.2016 kl. 17:28 |
prøv at se på denne: har lavet formelerne i D2-D6, E2, F2 og E40 det er i fanen beregning_2015 det er lavet. uploads/397/vagtskema_2016-11-13_11-32-00_bj.xlsx
|
Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag. Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK
|
|
BQardi
Bronze bruger
Medlem: 11.Nov.2016
Land: Danmark
Status: Offline
Point: 100
|
Sendt: 13.Nov.2016 kl. 12:08 |
Kan du ikke bare lave en søg/erstat? søg efter "kalender_2017" og erstat med "kalender_2018" og det samme med "beregning_2017" erstat med "kalender_2018"???
Ellers kan du kigge på formlen INDIREKTE og f.eks bruge celle A1 som reference til korrekt ark: F.eks. i celle F34 kan du indsætte denne formel i stedet for den der allerede er der:
=INDIREKTE("beregning_"&A1&"!F34") |
Hvis værdien i A1 = 2017 svarer det til denne formel: Hvis værdien i A1 = 2018 svarer det til denne formel:
Det er umiddelbart slet ikke nødvendigt med VBA...
Er det sådan noget du er ude efter?
|
|
larsJensen
Bronze bruger
Medlem: 28.Mar.2016
Land: Denmark
Status: Offline
Point: 72
|
Sendt: 13.Nov.2016 kl. 11:44 |
uploads/1652/vagtskema_2016-11-13_11-32-00.xlsxJeg gør det, jeg kopierer/indsætter arkene, som jeg så tilretter. Hvis du ser i arkene kalender_2018 & beregning_2018 under selve kalenderen, ser du en masse formler direkte fra arkene kalender_2017 & beregning_2017. Som det er nu, bruger jeg noget tid på at rette 7-tallet i 2017 til 8-tallet i 2018; jeg skriver altså ikke noget 4-cifret tal. Jeg tænkte så på, om noget kode kunne "se" 2017 eller 2018 o.s.v. og rette til det næste år. Kan det i det hele taget lade sig gøre?
|
|
BQardi
Bronze bruger
Medlem: 11.Nov.2016
Land: Danmark
Status: Offline
Point: 100
|
Sendt: 12.Nov.2016 kl. 21:03 |
Selvfølgelig:
1) Højreklik selve fanen og vælg "Vis kode" (mener det er det den hedder, sidder med en Engelsk version af Excel lige nu og der hedder det "View code") 2) Indsæt koden i det vindue der kommer frem (dette er hvad kaldes VBE = Visual Basic Editor)
That's it...
Når du herefter taster et 4 cifret tal ind i en hvilken som helst celle, ændres tallet til tallet + 1. Når du indsætter flere værdier (kopieret andet steds fra) går koden igennem alle cellerne og ændrer tilsvarende. Bemærk at ALLE 4 cifrede tal ændres, dvs. hvis du har et tal, som f.eks. et beløb eller et postnummer ændres disse også! Koden ændrer kun tal hvor hele cellens indhold er et 4 cifret numerisk tal, dvs. hvis cellens indhold er f.eks. "Jeg er 1000 år gammel" ændres 1000 IKKE... Hvis det er sådan noget du er ude efter må du lige sige til, så kan jeg ændre koden... Hvis du vil have flere restriktioner på, f.eks. kun at ændre i kolonne "A" eller kun ændre tal mellem 2000 og 2099, må du ligeledes sige til...
HUSK ALTID AT TESTE KODEN PÅ ET EKSEMPEL ARK FØRST!
|
|
larsJensen
Bronze bruger
Medlem: 28.Mar.2016
Land: Denmark
Status: Offline
Point: 72
|
Sendt: 12.Nov.2016 kl. 12:50 |
Tusind tak for din respons, men VBA-kodning er for mig mere sort end sort.
Vil du være venlig at fortælle mig, trin for trin, hvad jeg skal gøre.
|
|
BQardi
Bronze bruger
Medlem: 11.Nov.2016
Land: Danmark
Status: Offline
Point: 100
|
Sendt: 11.Nov.2016 kl. 20:28 |
Hvis du prøver at kopiere formler får du nok uventede resultater, så ved brug af denne kode må du altid indsætte kopierede data som værdier
Indsæt koden i ark-modulet for det ark hvori dine data skal kopieres til og ultimativt have ændret årstallene:
Private Sub Worksheet_Change(ByVal Target As Range) Dim tgt As Range For Each tgt In Target If tgt.Value Like "????" And IsNumeric(tgt.Value) Then Application.EnableEvents = False tgt.Value = tgt.Value + 1 Application.EnableEvents = True End If Next tgt End Sub
|
|
larsJensen
Bronze bruger
Medlem: 28.Mar.2016
Land: Denmark
Status: Offline
Point: 72
|
Sendt: 04.Okt.2016 kl. 14:51 |
Er det muligt automatisk at rette et tal (f.eks. årstal), når man indsætter noget fra et andet ark? Som det er nu, må jeg rette tallene manuelt, og taget over flere ark giver det ret mange rettelser.
Jeg kom så til at tænke på, om man kan skrive noget kode, som retter "2018" til "2019" og "2019" til 2020" og så fremdeles.
|
|