Jeg har lavet en prisliste med bilpriser og biludstyrspriser i Excel hvorved der ved indtastning af antal i et felt, (0 stk. eller 1 stk), aktiveres et andet felt hvori beløbet på den pågældende udstyrskode. fremkommer og til sidst bliver lagt sammen i bunden. Så langt har jeg fået det til at virke.
Problemmet opstår hvis jeg f.eks. har en bil der har en udstyrspakke (eks. Classic ell. Elegance) hvor nogle af biludstyrskoder er indbefattet. Den valgte udstyrspakke skal gerne aktivere de aktuelle prisfelter med teksten "standardudstyr".
Regnearket er opdelt således:
kol. A: udstyrskoder kol. C: beskrivelse af udstyrskoder kol. D: pris på udstyrskoder kol. F: antal (0 eller 1) kol. H: eks: =HVIS(F28>0;D28;HVIS(F28<=0;""))
Jeg havde forstillet mig noget i retning af
hvis f13 er >0 aktiveres felterne h30, h32, h36 med teksten "standardudstyr".
Hej Jeg mener at det enkleste er at lave det med en macro, da hvis sætninger ofte bliver for indviklede at finde rundt i senere. Du skal indsætte denne kode i enten "ThisWoorkbok" eller i et modul Sub udstyr() Worksheets("Ark1").Activate ' her skal du indsætte dit arknavn istedet for ARK1
If Range("f13") > 0 Then ' argumentet for udstyr eller ej
r = 8 ' kolonne nr. 8 - her indsættes i føkgende rækker Cells(30, r) = "Standardudstyr" Cells(32, r) = "Standardudstyr" Cells(36, r) = "Standardudstyr"
Jeg har lige forbedret macroen, så den nu kører automatisk når feltet f13 forlades. Koden skal nu ligges under det enkelte ark.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("f13")) Is Nothing Then If Range("f13") > 0 Then ' argumentet for udstyr eller ej
r = 6 ' kolonne 6 - her indsættes i føkgende rækker Cells(30, r) = "Standardudstyr" Cells(32, r) = "Standardudstyr" Cells(36, r) = "Standardudstyr"
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
