Hej alle, Jeg skal have lavet en makro som udfører en "Hvad-hvis" funktion (iteration). Jeg har 5 celler i en række kald dem A1-A5. Der gælder for A2-A5 at de er afhængig af A1. Det betyder at de skaleres efter A1. Herefter så skal A1-A5 summeres i A6. Sagen er at man med Hvad-hvis funktionen normalt skal indtaste den værdi man søger imod manuelt. Men jeg vil gerne referere til en celle. Rent praktisk så skal celle der summeres i (A6), være den celle som hvad-hvis funktionen kører i. Og den skal gøre det ved at ændre i A1. Og den skal søge hen mod et tal, som jeg IKKE ønsker at skulle indtaste manuelt. Jeg vil have at den skal hente det fra en celle. Udtræk fra MVB: Sub Makro4() ' ' Makro4 Makro ' ' Range("H53").GoalSeek Goal:=14000, ChangingCell:=Range("B53") End Sub Det er de 140.000 jeg vi lskifte til en celleværdi, men mener ikke at jeg kan. Ret beset, så ved jeg heller ikke hvordan jeg korrekt referer til en celle. Celle jeg vil referere til er D34.
--

Sidst redigeret 14-07-2015 10:27

#1
Ahmad
Nørd
14-07-2015 11:15

Rapporter til Admin

Udfordringen er nu løst. Det er løst ved at skrive Range("celle") i stedet for tallet. Det virker! Nu har jeg blot 7 af disse makros som skal kunne køres hver især, og samtidig. Hver især har jeg lavet. At de skal køre samtidig, har jeg ikke (7 knapper til hver især, 1 knap til dem alle).
--
3960x @4,4GHz|Gigabyte X79 UD3|HD DCu2 7970|16GB Vengeance LP 1600MHz (Quad Channel)|Agility 3 120GB|750GB Spinpoint|Enermax Revolution 1050W 85+

#2
thomas_bk
Junior Nørd
14-07-2015 12:54

Rapporter til Admin

Du kan lave en makro/vba kode som kører alle de syv makroer i samlet flok. Du kan gøre det med Call funktionen hvis jeg husker rigtigt.
--
Graphite 600T, P67 Deluxe, 2500K, Noctua NH-U12P SE2, Hyper-X 8GB, Seasonic X-750, GTX670 4GB, 840 Pro, P2414H, Win8.1

#3
Ahmad
Nørd
14-07-2015 15:29

Rapporter til Admin

#2 kan du give mig et eksempel på hvordan jeg kører dem alle, samtidig? For nu har jeg lavet 7 makroer, hver især. De kører hver deres "Hvad-hvis" funktion. Så skal jeg lave en eller anden form for run af dem? Jeg kan bare ikke helt finde ud af den run-funktion i Excel.
--
3960x @4,4GHz|Gigabyte X79 UD3|HD DCu2 7970|16GB Vengeance LP 1600MHz (Quad Channel)|Agility 3 120GB|750GB Spinpoint|Enermax Revolution 1050W 85+

#4
yoggil
Supporter Aspirant
14-07-2015 15:36

Rapporter til Admin

#3 Uden at være ekspert i excel, så er det vel at lave en run funktion, som kalder alle dine 7 makroer. Eks. Run(makro1, makro2, makro3, osv.) syntaksen kan være anderledes, men det er sådan jeg forestiller mig du skal gøre det.
--

#5
thomas_bk
Junior Nørd
14-07-2015 16:32

Rapporter til Admin

Her er et lidt tænkt eksempel. Den sidste af funktionerne kører de to første med Call. Sub value() ActiveCell.value = 10 End Sub Sub value2() ActiveCell.Offset(1, 0).value = 110 End Sub Sub allvalue() Call value Call value2 End Sub
--
Graphite 600T, P67 Deluxe, 2500K, Noctua NH-U12P SE2, Hyper-X 8GB, Seasonic X-750, GTX670 4GB, 840 Pro, P2414H, Win8.1

#6
Ahmad
Nørd
15-07-2015 09:24

Rapporter til Admin

#4 Jeg har brug for at kende syntaksen. jeg kan ikke selv helt forstå den. #5 Men så kalder ud vel celler? Og mine "Hvad-hvis" funktioner er jo ikke gemt i celler som sådan? Det er gemt i knapper, som makro.
--
3960x @4,4GHz|Gigabyte X79 UD3|HD DCu2 7970|16GB Vengeance LP 1600MHz (Quad Channel)|Agility 3 120GB|750GB Spinpoint|Enermax Revolution 1050W 85+