Formularknap skult for bruger hvis given celle = 0

Jegkan ikke lige se du kan gøre det med en formularknap, men det kan gøres men en knap fra værktøjslinien kontrolelementer..... og kræver makro kode......

Jeg kan lave et eksempel, hvis det har interesse

Det må du gerne prøve
hilsen svaage

har du en mail adresse ?

du kan sende den til sv.kir@ci.kk.dk, så skal jeg kigge på det senere, da jeg ikke er hjemme i øjeblikket

sendt

vil du være så venlig at sende den en gang til, den mailadresse du fik er åbenbart lidt længe om at opdatere send den venligst på markvard@post.tele.dk

sendt

det virker som det skal, dog lidt ærgeligt at det ikke kan virke med en formular

et lille tillægsspm: hvordan får jeg i kodesprog skrevet, i en celle, om feltet som det nu handler om er krydset af eller ej ???

Man kan vel også få det til at virke med en knap fra formular.
Indsæt dette i arklets eget kodemodul.


Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") = 0 Then
    ActiveSheet.Shapes("Knap 1").Visible = False
    Else
    ActiveSheet.Shapes("Knap 1").Visible = True
End If
End Sub

Det virker fint bak, nu er jeg fri for at slette de 270 formularknapper jeg har lavet, det var dejligt at der også fandtes en løsning til formular versionen, nu mangler jeg bare et svar for at kunne afgive point, hvis I skal dele skal jeg have et svar fra begge

nu vil jeg gå i køjen, vender tilbage i morgen med point

hilsen Sv@@ge

Der kommer lige et enkelt tillægsspørgsmål mere:

ovenstående fra bak siger If Range("a1") = 0 Then, det virker fint hvis man skriver 0 eller et andet tal i celle a1, men hvis jeg henter værdien i celle a1 fra et andet ark, så virker det ikke HVORFOR ???????

rigtigt back der var shapes de gemmer sig under *gg*

If Range("A1").value = 0 Then

nej en fejl.
Det er fordi koden kun udføres, når arket er aktiv og der sker en ændring i A1.
Den ændring fanges ikke hvis et andet ark  er aktiv .

Og ændringen i A1, Sker jo ved at du er i et andet ark.

du skal også sætte denne kode ind i dit arkmodul, så skulle det virke

den tjekker når du kommer tilbage på arket

Private Sub Worksheet_Activate()
If Range("A1") = 0 Then
    ActiveSheet.Shapes("Knap 1").Visible = False
    Else
    ActiveSheet.Shapes("Knap 1").Visible = True
End If

End Sub

jeg kan vel godt nøjes med den sidste del, da ændringen altid vil ske på et andet ark

ja det kan du.

det virker nu fuldstændig som jeg havde tænkt mig, mange tak for hjælpen. Der skal uddeles nogle point, for at jeg kan gøre det skal jeg have nogle svar fra jer, så I kan dele point
Hilsen Sv@@ge

point bør gives til bak, mener jeg ;-))

Vi kan vel alle dele som vi plejer :-)

ok, jeg kan dog godt svare, men jeg lavede jo ikke så meget. ;-)

så mangler vi bare et svar fra flemming dahl,så alle 3 kan dele eller hvad

Da Flemming Dahl ikke har svaret uddeler jeg point til bak og kabbak, da kabbak mente at bak skulle have point, har jeg delt med 150p til bak og 50 til kabbak

Endnu engang tak for hjælpen alle 3

Hilsen Sv@@ge

tak for pointz ;-))

også tak for points herfra ... :-)