celle gå i nul og farve

Kommer lige til at tænke på, jeg skal også kunne skrive (tal) i samme celle (C1)Så går det jo ikke med en formel
kan jeg få en makro til at klare opgaven ?

Hej mikkel43

Kan du evt. bruge følgende VBA kode, som ligger under det aktuelle ark SelectionChange hændelse:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    'hvis celle D1 har værdien "Falsk"
    If ActiveSheet.Range("D1").Text = "Falsk" Then
   
        'sæt følgende for celle C1
        With Range("C1")
       
            'værdien = 0
            .Value = 0
           
            'baggrundsfarven rød
            .Interior.Color = RGB(255, 0, 0)
           
        End With
   
    'hvis celle D1 ikke har værdien "Falsk"
    Else
   
        'sæt følgende for celle C1
        With Range("C1")
       
            'værdien = tom
            .Value = ""
           
            'ryd formateringen
            .ClearFormats
           
        End With
       
    End If
   

End Sub


Med venlig hilsen, Nicolai

Hvilken formel/udtryk er der i D1?

Hej, og tak, men jeg synes nu ikke rigtigt jeg får det til at virke, men dejligt at du skriver så flot en forklaring på hvad de forskellige udtryk/linier betyder
D1 returnerer SAND/Falsk fra et alternativfelt
Jeg bruger C1 til at skrive grossistprisen, hvor jeg så i alternativknappen kan vælge om kunden skal have nye dæk på (købt hos os), eller om kunden kommer med vintedæk som skal monteres på de gamle fælge, og her skal grossistprisen gerne gå i nul da kunden selv kommer med dækkene.

Hej mikkel43

I mit test ark er der i celle D1 en formel som returnere sand/falsk alt efter resultatet af andre felter.

Når Celle D1 returnerer teksten "Falsk", så farves Celle C1 rød og værdien i celle C1 sættes til 0.

Så lang tid der står "Falsk" i celle D1, så ændres værdien til 0 i celle C1, hvis der forsøges at taste i cellen.

Hvilken version af Excel bruger du ? ... Jeg bruger Excel 2003

Med venlig hilsen, Nicolai

http://gupl.dk/670823/

Hej igen :-)
Ja jeg synes det er utroligt med mig, jeg fatter åbenbart ikke en bjælde af dette VBA
Jeg har forsøgt på rigtigt mange måder at få din VBA til at virke, men lykkes vil det bare ikke, jeg fik så store mortens vba til at virke, men heller ikke uden problemer, men det virker da, jeg tror, men uden at vide det, at jeg kløjs i det option button / click, og hvad der ellers står deroppe i vba-editoren.
Jeg er jo nok nødt til at give jer begge point, så jeg må oprette en ny tråd til en af jer for tildeling af point.
Storemortens vba er nu heller ikke helt problemfri, jeg oplever at trods jeg har tildelt C1 en formatering så den skal være 14 i tegnstørrelse, fed, og centreret, så smutter den tilbage og højrecentrerer sig og går i 11 i størrelse og normal istedet for fed, min ramme udenom cellen fosvinder også, ... mærkeligt Øv :-)

Hej Mikkel

Pyt med pointene ... Det vigtigste er at skidtet virker.
Har du mulighed for at poste dit ark, så vil jeg gerne gøre et forsøg ?

Med venlig hilsen, Nicolai

Hej Mikkel

:-) Nej det er ikke mærkligt din formatering forsvinder.
Det gør min kodning for dig

Prøv at skift maroen DækValg med denne:

For den da...

Prøv at skifte makroen "DækValg" med ovestående kode.  ;-)

Hej
Jeg har lagt arket ind her: http://gupl.dk/670887/
Der mangler stadig lidt ting jeg mangler at rette i den, men i kan da kikke på den som den er nu :-)

Range("E15").Value = 4
Slettet! da E15 jo ikke er antal men pris.

Med betinget formatering på celle E15
Betinget formatering -- Formelen er:
=$D$41=FALSK Rød
=$D$41=SAND  Ingen farve

kan koden se sådan ud:


Eller

Med betinget formatering på celle E15
Betinget formatering -- Formelen er:
=$D$41=FALSK Rød
=$D$41=SAND  Ingen farve
Og prisen kan hentes i anden celle? I stedet for indtastning, F.eks en hjælpe celle E57.
Formel i E15: =HVIS(D41=FALSK;0;E57)

Så kan koden se sådan ud:

Hold da op, det er jo totalt lækkert dette her, jeg må sandelig sige at jeg er virkelig glad for denne hjælp, senere i dag, hvis jeg får tid, vil jeg lige kikke på det her, men når jeg det ikke inden må i alle virkelig have en rigtig glædelig jul

Tjaa, så fik jeg sørme alt til at virke, og endda på en højt hellig 1 juledag :-)
Men så fandt jeg lige ud af at lige så snart jeg låser arket får jeg fejl: "Range("E15").Interior.Color = RGB(255, 0, 0)"
Trods E15 er låst op, og meget andet også er låst op, bla de celler der referer SAND/FALSK, og andre jeg redigerer i
Hvad kan det nu skyldes?

Hov, og nu sad jeg lige og legede lidt frem og tilbage, og pludselg får jeg også denne : " .Pattern = xlNone"

http://gupl.dk/670957/

Beskyt ark:
Tilad....
Husk flue-ben i: Formater celler

Genialt
Men undskyld jeg ikke har svaret før, vi har haft en temmelig travl jul/nytår
Vil du ikke lægge et svar, så får du dine meget velfortjente point

Det er selvfølgelig i orden :-)

Velbekomme.

Hvilken løsning blev det #19 eller #20?

Hej Morten
Ja endnu engang undskyld min enorme svartid, jeg har desværre igen været i kemo, og det tager temmeligt hårdt på energien og lysten til at gøre noget som helst, men her er jeg så igen, og næsten også menneskeligt online.
Jeg brugte din løsning #19 og den virker perfekt, måske lige med et par bagateller der skal gøres noget ved, ved lejlighed og humør
Bla "lyser" beløbet rødt når der bliver valgt "dæksalg uden montering" men regner med det kun er en bagatel, så det kikker jeg på en anden god gang

Mvh
Peter