Hej

 

jeg har oprettet et spørgsskema i excel.

 

I spørgskemaet er der indsat nogle hovedspørgsmål "JA/NEJ", hvortil der er koblet et underspørgsmål  "JA/NEJ", som kontrolelementer (rulle menu).

 

Afhængig af svaret på hovedspørgsmålet er JA = 1, vises kontrolelementet for underspørgsmålet:

 ActiveSheet.Shapes("Rullemenu 62").Visible = True

 

Det modsatte hvis hovedspørgsmålet er NEJ = 2

 

Hvilket fungere fint.

 

If Sheets("LIST_VALUE").Range(linkdedCell).Value = 1 Then
        ActiveSheet.Shapes("Afkrydsningsfelt 38").Visible = True
        ActiveSheet.Shapes("Afkrydsningsfelt 39").Visible = True
        ActiveSheet.Shapes("Rullemenu 62").Visible = True
        Rows("169:178").Select
        Selection.EntireRow.Hidden = False
        Rows("190:190").Select
        Selection.EntireRow.Hidden = False
        Rows("179:189").Select
        Selection.EntireRow.Hidden = True
    ElseIf Sheets("LIST_VALUE").Range(linkdedCell).Value = 2 Then
        ActiveSheet.Shapes("Afkrydsningsfelt 38").Visible = False
        ActiveSheet.Shapes("Afkrydsningsfelt 39").Visible = False
        ActiveSheet.Shapes("Rullemenu 62").Visible = False
        Rows("169:179").Select
        Selection.EntireRow.Hidden = True
        Rows("180:190").Select
        Selection.EntireRow.Hidden = False
    End If
End Sub

 

Problemet er, at hvis jeg gemmer og lukker filen, hvor hovedsprøgsmålet er NEJ = 2 (underspørgsmålet er skjult) -  åbner arket igen og ændre svaret til JA = 1 - så er placeringen af kontrolelementet for underspørgsmålet ændret sig.

 

Placeringen for kontrolelementet for hovedspørgsmålet er: 1G

Placeringen for kontrolelementet for underspøgsmålet er: 7G

 

Når jeg har skjult kontrolelementet for underspøgsmålet, lukker filen, genåbner filen, og underspørgsmålet bliver vist igen, er placeringen for kontrolelementet: 2G.

 

Det hjælper ikke noget at ændre i formateringen af kontrolelementet under egenskaber. Den står under "Flyt sammen med celler, men juster ikke størrelsen"

 

Kan man lave en programkode, som der henviser til hvilken celle det enkelte kontrolelement skal være i?

 

mvh

Sidsel

 

Fordi "Rullemenu 62" skal vises når "If Sheets("LIST_VALUE").Range(linkdedCell).Value = 1 "

Og skjules når "Sheets("LIST_VALUE").Range(linkdedCell).Value = 2"
   

Kan du hjælpe med at komme med den korrekte programkode?
          
   

If Sheets("LIST_VALUE").Range(linkdedCell).Value = 1 Then
        ActiveSheet.Shapes("Afkrydsningsfelt 38").Visible = True
        ActiveSheet.Shapes("Afkrydsningsfelt 39").Visible = True
        ActiveSheet.Shapes("Rullemenu 62").Visible = True
        With ActiveSheet.Shapes("Rullemenu 62")
        .Top = Range("G169").Top = True
        .Right = Range("G169").Right = True
        Rows("169:178").Select
        Selection.EntireRow.Hidden = False
        Rows("190:190").Select
        Selection.EntireRow.Hidden = False
        Rows("179:189").Select
        Selection.EntireRow.Hidden = True
    ElseIf Sheets("LIST_VALUE").Range(linkdedCell).Value = 2 Then
        ActiveSheet.Shapes("Afkrydsningsfelt 38").Visible = False
        ActiveSheet.Shapes("Afkrydsningsfelt 39").Visible = False
        ActiveSheet.Shapes("Rullemenu 62").Visible = False
        With ActiveSheet.Shapes("Rullemenu 62")
        .Top = Range("G169").Top = False
        .Right = Range("G169").Right = False
         Rows("169:179").Select
        Selection.EntireRow.Hidden = True
        Rows("180:190").Select
        Selection.EntireRow.Hidden = False
    End If
End Sub

 

På forhånd tak.