Deaktivere gruppeboks med radio-buttons pga. bestemt valg i anden

Og en anden ting: Hvordan aktiverer man en bestemt celle, samtidig med at man aktiverer et ark - fx:
If Range("B1") = 3 Then
  ThisWorkbook.Worksheets("no phone").Activate
?

kan du ikke smide dem i samme boks

Nej - for der er jo nogle af muligheder i den første boks, der gør at man skal vælge i den anden. En enkelt af mulighederne i den første vil resultere i, at spørgsmålet i den anden boks bliver overflødigt, og derfor bør boksen "dimmes"/blive grå og inaktiv...

Foerst gruppeboksene. I after update (eller on click) event

If gruppeboks1.Value = 1 then
        gruppeboks2.enabled = false
else
  .....
end if

Og dit spoergsmaal om aktivering af bestemt celle:

if range("B1") = 3 then
    Worksheets("no phone").Range("A1").select
end if

overcord >> han bruger formular elementer

Kan ikke få det til at virke... Ved ikke hvor gruppeboksens value er :-/. Jeg har dog cellekæder til mine radio-buttons? Og det er rigtigt - jeg bruger formular-elementer, for jeg er ikke så god til det her..

kabbak + gladhund >> ok det saa jeg ikke lige, beklager.

If Range("B1") = 3 Then
ActiveSheet.Shapes("GruppeBoks 2").Visible = False
ActiveSheet.Shapes("Alternativknap 5").Visible = False
ActiveSheet.Shapes("Alternativknap 6").Visible = False
ActiveSheet.Shapes("Alternativknap 7").Visible = False
Else
ActiveSheet.Shapes("GruppeBoks 2").Visible = True
ActiveSheet.Shapes("Alternativknap 5").Visible = True
ActiveSheet.Shapes("Alternativknap 6").Visible = True
ActiveSheet.Shapes("Alternativknap 7").Visible = True
End If

Hvad skal denne kode indsættes under? Skal det tildeles som en makro til gruppeboksen eller en af alternativknapperne?

Det lykkedes da at skjule den anden boks, men nu kan jeg ikke få den frem igen! :-)

Her er et par makroer , den ene skjuler alle , den anden viser alle

Sub skjul()
On Error Resume Next
For a = 1 To 100
ActiveSheet.Shapes("Gruppeboks " & a).Visible = False
ActiveSheet.Shapes("Alternativknap " & a).Visible = False
Next
End Sub

Sub vis()
On Error Resume Next
For a = 1 To 100
ActiveSheet.Shapes("Gruppeboks " & a).Visible = True
ActiveSheet.Shapes("Alternativknap " & a).Visible = True
Next
End Sub

Hvor skal jeg bruge de makroer henne? Skal jeg tildele dem alternativknapperne, eller... Undskyld jeg er lidt dum til det her - og mange tak for hjælpen...

I Exel tryk ALT+F11 , nu der du i Visual basic

Vælg indsæt modul

sæt makroerne derpå

Luk på øverste højre X

Stil dig i det ark hvor det er forsvundet.

Vælg afspil makro > vis

så skulle de være tilbage (synlige)

Jo... Men pointen er jo netop, at den anden boks skal skjules kun hvis man vælger netop et alternativ i den første boks. Ellers skal den anden vises. Og her skal makroerne jo køres separat?

du skrev kl. 16:03:37 Det lykkedes da at skjule den anden boks, men nu kan jeg ikke få den frem igen! :-)

Det var til at få dem frem igen, så du kunne arbejde videre, at du fik de sidste 2 makroer.

Du skal kalde denne makro fra dine Alternativknapper i GruppeBoks 1, det vil sige at hvis du har 3 Alternativknapper i din GruppeBoks 1, skal de alle kalde den.

Ret selv navnene på knapperne og GruppeBoks 2 i koden


Public Sub Skift()
If Range("B1") = 3 Then
ActiveSheet.Shapes("GruppeBoks 2").Visible = False
ActiveSheet.Shapes("Alternativknap 5").Visible = False
ActiveSheet.Shapes("Alternativknap 6").Visible = False
ActiveSheet.Shapes("Alternativknap 7").Visible = False
Else
ActiveSheet.Shapes("GruppeBoks 2").Visible = True
ActiveSheet.Shapes("Alternativknap 5").Visible = True
ActiveSheet.Shapes("Alternativknap 6").Visible = True
ActiveSheet.Shapes("Alternativknap 7").Visible = True
End If
End Sub

Det er fantastisk! Tusind tak, Kabbak :-)