Forum
Køb af god farkorrekt IPS skærm
17
Grønland. Hvad er den bedste løsning?
21
AMD 9070 XT
551
Køb af bærbar til arbejde og lidt gaming
5
WD Green HDD 6TB reagerer ikke
2
Hjælp til installation af RX 7900 XT
22
50XX launch i dag - har I fået fat i et kort?
302
Årsopgørelsen 2024
13
Mørke skygger, driver problemer og AMD 9070 XT
8
Anbefal et accespoint
4
Bærbar til AutoCad og Adobe photoshop
16
Nyt build 14-16k
18
Valg af ISP?
7
Gmail+Outlook+eget domæne->Proton
3
Opdatering af Mobilforsiden mv
20
Ny pc til CS:GO
11
Asus astral 5090 ændret forventet leveringstid
19
AIO køling for første gang
12
"Office pakke" til Android tablet ?
12
3090 - Hvad er det værd?
1
Jeg bliver skræmt af Trump
115
Compumail har 3 stk. 5090 til levering 17/03/25
14
2. Tråd til rapportering af fejl på det nye design
172
Ram. kan jeg blande??
5
USA har stoppet efterretninger til Ukraine
55
F 100% Disk use
14
Billigst TB pris - hvilken hdd?
13
Bedste computer (uden gfx) til 8-8,5 k
6
Western Digital Harddisk
6
9900X3D / 9950X3D launch
21
Køb & Salg
S: Asus 4070 SUPER Dual
6
K: Grafikkort i hvidt design/tema købes!
6
K: 1-2TB SSDs købes M.2/sata, its all good!
8
K: Noctua NA-HC4 white købes.
3
S: R7 5800x3D ASUS STRIX X570-F G.skill 32gb
17
S: Fourze 750W Psu
4
asus tuf gaming x870-plus wifi bundkort
7
S: Ældre hardware kan hentes gratis.
14
S: RTX 3080 - Asus TUF LHR V2 - 12gb - HBO 2500
5
V: Asus 4070 TUF OC
2
B: Gigabyt Aorus RTX 3070
3
Hol.dk's Uofficielle White/Black liste V4
216
V: S: Ryzen 3600, bundkort og 16gb RAM
9
K: Ryzen 7700 (non-x) / 9700x
4
S: PoE 2 Early Access Key
20
V: RX 7700 XT Red Devil
21
S: Microsoft Surface Laptop 6
4
S: Asus TUF 4080 super 16GB (salg/bytte) MMVision
18
K: WD Velociraptor eller Intel X25-M
9
S: RX7900XT & Ryzen 7800X3D
8
S: Palit RTX 2070 Super Jetstream
7
V: Adjustme hæve/sænke skrivebord
0
S: Gør et kup, itx custom vand
3
K: G.Skill DDR4 - 32 GB -3600 - CL - 16 Og 5950x
3
K: AGP - Radeon 9800/Geforce 6800 el.l
6
B: 5070 Ti Prime til 5080 FE/Prime
5
S: Asus VG27AQML1A TUF 27" QHD - IPS - 260Hz
5
S: Ryzen 7600x
0
S: Unifi Dream Router (UDR)
5
S: Logitech g pro x wireless
8
Forum
Køb af god farkorrekt IPS skærm
17
Grønland. Hvad er den bedste løsning?
21
AMD 9070 XT
551
Køb af bærbar til arbejde og lidt gaming
5
WD Green HDD 6TB reagerer ikke
2
Hjælp til installation af RX 7900 XT
22
50XX launch i dag - har I fået fat i et kort?
302
Årsopgørelsen 2024
13
Mørke skygger, driver problemer og AMD 9070 XT
8
Anbefal et accespoint
4
Bærbar til AutoCad og Adobe photoshop
16
Nyt build 14-16k
18
Valg af ISP?
7
Gmail+Outlook+eget domæne->Proton
3
Opdatering af Mobilforsiden mv
20
Ny pc til CS:GO
11
Asus astral 5090 ændret forventet leveringstid
19
AIO køling for første gang
12
"Office pakke" til Android tablet ?
12
3090 - Hvad er det værd?
1
Jeg bliver skræmt af Trump
115
Compumail har 3 stk. 5090 til levering 17/03/25
14
2. Tråd til rapportering af fejl på det nye design
172
Ram. kan jeg blande??
5
USA har stoppet efterretninger til Ukraine
55
F 100% Disk use
14
Billigst TB pris - hvilken hdd?
13
Bedste computer (uden gfx) til 8-8,5 k
6
Western Digital Harddisk
6
9900X3D / 9950X3D launch
21
Køb & Salg
S: Asus 4070 SUPER Dual
6
K: Grafikkort i hvidt design/tema købes!
6
K: 1-2TB SSDs købes M.2/sata, its all good!
8
K: Noctua NA-HC4 white købes.
3
S: R7 5800x3D ASUS STRIX X570-F G.skill 32gb
17
S: Fourze 750W Psu
4
asus tuf gaming x870-plus wifi bundkort
7
S: Ældre hardware kan hentes gratis.
14
S: RTX 3080 - Asus TUF LHR V2 - 12gb - HBO 2500
5
V: Asus 4070 TUF OC
2
B: Gigabyt Aorus RTX 3070
3
Hol.dk's Uofficielle White/Black liste V4
216
V: S: Ryzen 3600, bundkort og 16gb RAM
9
K: Ryzen 7700 (non-x) / 9700x
4
S: PoE 2 Early Access Key
20
V: RX 7700 XT Red Devil
21
S: Microsoft Surface Laptop 6
4
S: Asus TUF 4080 super 16GB (salg/bytte) MMVision
18
K: WD Velociraptor eller Intel X25-M
9
S: RX7900XT & Ryzen 7800X3D
8
S: Palit RTX 2070 Super Jetstream
7
V: Adjustme hæve/sænke skrivebord
0
S: Gør et kup, itx custom vand
3
K: G.Skill DDR4 - 32 GB -3600 - CL - 16 Og 5950x
3
K: AGP - Radeon 9800/Geforce 6800 el.l
6
B: 5070 Ti Prime til 5080 FE/Prime
5
S: Asus VG27AQML1A TUF 27" QHD - IPS - 260Hz
5
S: Ryzen 7600x
0
S: Unifi Dream Router (UDR)
5
S: Logitech g pro x wireless
8
- Denne tråd er over 6 måneder gammel
Er du sikker på, at du har noget relevant at tilføje?
Få celle i excel til at opdatere værdi efter input
Af Tyren9 Elite Supporter
Hejsa.
Jeg er ved at lave et excelark med budget. Det er ikke min husholdningsøkonomi, blot et lille budgetark til nogle overnatninger med nogle venner.
I den anledning kunne jeg godt tænke mig at have celle A1 til at indeholde vores samlede rådighedsbeløb. Jeg kan derefter i celle A2 skrive, at vi lige har brugt for 100 kr, og det beløb bliver så trukket fra A1. Derefter forsvinder 100 fra A2, og den er nu klar til en ny indtastning - dog har A1 nu en værdi, der er 100 kr. lavere. Det vil altså give mig et overblik over, hvor mange penge vi har tilbage.
Er det muligt?
Venlig hilsen.
Jeg er ved at lave et excelark med budget. Det er ikke min husholdningsøkonomi, blot et lille budgetark til nogle overnatninger med nogle venner.
I den anledning kunne jeg godt tænke mig at have celle A1 til at indeholde vores samlede rådighedsbeløb. Jeg kan derefter i celle A2 skrive, at vi lige har brugt for 100 kr, og det beløb bliver så trukket fra A1. Derefter forsvinder 100 fra A2, og den er nu klar til en ny indtastning - dog har A1 nu en værdi, der er 100 kr. lavere. Det vil altså give mig et overblik over, hvor mange penge vi har tilbage.
Er det muligt?
Venlig hilsen.
Lav det som en kontooversigt?
A1: rådighedsbeløb
A2: Rådighedsbeløb
B1: Beløb
B2: A2-B1
Osv.
Kan det bruges?
A1: rådighedsbeløb
A2: Rådighedsbeløb
B1: Beløb
B2: A2-B1
Osv.
Kan det bruges?
Principielt skal den jo bare hedde A1-A2. A1 skal bare opdatere sin værdi, og A2 skal nulstilles.
Jeg tror ikke helt, det andet er en holdbar løsning i længden.
Jeg tror ikke helt, det andet er en holdbar løsning i længden.
Jeg fik det til at virke med hjælp fra Reddit:
Indsæt det her i VBA editoren i Excel.
[CODE]Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Me.Range("A2")
If Not Application.Intersect(Target, rng) Is Nothing Then
Application.EnableEvents = False
[A1].Value = [A1].Value - [A2].Value
[A2].Value = 0
Application.EnableEvents = True
End If
End Sub
[/CODE]
Indsæt det her i VBA editoren i Excel.
[CODE]Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Me.Range("A2")
If Not Application.Intersect(Target, rng) Is Nothing Then
Application.EnableEvents = False
[A1].Value = [A1].Value - [A2].Value
[A2].Value = 0
Application.EnableEvents = True
End If
End Sub
[/CODE]