CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede frbl Nybegynder
26. januar 2013 - 16:45 Der er 10 kommentarer og
1 løsning

Lang Visual basic kode, hjælp til at ændre den så den kan køre

Hej derude

Jeg har oprettet nedenstående visual basic kode = kryds i et bestemt felt vælger bestemte ark - der kan kun sættes et kryds, når dette slettes eller der sættes et kryds mere skal enten alle ark vælges eller de ark der er bestemt i feltet hvor det nye x er sat og det først satte x fjernes.

Koden:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("E3")) Is Nothing Then
    Application.ScreenUpdating = False
        If Target.Value = "x" Then
        Range("F3").Value = ""
        Range("G3").Value = ""
        Range("H3").Value = ""
        Range("E4").Value = ""
        Range("F4").Value = ""
        Range("G4").Value = ""
        Range("H4").Value = ""
        Range("E5").Value = ""
        Range("F5").Value = ""
        Range("G5").Value = ""
        Range("H5").Value = ""
        Range("E6").Value = ""
        Range("F6").Value = ""
        Range("G6").Value = ""
        Range("H6").Value = ""
        Range("E8").Value = ""
        Range("F8").Value = ""
        Range("G8").Value = ""
        Range("H8").Value = ""
        Range("E9").Value = ""
        Range("F9").Value = ""
        Range("G9").Value = ""
        Range("H9").Value = ""
        Range("E11").Value = ""
        Range("F11").Value = ""
        Range("G11").Value = ""
        Range("H11").Value = ""
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = False
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = False
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = False
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = False
        Worksheets(14).Visible = False
        Worksheets(15).Visible = False
        Worksheets(16).Visible = False
        Worksheets(17).Visible = False
        Worksheets(18).Visible = False
        Worksheets(19).Visible = False
        Worksheets(20).Visible = False
        Worksheets(21).Visible = False
        Worksheets(22).Visible = False
        Worksheets(23).Visible = False
        Worksheets(24).Visible = False
        Worksheets(25).Visible = False
        Worksheets(26).Visible = False
        Worksheets(27).Visible = False
        Worksheets(28).Visible = False
        Worksheets(29).Visible = False
        Worksheets(30).Visible = False
        Worksheets(31).Visible = False
        Worksheets(32).Visible = False
        Worksheets(33).Visible = False
        Worksheets(34).Visible = False
        Worksheets(35).Visible = False
        Worksheets(36).Visible = False
        Worksheets(37).Visible = False
        Worksheets(38).Visible = False
        Worksheets(39).Visible = False
        Worksheets(40).Visible = False
        Worksheets(41).Visible = False
        Worksheets(42).Visible = False
        Worksheets(43).Visible = False
        Worksheets(44).Visible = False
        Worksheets(45).Visible = False
        Worksheets(46).Visible = False
        Worksheets(47).Visible = False
        Worksheets(48).Visible = False
        Worksheets(49).Visible = False
        Worksheets(50).Visible = False
        Worksheets(51).Visible = False
        Worksheets(52).Visible = False
        Worksheets(53).Visible = False
        Worksheets(54).Visible = False
        Worksheets(55).Visible = False
        Worksheets(56).Visible = False
        Worksheets(57).Visible = False
        Worksheets(58).Visible = False
        Worksheets(59).Visible = False
        Worksheets(60).Visible = False
        Else
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = True
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = True
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = True
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = True
        Worksheets(14).Visible = True
        Worksheets(15).Visible = True
        Worksheets(16).Visible = True
        Worksheets(17).Visible = True
        Worksheets(18).Visible = True
        Worksheets(19).Visible = True
        Worksheets(20).Visible = True
        Worksheets(21).Visible = True
        Worksheets(22).Visible = True
        Worksheets(23).Visible = True
        Worksheets(24).Visible = True
        Worksheets(25).Visible = True
        Worksheets(26).Visible = True
        Worksheets(27).Visible = True
        Worksheets(28).Visible = True
        Worksheets(29).Visible = True
        Worksheets(30).Visible = True
        Worksheets(31).Visible = True
        Worksheets(32).Visible = True
        Worksheets(33).Visible = True
        Worksheets(34).Visible = True
        Worksheets(35).Visible = True
        Worksheets(36).Visible = True
        Worksheets(37).Visible = True
        Worksheets(38).Visible = True
        Worksheets(39).Visible = True
        Worksheets(40).Visible = True
        Worksheets(41).Visible = True
        Worksheets(42).Visible = True
        Worksheets(43).Visible = True
        Worksheets(44).Visible = True
        Worksheets(45).Visible = True
        Worksheets(46).Visible = True
        Worksheets(47).Visible = True
        Worksheets(48).Visible = True
        Worksheets(49).Visible = True
        Worksheets(50).Visible = True
        Worksheets(51).Visible = True
        Worksheets(52).Visible = True
        Worksheets(53).Visible = True
        Worksheets(54).Visible = True
        Worksheets(55).Visible = True
        Worksheets(56).Visible = True
        Worksheets(57).Visible = True
        Worksheets(58).Visible = True
        Worksheets(59).Visible = True
        Worksheets(60).Visible = True
    End If
    End If
        If Not Intersect(Target, Range("F3")) Is Nothing Then
        Application.ScreenUpdating = False
        If Target.Value = "x" Then
        Range("E3").Value = ""
        Range("G3").Value = ""
        Range("H3").Value = ""
        Range("E4").Value = ""
        Range("F4").Value = ""
        Range("G4").Value = ""
        Range("H4").Value = ""
        Range("E5").Value = ""
        Range("F5").Value = ""
        Range("G5").Value = ""
        Range("H5").Value = ""
        Range("E6").Value = ""
        Range("F6").Value = ""
        Range("G6").Value = ""
        Range("H6").Value = ""
        Range("E8").Value = ""
        Range("F8").Value = ""
        Range("G8").Value = ""
        Range("H8").Value = ""
        Range("E9").Value = ""
        Range("F9").Value = ""
        Range("G9").Value = ""
        Range("H9").Value = ""
        Range("E11").Value = ""
        Range("F11").Value = ""
        Range("G11").Value = ""
        Range("H11").Value = ""
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = False
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = False
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = False
        Worksheets(11).Visible = False
        Worksheets(12).Visible = False
        Worksheets(13).Visible = False
        Worksheets(14).Visible = False
        Worksheets(15).Visible = False
        Worksheets(16).Visible = False
        Worksheets(17).Visible = False
        Worksheets(18).Visible = False
        Worksheets(19).Visible = False
        Worksheets(20).Visible = False
        Worksheets(21).Visible = False
        Worksheets(22).Visible = False
        Worksheets(23).Visible = False
        Worksheets(24).Visible = False
        Worksheets(25).Visible = False
        Worksheets(26).Visible = False
        Worksheets(27).Visible = False
        Worksheets(28).Visible = False
        Worksheets(29).Visible = False
        Worksheets(30).Visible = False
        Worksheets(31).Visible = False
        Worksheets(32).Visible = False
        Worksheets(33).Visible = False
        Worksheets(34).Visible = False
        Worksheets(35).Visible = False
        Worksheets(36).Visible = False
        Worksheets(37).Visible = False
        Worksheets(38).Visible = False
        Worksheets(39).Visible = False
        Worksheets(40).Visible = False
        Worksheets(41).Visible = False
        Worksheets(42).Visible = False
        Worksheets(43).Visible = False
        Worksheets(44).Visible = False
        Worksheets(45).Visible = False
        Worksheets(46).Visible = False
        Worksheets(47).Visible = False
        Worksheets(48).Visible = False
        Worksheets(49).Visible = False
        Worksheets(50).Visible = False
        Worksheets(51).Visible = False
        Worksheets(52).Visible = False
        Worksheets(53).Visible = False
        Worksheets(54).Visible = False
        Worksheets(55).Visible = False
        Worksheets(56).Visible = False
        Worksheets(57).Visible = False
        Worksheets(58).Visible = False
        Worksheets(59).Visible = False
        Worksheets(60).Visible = False
        Else
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = True
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = True
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = True
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = True
        Worksheets(14).Visible = True
        Worksheets(15).Visible = True
        Worksheets(16).Visible = True
        Worksheets(17).Visible = True
        Worksheets(18).Visible = True
        Worksheets(19).Visible = True
        Worksheets(20).Visible = True
        Worksheets(21).Visible = True
        Worksheets(22).Visible = True
        Worksheets(23).Visible = True
        Worksheets(24).Visible = True
        Worksheets(25).Visible = True
        Worksheets(26).Visible = True
        Worksheets(27).Visible = True
        Worksheets(28).Visible = True
        Worksheets(29).Visible = True
        Worksheets(30).Visible = True
        Worksheets(31).Visible = True
        Worksheets(32).Visible = True
        Worksheets(33).Visible = True
        Worksheets(34).Visible = True
        Worksheets(35).Visible = True
        Worksheets(36).Visible = True
        Worksheets(37).Visible = True
        Worksheets(38).Visible = True
        Worksheets(39).Visible = True
        Worksheets(40).Visible = True
        Worksheets(41).Visible = True
        Worksheets(42).Visible = True
        Worksheets(43).Visible = True
        Worksheets(44).Visible = True
        Worksheets(45).Visible = True
        Worksheets(46).Visible = True
        Worksheets(47).Visible = True
        Worksheets(48).Visible = True
        Worksheets(49).Visible = True
        Worksheets(50).Visible = True
        Worksheets(51).Visible = True
        Worksheets(52).Visible = True
        Worksheets(53).Visible = True
        Worksheets(54).Visible = True
        Worksheets(55).Visible = True
        Worksheets(56).Visible = True
        Worksheets(57).Visible = True
        Worksheets(58).Visible = True
        Worksheets(59).Visible = True
        Worksheets(60).Visible = True
    End If
    End If
        If Not Intersect(Target, Range("G3")) Is Nothing Then
        Application.ScreenUpdating = False
        If Target.Value = "x" Then
        Range("E3").Value = ""
        Range("F3").Value = ""
        Range("H3").Value = ""
        Range("E4").Value = ""
        Range("F4").Value = ""
        Range("G4").Value = ""
        Range("H4").Value = ""
        Range("E5").Value = ""
        Range("F5").Value = ""
        Range("G5").Value = ""
        Range("H5").Value = ""
        Range("E6").Value = ""
        Range("F6").Value = ""
        Range("G6").Value = ""
        Range("H6").Value = ""
        Range("E8").Value = ""
        Range("F8").Value = ""
        Range("G8").Value = ""
        Range("H8").Value = ""
        Range("E9").Value = ""
        Range("F9").Value = ""
        Range("G9").Value = ""
        Range("H9").Value = ""
        Range("E11").Value = ""
        Range("F11").Value = ""
        Range("G11").Value = ""
        Range("H11").Value = ""
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = False
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = False
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = False
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = False
        Worksheets(14).Visible = False
        Worksheets(15).Visible = False
        Worksheets(16).Visible = False
        Worksheets(17).Visible = False
        Worksheets(18).Visible = False
        Worksheets(19).Visible = False
        Worksheets(20).Visible = False
        Worksheets(21).Visible = False
        Worksheets(22).Visible = False
        Worksheets(23).Visible = False
        Worksheets(24).Visible = False
        Worksheets(25).Visible = False
        Worksheets(26).Visible = False
        Worksheets(27).Visible = False
        Worksheets(28).Visible = False
        Worksheets(29).Visible = False
        Worksheets(30).Visible = False
        Worksheets(31).Visible = False
        Worksheets(32).Visible = False
        Worksheets(33).Visible = False
        Worksheets(34).Visible = False
        Worksheets(35).Visible = False
        Worksheets(36).Visible = False
        Worksheets(37).Visible = False
        Worksheets(38).Visible = False
        Worksheets(39).Visible = False
        Worksheets(40).Visible = False
        Worksheets(41).Visible = False
        Worksheets(42).Visible = False
        Worksheets(43).Visible = False
        Worksheets(44).Visible = False
        Worksheets(45).Visible = False
        Worksheets(46).Visible = False
        Worksheets(47).Visible = False
        Worksheets(48).Visible = False
        Worksheets(49).Visible = False
        Worksheets(50).Visible = False
        Worksheets(51).Visible = False
        Worksheets(52).Visible = False
        Worksheets(53).Visible = False
        Worksheets(54).Visible = False
        Worksheets(55).Visible = False
        Worksheets(56).Visible = False
        Worksheets(57).Visible = False
        Worksheets(58).Visible = False
        Worksheets(59).Visible = False
        Worksheets(60).Visible = False
        Else
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = True
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = True
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = True
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = True
        Worksheets(14).Visible = True
        Worksheets(15).Visible = True
        Worksheets(16).Visible = True
        Worksheets(17).Visible = True
        Worksheets(18).Visible = True
        Worksheets(19).Visible = True
        Worksheets(20).Visible = True
        Worksheets(21).Visible = True
        Worksheets(22).Visible = True
        Worksheets(23).Visible = True
        Worksheets(24).Visible = True
        Worksheets(25).Visible = True
        Worksheets(26).Visible = True
        Worksheets(27).Visible = True
        Worksheets(28).Visible = True
        Worksheets(29).Visible = True
        Worksheets(30).Visible = True
        Worksheets(31).Visible = True
        Worksheets(32).Visible = True
        Worksheets(33).Visible = True
        Worksheets(34).Visible = True
        Worksheets(35).Visible = True
        Worksheets(36).Visible = True
        Worksheets(37).Visible = True
        Worksheets(38).Visible = True
        Worksheets(39).Visible = True
        Worksheets(40).Visible = True
        Worksheets(41).Visible = True
        Worksheets(42).Visible = True
        Worksheets(43).Visible = True
        Worksheets(44).Visible = True
        Worksheets(45).Visible = True
        Worksheets(46).Visible = True
        Worksheets(47).Visible = True
        Worksheets(48).Visible = True
        Worksheets(49).Visible = True
        Worksheets(50).Visible = True
        Worksheets(51).Visible = True
        Worksheets(52).Visible = True
        Worksheets(53).Visible = True
        Worksheets(54).Visible = True
        Worksheets(55).Visible = True
        Worksheets(56).Visible = True
        Worksheets(57).Visible = True
        Worksheets(58).Visible = True
        Worksheets(59).Visible = True
        Worksheets(60).Visible = True
    End If
    End If
        If Not Intersect(Target, Range("H3")) Is Nothing Then
        Application.ScreenUpdating = False
        If Target.Value = "x" Then
        Range("E3").Value = ""
        Range("F3").Value = ""
        Range("G3").Value = ""
        Range("E4").Value = ""
        Range("F4").Value = ""
        Range("G4").Value = ""
        Range("H4").Value = ""
        Range("E5").Value = ""
        Range("F5").Value = ""
        Range("G5").Value = ""
        Range("H5").Value = ""
        Range("E6").Value = ""
        Range("F6").Value = ""
        Range("G6").Value = ""
        Range("H6").Value = ""
        Range("E8").Value = ""
        Range("F8").Value = ""
        Range("G8").Value = ""
        Range("H8").Value = ""
        Range("E9").Value = ""
        Range("F9").Value = ""
        Range("G9").Value = ""
        Range("H9").Value = ""
        Range("E11").Value = ""
        Range("F11").Value = ""
        Range("G11").Value = ""
        Range("H11").Value = ""
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = False
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = False
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = False
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = False
        Worksheets(14).Visible = False
        Worksheets(15).Visible = False
        Worksheets(16).Visible = False
        Worksheets(17).Visible = False
        Worksheets(18).Visible = False
        Worksheets(19).Visible = False
        Worksheets(20).Visible = False
        Worksheets(21).Visible = False
        Worksheets(22).Visible = False
        Worksheets(23).Visible = False
        Worksheets(24).Visible = False
        Worksheets(25).Visible = False
        Worksheets(26).Visible = False
        Worksheets(27).Visible = False
        Worksheets(28).Visible = False
        Worksheets(29).Visible = False
        Worksheets(30).Visible = False
        Worksheets(31).Visible = False
        Worksheets(32).Visible = False
        Worksheets(33).Visible = False
        Worksheets(34).Visible = False
        Worksheets(35).Visible = False
        Worksheets(36).Visible = False
        Worksheets(37).Visible = False
        Worksheets(38).Visible = False
        Worksheets(39).Visible = False
        Worksheets(40).Visible = False
        Worksheets(41).Visible = False
        Worksheets(42).Visible = False
        Worksheets(43).Visible = False
        Worksheets(44).Visible = False
        Worksheets(45).Visible = False
        Worksheets(46).Visible = False
        Worksheets(47).Visible = False
        Worksheets(48).Visible = False
        Worksheets(49).Visible = False
        Worksheets(50).Visible = False
        Worksheets(51).Visible = False
        Worksheets(52).Visible = False
        Worksheets(53).Visible = False
        Worksheets(54).Visible = False
        Worksheets(55).Visible = False
        Worksheets(56).Visible = False
        Worksheets(57).Visible = False
        Worksheets(58).Visible = False
        Worksheets(59).Visible = False
        Worksheets(60).Visible = False
        Else
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = True
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = True
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = True
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = True
        Worksheets(14).Visible = True
        Worksheets(15).Visible = True
        Worksheets(16).Visible = True
        Worksheets(17).Visible = True
        Worksheets(18).Visible = True
        Worksheets(19).Visible = True
        Worksheets(20).Visible = True
        Worksheets(21).Visible = True
        Worksheets(22).Visible = True
        Worksheets(23).Visible = True
        Worksheets(24).Visible = True
        Worksheets(25).Visible = True
        Worksheets(26).Visible = True
        Worksheets(27).Visible = True
        Worksheets(28).Visible = True
        Worksheets(29).Visible = True
        Worksheets(30).Visible = True
        Worksheets(31).Visible = True
        Worksheets(32).Visible = True
        Worksheets(33).Visible = True
        Worksheets(34).Visible = True
        Worksheets(35).Visible = True
        Worksheets(36).Visible = True
        Worksheets(37).Visible = True
        Worksheets(38).Visible = True
        Worksheets(39).Visible = True
        Worksheets(40).Visible = True
        Worksheets(41).Visible = True
        Worksheets(42).Visible = True
        Worksheets(43).Visible = True
        Worksheets(44).Visible = True
        Worksheets(45).Visible = True
        Worksheets(46).Visible = True
        Worksheets(47).Visible = True
        Worksheets(48).Visible = True
        Worksheets(49).Visible = True
        Worksheets(50).Visible = True
        Worksheets(51).Visible = True
        Worksheets(52).Visible = True
        Worksheets(53).Visible = True
        Worksheets(54).Visible = True
        Worksheets(55).Visible = True
        Worksheets(56).Visible = True
        Worksheets(57).Visible = True
        Worksheets(58).Visible = True
        Worksheets(59).Visible = True
        Worksheets(60).Visible = True
    End If
    End If
        If Not Intersect(Target, Range("E4")) Is Nothing Then
        Application.ScreenUpdating = False
        If Target.Value = "x" Then
        Range("E3").Value = ""
        Range("F3").Value = ""
        Range("G3").Value = ""
        Range("H3").Value = ""
        Range("F4").Value = ""
        Range("G4").Value = ""
        Range("H4").Value = ""
        Range("E5").Value = ""
        Range("F5").Value = ""
        Range("G5").Value = ""
        Range("H5").Value = ""
        Range("E6").Value = ""
        Range("F6").Value = ""
        Range("G6").Value = ""
        Range("H6").Value = ""
        Range("E8").Value = ""
        Range("F8").Value = ""
        Range("G8").Value = ""
        Range("H8").Value = ""
        Range("E9").Value = ""
        Range("F9").Value = ""
        Range("G9").Value = ""
        Range("H9").Value = ""
        Range("E11").Value = ""
        Range("F11").Value = ""
        Range("G11").Value = ""
        Range("H11").Value = ""
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = False
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = False
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = False
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = False
        Worksheets(14).Visible = False
        Worksheets(15).Visible = False
        Worksheets(16).Visible = False
        Worksheets(17).Visible = False
        Worksheets(18).Visible = False
        Worksheets(19).Visible = False
        Worksheets(20).Visible = False
        Worksheets(21).Visible = False
        Worksheets(22).Visible = False
        Worksheets(23).Visible = False
        Worksheets(24).Visible = False
        Worksheets(25).Visible = False
        Worksheets(26).Visible = False
        Worksheets(27).Visible = False
        Worksheets(28).Visible = False
        Worksheets(29).Visible = False
        Worksheets(30).Visible = False
        Worksheets(31).Visible = False
        Worksheets(32).Visible = False
        Worksheets(33).Visible = False
        Worksheets(34).Visible = False
        Worksheets(35).Visible = False
        Worksheets(36).Visible = False
        Worksheets(37).Visible = False
        Worksheets(38).Visible = False
        Worksheets(39).Visible = False
        Worksheets(40).Visible = False
        Worksheets(41).Visible = False
        Worksheets(42).Visible = False
        Worksheets(43).Visible = False
        Worksheets(44).Visible = False
        Worksheets(45).Visible = False
        Worksheets(46).Visible = False
        Worksheets(47).Visible = False
        Worksheets(48).Visible = False
        Worksheets(49).Visible = False
        Worksheets(50).Visible = False
        Worksheets(51).Visible = False
        Worksheets(52).Visible = False
        Worksheets(53).Visible = False
        Worksheets(54).Visible = False
        Worksheets(55).Visible = False
        Worksheets(56).Visible = False
        Worksheets(57).Visible = False
        Worksheets(58).Visible = False
        Worksheets(59).Visible = False
        Worksheets(60).Visible = False
        Else
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = True
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = True
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = True
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = True
        Worksheets(14).Visible = True
        Worksheets(15).Visible = True
        Worksheets(16).Visible = True
        Worksheets(17).Visible = True
        Worksheets(18).Visible = True
        Worksheets(19).Visible = True
        Worksheets(20).Visible = True
        Worksheets(21).Visible = True
        Worksheets(22).Visible = True
        Worksheets(23).Visible = True
        Worksheets(24).Visible = True
        Worksheets(25).Visible = True
        Worksheets(26).Visible = True
        Worksheets(27).Visible = True
        Worksheets(28).Visible = True
        Worksheets(29).Visible = True
        Worksheets(30).Visible = True
        Worksheets(31).Visible = True
        Worksheets(32).Visible = True
        Worksheets(33).Visible = True
        Worksheets(34).Visible = True
        Worksheets(35).Visible = True
        Worksheets(36).Visible = True
        Worksheets(37).Visible = True
        Worksheets(38).Visible = True
        Worksheets(39).Visible = True
        Worksheets(40).Visible = True
        Worksheets(41).Visible = True
        Worksheets(42).Visible = True
        Worksheets(43).Visible = True
        Worksheets(44).Visible = True
        Worksheets(45).Visible = True
        Worksheets(46).Visible = True
        Worksheets(47).Visible = True
        Worksheets(48).Visible = True
        Worksheets(49).Visible = True
        Worksheets(50).Visible = True
        Worksheets(51).Visible = True
        Worksheets(52).Visible = True
        Worksheets(53).Visible = True
        Worksheets(54).Visible = True
        Worksheets(55).Visible = True
        Worksheets(56).Visible = True
        Worksheets(57).Visible = True
        Worksheets(58).Visible = True
        Worksheets(59).Visible = True
        Worksheets(60).Visible = True
    End If
    End If
        If Not Intersect(Target, Range("F4")) Is Nothing Then
        Application.ScreenUpdating = False
        If Target.Value = "x" Then
        Range("E3").Value = ""
        Range("F3").Value = ""
        Range("G3").Value = ""
        Range("H3").Value = ""
        Range("E4").Value = ""
        Range("G4").Value = ""
        Range("H4").Value = ""
        Range("E5").Value = ""
        Range("F5").Value = ""
        Range("G5").Value = ""
        Range("H5").Value = ""
        Range("E6").Value = ""
        Range("F6").Value = ""
        Range("G6").Value = ""
        Range("H6").Value = ""
        Range("E8").Value = ""
        Range("F8").Value = ""
        Range("G8").Value = ""
        Range("H8").Value = ""
        Range("E9").Value = ""
        Range("F9").Value = ""
        Range("G9").Value = ""
        Range("H9").Value = ""
        Range("E11").Value = ""
        Range("F11").Value = ""
        Range("G11").Value = ""
        Range("H11").Value = ""
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = False
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = False
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = False
        Worksheets(11).Visible = False
        Worksheets(12).Visible = False
        Worksheets(13).Visible = False
        Worksheets(14).Visible = False
        Worksheets(15).Visible = False
        Worksheets(16).Visible = False
        Worksheets(17).Visible = False
        Worksheets(18).Visible = False
        Worksheets(19).Visible = False
        Worksheets(20).Visible = False
        Worksheets(21).Visible = False
        Worksheets(22).Visible = False
        Worksheets(23).Visible = False
        Worksheets(24).Visible = False
        Worksheets(25).Visible = False
        Worksheets(26).Visible = False
        Worksheets(27).Visible = False
        Worksheets(28).Visible = False
        Worksheets(29).Visible = False
        Worksheets(30).Visible = False
        Worksheets(31).Visible = False
        Worksheets(32).Visible = False
        Worksheets(33).Visible = False
        Worksheets(34).Visible = False
        Worksheets(35).Visible = False
        Worksheets(36).Visible = False
        Worksheets(37).Visible = False
        Worksheets(38).Visible = False
        Worksheets(39).Visible = False
        Worksheets(40).Visible = False
        Worksheets(41).Visible = False
        Worksheets(42).Visible = False
        Worksheets(43).Visible = False
        Worksheets(44).Visible = False
        Worksheets(45).Visible = False
        Worksheets(46).Visible = False
        Worksheets(47).Visible = False
        Worksheets(48).Visible = False
        Worksheets(49).Visible = False
        Worksheets(50).Visible = False
        Worksheets(51).Visible = False
        Worksheets(52).Visible = False
        Worksheets(53).Visible = False
        Worksheets(54).Visible = False
        Worksheets(55).Visible = False
        Worksheets(56).Visible = False
        Worksheets(57).Visible = False
        Worksheets(58).Visible = False
        Worksheets(59).Visible = False
        Worksheets(60).Visible = False
        Else
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = True
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = True
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = True
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = True
        Worksheets(14).Visible = True
        Worksheets(15).Visible = True
        Worksheets(16).Visible = True
        Worksheets(17).Visible = True
        Worksheets(18).Visible = True
        Worksheets(19).Visible = True
        Worksheets(20).Visible = True
        Worksheets(21).Visible = True
        Worksheets(22).Visible = True
        Worksheets(23).Visible = True
        Worksheets(24).Visible = True
        Worksheets(25).Visible = True
        Worksheets(26).Visible = True
        Worksheets(27).Visible = True
        Worksheets(28).Visible = True
        Worksheets(29).Visible = True
        Worksheets(30).Visible = True
        Worksheets(31).Visible = True
        Worksheets(32).Visible = True
        Worksheets(33).Visible = True
        Worksheets(34).Visible = True
        Worksheets(35).Visible = True
        Worksheets(36).Visible = True
        Worksheets(37).Visible = True
        Worksheets(38).Visible = True
        Worksheets(39).Visible = True
        Worksheets(40).Visible = True
        Worksheets(41).Visible = True
        Worksheets(42).Visible = True
        Worksheets(43).Visible = True
        Worksheets(44).Visible = True
        Worksheets(45).Visible = True
        Worksheets(46).Visible = True
        Worksheets(47).Visible = True
        Worksheets(48).Visible = True
        Worksheets(49).Visible = True
        Worksheets(50).Visible = True
        Worksheets(51).Visible = True
        Worksheets(52).Visible = True
        Worksheets(53).Visible = True
        Worksheets(54).Visible = True
        Worksheets(55).Visible = True
        Worksheets(56).Visible = True
        Worksheets(57).Visible = True
        Worksheets(58).Visible = True
        Worksheets(59).Visible = True
        Worksheets(60).Visible = True
    End If
    End If
        If Not Intersect(Target, Range("G4")) Is Nothing Then
        Application.ScreenUpdating = False
        If Target.Value = "x" Then
        Range("E3").Value = ""
        Range("F3").Value = ""
        Range("G3").Value = ""
        Range("H3").Value = ""
        Range("E4").Value = ""
        Range("F4").Value = ""
        Range("H4").Value = ""
        Range("E5").Value = ""
        Range("F5").Value = ""
        Range("G5").Value = ""
        Range("H5").Value = ""
        Range("E6").Value = ""
        Range("F6").Value = ""
        Range("G6").Value = ""
        Range("H6").Value = ""
        Range("E8").Value = ""
        Range("F8").Value = ""
        Range("G8").Value = ""
        Range("H8").Value = ""
        Range("E9").Value = ""
        Range("F9").Value = ""
        Range("G9").Value = ""
        Range("H9").Value = ""
        Range("E11").Value = ""
        Range("F11").Value = ""
        Range("G11").Value = ""
        Range("H11").Value = ""
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = False
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = False
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = False
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = False
        Worksheets(14).Visible = False
        Worksheets(15).Visible = False
        Worksheets(16).Visible = False
        Worksheets(17).Visible = False
        Worksheets(18).Visible = False
        Worksheets(19).Visible = False
        Worksheets(20).Visible = False
        Worksheets(21).Visible = False
        Worksheets(22).Visible = False
        Worksheets(23).Visible = False
        Worksheets(24).Visible = False
        Worksheets(25).Visible = False
        Worksheets(26).Visible = False
        Worksheets(27).Visible = False
        Worksheets(28).Visible = False
        Worksheets(29).Visible = False
        Worksheets(30).Visible = False
        Worksheets(31).Visible = False
        Worksheets(32).Visible = False
        Worksheets(33).Visible = False
        Worksheets(34).Visible = False
        Worksheets(35).Visible = False
        Worksheets(36).Visible = False
        Worksheets(37).Visible = False
        Worksheets(38).Visible = False
        Worksheets(39).Visible = False
        Worksheets(40).Visible = False
        Worksheets(41).Visible = False
        Worksheets(42).Visible = False
        Worksheets(43).Visible = False
        Worksheets(44).Visible = False
        Worksheets(45).Visible = False
        Worksheets(46).Visible = False
        Worksheets(47).Visible = False
        Worksheets(48).Visible = False
        Worksheets(49).Visible = False
        Worksheets(50).Visible = False
        Worksheets(51).Visible = False
        Worksheets(52).Visible = False
        Worksheets(53).Visible = False
        Worksheets(54).Visible = False
        Worksheets(55).Visible = False
        Worksheets(56).Visible = False
        Worksheets(57).Visible = False
        Worksheets(58).Visible = False
        Worksheets(59).Visible = False
        Worksheets(60).Visible = False
        Else
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = True
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = True
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = True
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = True
        Worksheets(14).Visible = True
        Worksheets(15).Visible = True
        Worksheets(16).Visible = True
        Worksheets(17).Visible = True
        Worksheets(18).Visible = True
        Worksheets(19).Visible = True
        Worksheets(20).Visible = True
        Worksheets(21).Visible = True
        Worksheets(22).Visible = True
        Worksheets(23).Visible = True
        Worksheets(24).Visible = True
        Worksheets(25).Visible = True
        Worksheets(26).Visible = True
        Worksheets(27).Visible = True
        Worksheets(28).Visible = True
        Worksheets(29).Visible = True
        Worksheets(30).Visible = True
        Worksheets(31).Visible = True
        Worksheets(32).Visible = True
        Worksheets(33).Visible = True
        Worksheets(34).Visible = True
        Worksheets(35).Visible = True
        Worksheets(36).Visible = True
        Worksheets(37).Visible = True
        Worksheets(38).Visible = True
        Worksheets(39).Visible = True
        Worksheets(40).Visible = True
        Worksheets(41).Visible = True
        Worksheets(42).Visible = True
        Worksheets(43).Visible = True
        Worksheets(44).Visible = True
        Worksheets(45).Visible = True
        Worksheets(46).Visible = True
        Worksheets(47).Visible = True
        Worksheets(48).Visible = True
        Worksheets(49).Visible = True
        Worksheets(50).Visible = True
        Worksheets(51).Visible = True
        Worksheets(52).Visible = True
        Worksheets(53).Visible = True
        Worksheets(54).Visible = True
        Worksheets(55).Visible = True
        Worksheets(56).Visible = True
        Worksheets(57).Visible = True
        Worksheets(58).Visible = True
        Worksheets(59).Visible = True
        Worksheets(60).Visible = True
    End If
    End If
        If Not Intersect(Target, Range("H4")) Is Nothing Then
        Application.ScreenUpdating = False
        If Target.Value = "x" Then
        Range("E3").Value = ""
        Range("F3").Value = ""
        Range("G3").Value = ""
        Range("H3").Value = ""
        Range("E4").Value = ""
        Range("F4").Value = ""
        Range("G4").Value = ""
        Range("E5").Value = ""
        Range("F5").Value = ""
        Range("G5").Value = ""
        Range("H5").Value = ""
        Range("E6").Value = ""
        Range("F6").Value = ""
        Range("G6").Value = ""
        Range("H6").Value = ""
        Range("E8").Value = ""
        Range("F8").Value = ""
        Range("G8").Value = ""
        Range("H8").Value = ""
        Range("E9").Value = ""
        Range("F9").Value = ""
        Range("G9").Value = ""
        Range("H9").Value = ""
        Range("E11").Value = ""
        Range("F11").Value = ""
        Range("G11").Value = ""
        Range("H11").Value = ""
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = False
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = False
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = False
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = False
        Worksheets(14).Visible = False
        Worksheets(15).Visible = False
        Worksheets(16).Visible = False
        Worksheets(17).Visible = False
        Worksheets(18).Visible = False
        Worksheets(19).Visible = False
        Worksheets(20).Visible = False
        Worksheets(21).Visible = False
        Worksheets(22).Visible = False
        Worksheets(23).Visible = False
        Worksheets(24).Visible = False
        Worksheets(25).Visible = False
        Worksheets(26).Visible = False
        Worksheets(27).Visible = False
        Worksheets(28).Visible = False
        Worksheets(29).Visible = False
        Worksheets(30).Visible = False
        Worksheets(31).Visible = False
        Worksheets(32).Visible = False
        Worksheets(33).Visible = False
        Worksheets(34).Visible = False
        Worksheets(35).Visible = False
        Worksheets(36).Visible = False
        Worksheets(37).Visible = False
        Worksheets(38).Visible = False
        Worksheets(39).Visible = False
        Worksheets(40).Visible = False
        Worksheets(41).Visible = False
        Worksheets(42).Visible = False
        Worksheets(43).Visible = False
        Worksheets(44).Visible = False
        Worksheets(45).Visible = False
        Worksheets(46).Visible = False
        Worksheets(47).Visible = False
        Worksheets(48).Visible = False
        Worksheets(49).Visible = False
        Worksheets(50).Visible = False
        Worksheets(51).Visible = False
        Worksheets(52).Visible = False
        Worksheets(53).Visible = False
        Worksheets(54).Visible = False
        Worksheets(55).Visible = False
        Worksheets(56).Visible = False
        Worksheets(57).Visible = False
        Worksheets(58).Visible = False
        Worksheets(59).Visible = False
        Worksheets(60).Visible = False
        Else
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = True
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = True
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = True
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = True
        Worksheets(14).Visible = True
        Worksheets(15).Visible = True
        Worksheets(16).Visible = True
        Worksheets(17).Visible = True
        Worksheets(18).Visible = True
        Worksheets(19).Visible = True
        Worksheets(20).Visible = True
        Worksheets(21).Visible = True
        Worksheets(22).Visible = True
        Worksheets(23).Visible = True
        Worksheets(24).Visible = True
        Worksheets(25).Visible = True
        Worksheets(26).Visible = True
        Worksheets(27).Visible = True
        Worksheets(28).Visible = True
        Worksheets(29).Visible = True
        Worksheets(30).Visible = True
        Worksheets(31).Visible = True
        Worksheets(32).Visible = True
        Worksheets(33).Visible = True
        Worksheets(34).Visible = True
        Worksheets(35).Visible = True
        Worksheets(36).Visible = True
        Worksheets(37).Visible = True
        Worksheets(38).Visible = True
        Worksheets(39).Visible = True
        Worksheets(40).Visible = True
        Worksheets(41).Visible = True
        Worksheets(42).Visible = True
        Worksheets(43).Visible = True
        Worksheets(44).Visible = True
        Worksheets(45).Visible = True
        Worksheets(46).Visible = True
        Worksheets(47).Visible = True
        Worksheets(48).Visible = True
        Worksheets(49).Visible = True
        Worksheets(50).Visible = True
        Worksheets(51).Visible = True
        Worksheets(52).Visible = True
        Worksheets(53).Visible = True
        Worksheets(54).Visible = True
        Worksheets(55).Visible = True
        Worksheets(56).Visible = True
        Worksheets(57).Visible = True
        Worksheets(58).Visible = True
        Worksheets(59).Visible = True
        Worksheets(60).Visible = True
    End If
    End If
        If Not Intersect(Target, Range("E5")) Is Nothing Then
        Application.ScreenUpdating = False
        If Target.Value = "x" Then
        Range("E3").Value = ""
        Range("F3").Value = ""
        Range("G3").Value = ""
        Range("H3").Value = ""
        Range("E4").Value = ""
        Range("F4").Value = ""
        Range("G4").Value = ""
        Range("H4").Value = ""
        Range("F5").Value = ""
        Range("G5").Value = ""
        Range("H5").Value = ""
        Range("E6").Value = ""
        Range("F6").Value = ""
        Range("G6").Value = ""
        Range("H6").Value = ""
        Range("E8").Value = ""
        Range("F8").Value = ""
        Range("G8").Value = ""
        Range("H8").Value = ""
        Range("E9").Value = ""
        Range("F9").Value = ""
        Range("G9").Value = ""
        Range("H9").Value = ""
        Range("E11").Value = ""
        Range("F11").Value = ""
        Range("G11").Value = ""
        Range("H11").Value = ""
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = False
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = False
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = False
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = False
        Worksheets(14).Visible = False
        Worksheets(15).Visible = False
        Worksheets(16).Visible = False
        Worksheets(17).Visible = False
        Worksheets(18).Visible = False
        Worksheets(19).Visible = False
        Worksheets(20).Visible = False
        Worksheets(21).Visible = False
        Worksheets(22).Visible = False
        Worksheets(23).Visible = False
        Worksheets(24).Visible = False
        Worksheets(25).Visible = False
        Worksheets(26).Visible = False
        Worksheets(27).Visible = False
        Worksheets(28).Visible = False
        Worksheets(29).Visible = False
        Worksheets(30).Visible = False
        Worksheets(31).Visible = False
        Worksheets(32).Visible = False
        Worksheets(33).Visible = False
        Worksheets(34).Visible = False
        Worksheets(35).Visible = False
        Worksheets(36).Visible = False
        Worksheets(37).Visible = False
        Worksheets(38).Visible = False
        Worksheets(39).Visible = False
        Worksheets(40).Visible = False
        Worksheets(41).Visible = False
        Worksheets(42).Visible = False
        Worksheets(43).Visible = False
        Worksheets(44).Visible = False
        Worksheets(45).Visible = False
        Worksheets(46).Visible = False
        Worksheets(47).Visible = False
        Worksheets(48).Visible = False
        Worksheets(49).Visible = False
        Worksheets(50).Visible = False
        Worksheets(51).Visible = False
        Worksheets(52).Visible = False
        Worksheets(53).Visible = False
        Worksheets(54).Visible = False
        Worksheets(55).Visible = False
        Worksheets(56).Visible = False
        Worksheets(57).Visible = False
        Worksheets(58).Visible = False
        Worksheets(59).Visible = False
        Worksheets(60).Visible = False
        Else
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = True
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = True
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = True
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = True
        Worksheets(14).Visible = True
        Worksheets(15).Visible = True
        Worksheets(16).Visible = True
        Worksheets(17).Visible = True
        Worksheets(18).Visible = True
        Worksheets(19).Visible = True
        Worksheets(20).Visible = True
        Worksheets(21).Visible = True
        Worksheets(22).Visible = True
        Worksheets(23).Visible = True
        Worksheets(24).Visible = True
        Worksheets(25).Visible = True
        Worksheets(26).Visible = True
        Worksheets(27).Visible = True
        Worksheets(28).Visible = True
        Worksheets(29).Visible = True
        Worksheets(30).Visible = True
        Worksheets(31).Visible = True
        Worksheets(32).Visible = True
        Worksheets(33).Visible = True
        Worksheets(34).Visible = True
        Worksheets(35).Visible = True
        Worksheets(36).Visible = True
        Worksheets(37).Visible = True
        Worksheets(38).Visible = True
        Worksheets(39).Visible = True
        Worksheets(40).Visible = True
        Worksheets(41).Visible = True
        Worksheets(42).Visible = True
        Worksheets(43).Visible = True
        Worksheets(44).Visible = True
        Worksheets(45).Visible = True
        Worksheets(46).Visible = True
        Worksheets(47).Visible = True
        Worksheets(48).Visible = True
        Worksheets(49).Visible = True
        Worksheets(50).Visible = True
        Worksheets(51).Visible = True
        Worksheets(52).Visible = True
        Worksheets(53).Visible = True
        Worksheets(54).Visible = True
        Worksheets(55).Visible = True
        Worksheets(56).Visible = True
        Worksheets(57).Visible = True
        Worksheets(58).Visible = True
        Worksheets(59).Visible = True
        Worksheets(60).Visible = True
    End If
    End If
        If Not Intersect(Target, Range("F5")) Is Nothing Then
        Application.ScreenUpdating = False
        If Target.Value = "x" Then
        Range("E3").Value = ""
        Range("F3").Value = ""
        Range("G3").Value = ""
        Range("H3").Value = ""
        Range("E4").Value = ""
        Range("F4").Value = ""
        Range("G4").Value = ""
        Range("H4").Value = ""
        Range("E5").Value = ""
        Range("G5").Value = ""
        Range("H5").Value = ""
        Range("E6").Value = ""
        Range("F6").Value = ""
        Range("G6").Value = ""
        Range("H6").Value = ""
        Range("E8").Value = ""
        Range("F8").Value = ""
        Range("G8").Value = ""
        Range("H8").Value = ""
        Range("E9").Value = ""
        Range("F9").Value = ""
        Range("G9").Value = ""
        Range("H9").Value = ""
        Range("E11").Value = ""
        Range("F11").Value = ""
        Range("G11").Value = ""
        Range("H11").Value = ""
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = False
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = False
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = False
        Worksheets(11).Visible = False
        Worksheets(12).Visible = False
        Worksheets(13).Visible = False
        Worksheets(14).Visible = False
        Worksheets(15).Visible = False
        Worksheets(16).Visible = False
        Worksheets(17).Visible = False
        Worksheets(18).Visible = False
        Worksheets(19).Visible = False
        Worksheets(20).Visible = False
        Worksheets(21).Visible = False
        Worksheets(22).Visible = False
        Worksheets(23).Visible = False
        Worksheets(24).Visible = False
        Worksheets(25).Visible = False
        Worksheets(26).Visible = False
        Worksheets(27).Visible = False
        Worksheets(28).Visible = False
        Worksheets(29).Visible = False
        Worksheets(30).Visible = False
        Worksheets(31).Visible = False
        Worksheets(32).Visible = False
        Worksheets(33).Visible = False
        Worksheets(34).Visible = False
        Worksheets(35).Visible = False
        Worksheets(36).Visible = False
        Worksheets(37).Visible = False
        Worksheets(38).Visible = False
        Worksheets(39).Visible = False
        Worksheets(40).Visible = False
        Worksheets(41).Visible = False
        Worksheets(42).Visible = False
        Worksheets(43).Visible = False
        Worksheets(44).Visible = False
        Worksheets(45).Visible = False
        Worksheets(46).Visible = False
        Worksheets(47).Visible = False
        Worksheets(48).Visible = False
        Worksheets(49).Visible = False
        Worksheets(50).Visible = False
        Worksheets(51).Visible = False
        Worksheets(52).Visible = False
        Worksheets(53).Visible = False
        Worksheets(54).Visible = False
        Worksheets(55).Visible = False
        Worksheets(56).Visible = False
        Worksheets(57).Visible = False
        Worksheets(58).Visible = False
        Worksheets(59).Visible = False
        Worksheets(60).Visible = False
        Else
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = True
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = True
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = True
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = True
        Worksheets(14).Visible = True
        Worksheets(15).Visible = True
        Worksheets(16).Visible = True
        Worksheets(17).Visible = True
        Worksheets(18).Visible = True
        Worksheets(19).Visible = True
        Worksheets(20).Visible = True
        Worksheets(21).Visible = True
        Worksheets(22).Visible = True
        Worksheets(23).Visible = True
        Worksheets(24).Visible = True
        Worksheets(25).Visible = True
        Worksheets(26).Visible = True
        Worksheets(27).Visible = True
        Worksheets(28).Visible = True
        Worksheets(29).Visible = True
        Worksheets(30).Visible = True
        Worksheets(31).Visible = True
        Worksheets(32).Visible = True
        Worksheets(33).Visible = True
        Worksheets(34).Visible = True
        Worksheets(35).Visible = True
        Worksheets(36).Visible = True
        Worksheets(37).Visible = True
        Worksheets(38).Visible = True
        Worksheets(39).Visible = True
        Worksheets(40).Visible = True
        Worksheets(41).Visible = True
        Worksheets(42).Visible = True
        Worksheets(43).Visible = True
        Worksheets(44).Visible = True
        Worksheets(45).Visible = True
        Worksheets(46).Visible = True
        Worksheets(47).Visible = True
        Worksheets(48).Visible = True
        Worksheets(49).Visible = True
        Worksheets(50).Visible = True
        Worksheets(51).Visible = True
        Worksheets(52).Visible = True
        Worksheets(53).Visible = True
        Worksheets(54).Visible = True
        Worksheets(55).Visible = True
        Worksheets(56).Visible = True
        Worksheets(57).Visible = True
        Worksheets(58).Visible = True
        Worksheets(59).Visible = True
        Worksheets(60).Visible = True
    End If
    End If
        If Not Intersect(Target, Range("G5")) Is Nothing Then
        Application.ScreenUpdating = False
        If Target.Value = "x" Then
        Range("E3").Value = ""
        Range("F3").Value = ""
        Range("G3").Value = ""
        Range("H3").Value = ""
        Range("E4").Value = ""
        Range("F4").Value = ""
        Range("G4").Value = ""
        Range("H4").Value = ""
        Range("E5").Value = ""
        Range("F5").Value = ""
        Range("H5").Value = ""
        Range("E6").Value = ""
        Range("F6").Value = ""
        Range("G6").Value = ""
        Range("H6").Value = ""
        Range("E8").Value = ""
        Range("F8").Value = ""
        Range("G8").Value = ""
        Range("H8").Value = ""
        Range("E9").Value = ""
        Range("F9").Value = ""
        Range("G9").Value = ""
        Range("H9").Value = ""
        Range("E11").Value = ""
        Range("F11").Value = ""
        Range("G11").Value = ""
        Range("H11").Value = ""
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = False
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = False
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = False
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = False
        Worksheets(14).Visible = False
        Worksheets(15).Visible = False
        Worksheets(16).Visible = False
        Worksheets(17).Visible = False
        Worksheets(18).Visible = False
        Worksheets(19).Visible = False
        Worksheets(20).Visible = False
        Worksheets(21).Visible = False
        Worksheets(22).Visible = False
        Worksheets(23).Visible = False
        Worksheets(24).Visible = False
        Worksheets(25).Visible = False
        Worksheets(26).Visible = False
        Worksheets(27).Visible = False
        Worksheets(28).Visible = False
        Worksheets(29).Visible = False
        Worksheets(30).Visible = False
        Worksheets(31).Visible = False
        Worksheets(32).Visible = False
        Worksheets(33).Visible = False
        Worksheets(34).Visible = False
        Worksheets(35).Visible = False
        Worksheets(36).Visible = False
        Worksheets(37).Visible = False
        Worksheets(38).Visible = False
        Worksheets(39).Visible = False
        Worksheets(40).Visible = False
        Worksheets(41).Visible = False
        Worksheets(42).Visible = False
        Worksheets(43).Visible = False
        Worksheets(44).Visible = False
        Worksheets(45).Visible = False
        Worksheets(46).Visible = False
        Worksheets(47).Visible = False
        Worksheets(48).Visible = False
        Worksheets(49).Visible = False
        Worksheets(50).Visible = False
        Worksheets(51).Visible = False
        Worksheets(52).Visible = False
        Worksheets(53).Visible = False
        Worksheets(54).Visible = False
        Worksheets(55).Visible = False
        Worksheets(56).Visible = False
        Worksheets(57).Visible = False
        Worksheets(58).Visible = False
        Worksheets(59).Visible = False
        Worksheets(60).Visible = False
        Else
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = True
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = True
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = True
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = True
        Worksheets(14).Visible = True
        Worksheets(15).Visible = True
        Worksheets(16).Visible = True
        Worksheets(17).Visible = True
        Worksheets(18).Visible = True
        Worksheets(19).Visible = True
        Worksheets(20).Visible = True
        Worksheets(21).Visible = True
        Worksheets(22).Visible = True
        Worksheets(23).Visible = True
        Worksheets(24).Visible = True
        Worksheets(25).Visible = True
        Worksheets(26).Visible = True
        Worksheets(27).Visible = True
        Worksheets(28).Visible = True
        Worksheets(29).Visible = True
        Worksheets(30).Visible = True
        Worksheets(31).Visible = True
        Worksheets(32).Visible = True
        Worksheets(33).Visible = True
        Worksheets(34).Visible = True
        Worksheets(35).Visible = True
        Worksheets(36).Visible = True
        Worksheets(37).Visible = True
        Worksheets(38).Visible = True
        Worksheets(39).Visible = True
        Worksheets(40).Visible = True
        Worksheets(41).Visible = True
        Worksheets(42).Visible = True
        Worksheets(43).Visible = True
        Worksheets(44).Visible = True
        Worksheets(45).Visible = True
        Worksheets(46).Visible = True
        Worksheets(47).Visible = True
        Worksheets(48).Visible = True
        Worksheets(49).Visible = True
        Worksheets(50).Visible = True
        Worksheets(51).Visible = True
        Worksheets(52).Visible = True
        Worksheets(53).Visible = True
        Worksheets(54).Visible = True
        Worksheets(55).Visible = True
        Worksheets(56).Visible = True
        Worksheets(57).Visible = True
        Worksheets(58).Visible = True
        Worksheets(59).Visible = True
        Worksheets(60).Visible = True
    End If
    End If
        If Not Intersect(Target, Range("H5")) Is Nothing Then
        Application.ScreenUpdating = False
        If Target.Value = "x" Then
        Range("E3").Value = ""
        Range("F3").Value = ""
        Range("G3").Value = ""
        Range("H3").Value = ""
        Range("E4").Value = ""
        Range("F4").Value = ""
        Range("G4").Value = ""
        Range("H4").Value = ""
        Range("E5").Value = ""
        Range("F5").Value = ""
        Range("G5").Value = ""
        Range("E6").Value = ""
        Range("F6").Value = ""
        Range("G6").Value = ""
        Range("H6").Value = ""
        Range("E8").Value = ""
        Range("F8").Value = ""
        Range("G8").Value = ""
        Range("H8").Value = ""
        Range("E9").Value = ""
        Range("F9").Value = ""
        Range("G9").Value = ""
        Range("H9").Value = ""
        Range("E11").Value = ""
        Range("F11").Value = ""
        Range("G11").Value = ""
        Range("H11").Value = ""
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = False
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = False
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = False
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = False
        Worksheets(14).Visible = False
        Worksheets(15).Visible = False
        Worksheets(16).Visible = False
        Worksheets(17).Visible = False
        Worksheets(18).Visible = False
        Worksheets(19).Visible = False
        Worksheets(20).Visible = False
        Worksheets(21).Visible = False
        Worksheets(22).Visible = False
        Worksheets(23).Visible = False
        Worksheets(24).Visible = False
        Worksheets(25).Visible = False
        Worksheets(26).Visible = False
        Worksheets(27).Visible = False
        Worksheets(28).Visible = False
        Worksheets(29).Visible = False
        Worksheets(30).Visible = False
        Worksheets(31).Visible = False
        Worksheets(32).Visible = False
        Worksheets(33).Visible = False
        Worksheets(34).Visible = False
        Worksheets(35).Visible = False
        Worksheets(36).Visible = False
        Worksheets(37).Visible = False
        Worksheets(38).Visible = False
        Worksheets(39).Visible = False
        Worksheets(40).Visible = False
        Worksheets(41).Visible = False
        Worksheets(42).Visib
Avatar billede claes57 Ekspert
26. januar 2013 - 17:51 #1
du skal bruge radio-knapper hvis der kun må vælges en af en serie.
Og lav en kort kode, der .Visible = False på alle ark (kaldes ved start), og for den valgte skal du så .Visible = True på de tilladte.
Avatar billede store-morten Ekspert
26. januar 2013 - 18:32 #2
Se:
http://www.eksperten.dk/spm/975790
Dobbelt spørgsmål?
Avatar billede frbl Nybegynder
26. januar 2013 - 18:38 #3
forklar mig lige lidt mere om radio knap.
korrekt det er en fejl med dobbelt spørgsmål - beklager:-(
Avatar billede claes57 Ekspert
26. januar 2013 - 18:48 #4
radio-knap ser du fx her lige over kommentar-boksen - man kan kun vælge enten kommentar eller svar - men der kan ikke markeres i begge.
En afkrydsning er en mulighed blandt mange, og flere kan vælges (fx hvilke aviser læser du - sæt kryds ved alle)

Med en radio-knap ved du hvilket felt, der er valgt, og så nulstiller du alle ark (Range("x0").Value = "" er jo klaret), og så skal du bare køre de synlige ark igennem (der er sikkert en logisk måde at reducere dem på også - jeg har bare ikke luret
        Worksheets(2).Visible = True
        Worksheets(3).Visible = True
        Worksheets(4).Visible = False
        Worksheets(5).Visible = True
        Worksheets(6).Visible = True
        Worksheets(7).Visible = False
        Worksheets(8).Visible = True
        Worksheets(9).Visible = True
        Worksheets(10).Visible = False
        Worksheets(11).Visible = True
        Worksheets(12).Visible = True
        Worksheets(13).Visible = False
af - men nogle er nok true ved klik i e, og andre ved et rækkenummer, så det skulle kunne lade sig gøre)
Avatar billede store-morten Ekspert
26. januar 2013 - 19:31 #5
Prøv:
Sub VisAlleArk()
Dim w As Integer
    'vælg ark nummer 1
    ActiveWorkbook.Worksheets(1).Select
    'fra 1. ark til sidste ark
    For w = 1 To ThisWorkbook.Worksheets.Count
            Worksheets(w).Visible = True
    Next w
    'vælg ark nummer 1
    ActiveWorkbook.Worksheets(1).Select
End Sub

Sub Skjul_13_til_SidsteArk()
Dim w As Integer
    'vælg ark nummer 1
    ActiveWorkbook.Worksheets(1).Select
    'fra 13. ark til sidste ark
    For w = 13 To ThisWorkbook.Worksheets.Count
            Worksheets(w).Visible = False
    Next w
    'vælg ark nummer 1
    ActiveWorkbook.Worksheets(1).Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Afslut
    If Not Intersect(Target, Range("E3")) Is Nothing Then
    Application.EnableEvents = False 'For at undgå at koden looper
    Application.ScreenUpdating = False
   
If Target.Value = "x" Then
        Range("F3:H3").Value = ""
        Range("E4:G4").Value = ""
        Range("E5:E6").Value = ""
        Range("F5:F6").Value = ""
        Range("E8:H8").Value = ""
        Range("F8:H8").Value = ""
        Range("E9:H9").Value = ""
        Range("E11:H11").Value = ""
Call VisAlleArk
        Worksheets(4).Visible = False
        Worksheets(7).Visible = False
        Worksheets(10).Visible = False
        Call Skjul_13_til_SidsteArk

Application.EnableEvents = True
Exit Sub
    End If
    Call VisAlleArk
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End If

  If Not Intersect(Target, Range("F3")) Is Nothing Then
    Application.EnableEvents = False 'For at undgå at koden looper
    Application.ScreenUpdating = False

        If Target.Value = "x" Then
        Range("E3").Value = ""
        Range("G3:H3").Value = ""
        Range("E4:H11").Value = ""
Call VisAlleArk
        Worksheets(4).Visible = False
        Worksheets(7).Visible = False
        Worksheets(10).Visible = False
        Worksheets(11).Visible = False
        Worksheets(12).Visible = False
        Call Skjul_13_til_SidsteArk

Application.EnableEvents = True
Exit Sub
    End If
    Call VisAlleArk
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End If

        If Not Intersect(Target, Range("G3")) Is Nothing Then
            Application.EnableEvents = False 'For at undgå at koden looper
    Application.ScreenUpdating = False

        If Target.Value = "x" Then
        Range("E3:F3").Value = ""
        Range("H3").Value = ""
        Range("E4:H11").Value = ""
Call VisAlleArk
        Worksheets(4).Visible = False
        Worksheets(7).Visible = False
        Worksheets(10).Visible = False
        Call Skjul_13_til_SidsteArk

Application.EnableEvents = True
Exit Sub

    End If
    Call VisAlleArk
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End If

        If Not Intersect(Target, Range("H3")) Is Nothing Then
            Application.EnableEvents = False 'For at undgå at koden looper
            Application.ScreenUpdating = False
   
        If Target.Value = "x" Then
        Range("E3:G3").Value = ""
        Range("E4:H11").Value = ""
       
Call VisAlleArk
        Worksheets(4).Visible = False
        Worksheets(7).Visible = False
        Worksheets(10).Visible = False
        Call Skjul_13_til_SidsteArk

Application.EnableEvents = True
Exit Sub

    End If
    Call VisAlleArk
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End If
   
        If Not Intersect(Target, Range("E4")) Is Nothing Then
            Application.EnableEvents = False 'For at undgå at koden looper
    Application.ScreenUpdating = False

        If Target.Value = "x" Then
        Range("E3:H11").Value = ""
Call VisAlleArk
        Worksheets(4).Visible = False
        Worksheets(7).Visible = False
        Worksheets(10).Visible = False
        Call Skjul_13_til_SidsteArk
Application.EnableEvents = True
Exit Sub

    End If
    Call VisAlleArk
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End If

        If Not Intersect(Target, Range("F4")) Is Nothing Then
            Application.EnableEvents = False 'For at undgå at koden looper
    Application.ScreenUpdating = False

        If Target.Value = "x" Then
        Range("E3:H11").Value = ""
Call VisAlleArk
        Worksheets(4).Visible = False
        Worksheets(7).Visible = False
        Worksheets(10).Visible = False
        Worksheets(11).Visible = False
        Worksheets(12).Visible = False
        Call Skjul_13_til_SidsteArk
Application.EnableEvents = True
Exit Sub

    End If
    Call VisAlleArk
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End If

        If Not Intersect(Target, Range("G4")) Is Nothing Then
            Application.EnableEvents = False 'For at undgå at koden looper
    Application.ScreenUpdating = False

        If Target.Value = "x" Then
        Range("E3:H11").Value = ""
Call VisAlleArk
        Worksheets(4).Visible = False
        Worksheets(7).Visible = False
        Worksheets(10).Visible = False
        Call Skjul_13_til_SidsteArk

Application.EnableEvents = True
Exit Sub

    End If
    Call VisAlleArk
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End If
   
        If Not Intersect(Target, Range("H4")) Is Nothing Then
            Application.EnableEvents = False 'For at undgå at koden looper
    Application.ScreenUpdating = False

        If Target.Value = "x" Then
        Range("E3:H11").Value = ""
Call VisAlleArk
        Worksheets(4).Visible = False
        Worksheets(7).Visible = False
        Worksheets(10).Visible = False
        Call Skjul_13_til_SidsteArk

Application.EnableEvents = True
Exit Sub

    End If
    Call VisAlleArk
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End If

        If Not Intersect(Target, Range("E5")) Is Nothing Then
            Application.EnableEvents = False 'For at undgå at koden looper
    Application.ScreenUpdating = False

        If Target.Value = "x" Then
        Range("E3:H11").Value = ""
Call VisAlleArk
        Worksheets(4).Visible = False
        Worksheets(7).Visible = False
        Worksheets(10).Visible = False
        Call Skjul_13_til_SidsteArk

Application.EnableEvents = True
Exit Sub

    End If
    Call VisAlleArk
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End If

        If Not Intersect(Target, Range("F5")) Is Nothing Then
            Application.EnableEvents = False 'For at undgå at koden looper
    Application.ScreenUpdating = False

        If Target.Value = "x" Then
        Range("E3:H11").Value = ""
Call VisAlleArk
        Worksheets(4).Visible = False
        Worksheets(7).Visible = False
        Worksheets(10).Visible = False
        Worksheets(11).Visible = False
        Worksheets(12).Visible = False
        Call Skjul_13_til_SidsteArk

Application.EnableEvents = True
Exit Sub

    End If
    Call VisAlleArk
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End If

        If Not Intersect(Target, Range("G5")) Is Nothing Then
            Application.EnableEvents = False 'For at undgå at koden looper
    Application.ScreenUpdating = False

        If Target.Value = "x" Then
        Range("E3:H11").Value = ""
Call VisAlleArk
        Worksheets(4).Visible = False
        Worksheets(7).Visible = False
        Worksheets(10).Visible = False
        Call Skjul_13_til_SidsteArk

Application.EnableEvents = True
Exit Sub

    End If
    Call VisAlleArk
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End If

Afslut:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

Som er til Target, Range("G5")
Skal testes for fejl!!!
Avatar billede claes57 Ekspert
26. januar 2013 - 20:28 #6
mønster ved ark-synlighed:

ved klik i e,g,h
2-12 true, dog 4,7,10 false

ved klik i f
2-12 true, dog 4,7,10,11,12 false

ved radio-knap er der altid valgt en - så alle=true sker ikke.

det kan så reduceres:
alle er false fra start
2-12 true, men 4,7,10 true
hvis der er klikket i f, så er også 11,12 false
og alt med range er udgået...
Avatar billede claes57 Ekspert
26. januar 2013 - 20:30 #7
linjen
2-12 true, men 4,7,10 true
skal vre
2-12 true, men 4,7,10 false
Avatar billede frbl Nybegynder
27. januar 2013 - 13:33 #8
claes

Kunne du skrive koden i en lang række til copy/paste så kan jeg teste om det virker.
Avatar billede store-morten Ekspert
12. februar 2013 - 05:24 #9
Har du mistet interessen?
Avatar billede frbl Nybegynder
18. marts 2013 - 21:22 #10
Nej - det blev nok bare for langhåret
Avatar billede store-morten Ekspert
18. marts 2013 - 22:02 #11
For langhåret !!!

Koden er ellers barberet en del ned, i forhold til #0

Har du testet den?

Ærgeligt at há brugt tid på det, og der lukkes uden videre ;-(
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Se alle it-kurser fra Computerworld Kurser
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.
Se alle it-kurser

Flere spørgsmål fra Office & Kontorpakker kategorien

Titel Indlæg Oprettet Seneste aktivitet
Access Af Budwar i Office & Kontorpakker 1 11/11/202415:21 12/11/202410:47
kan man fjerne login i mail Af thedukedk i Office & Kontorpakker 5 09/11/202411:49 09/11/202422:05
Fra Microsoft 365 til Libre Office Af Btimmer i Office & Kontorpakker 4 03/11/202410:52 03/11/202414:38
Opret ny Acces database - opgave styring Af K6950 i Office & Kontorpakker 1 21/10/202417:04 22/10/202413:03
Sletning af email adresse i Outlook Professional Plus 2021 Af Mariann i Office & Kontorpakker 5 06/10/202414:36 08/10/202414:01
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 13:15 Mindre videofil størrelse Af jackie18 i Andet software
I dag 10:44 Ændre nuller til ovenstående tekst Af boro23 i Excel
I dag 08:31 HVIS med datoer Af HHA i Excel
I går 20:12 Ældre lysstofarmatur (2011) Af ErikHg i Fri debat
I går 14:05 Numerisk liste Af AND i Excel
White papers
Flere white papers »


Premium
Teaser billede
Rejsekort-udgift brager op: Prisen for at udskifte standere stiger med 25 procent - alle standere skal væk
Læs mere »
Microsofts store årlige event: De tre vigtigste nøglebudskaber fra Satya Nadella om Microsofts fremtid
Tre klare årsager: Derfor har Netcompany fastansat den højest placerede dansker i det internationale diplomati
Efter pludselig annullering: Domstolsstyrelsen igen på udkig efter ny hovedleverandør - skal afløse NNIT
Se alle »
Computerworld
Teaser billede
60.000 routere risikerer at blive overtaget af hackere – producent afviser at fikse problemet
Læs mere »
Test: Audi Q6 er en super fed SUV - men gør dig selv en tjeneste og kast flere penge efter den
Det vrimler frem med gratis-alternativer til ChatGPT Plus – her er de bedste af dem
Microsofts nye pc er ekstrem billig – men kan blive ekstrem sikker og fleksibel
Se alle »
CIO
Teaser billede
Dansk ”AI-kogebog” er klar: Her er ni nedslagspunkter, der skal sende Danmark forrest i AI-kapløbet
Læs mere »
Danske sygehuse når ikke at opgradere tusindvis af computere til Windows 11 i tide: Får konsekvenser for it-sikkerheden
Stor sag mod Microsoft kan være på vej: Beskyldes for at låse Azure-kunder fast med ulovlige metoder
Kæmpe-opgave for Danske Bank har banet vej for fuldautomatiseret migrering til cloud: Nu udbredes metoden i hele AWS
Se alle »
Job & Karriere
Teaser billede
Microsoft klar med ny direktion for den danske forretning: Her er de nye direktører
Læs mere »
Tre Norlys-topchefer fratræder med omgående virkning: Internet-forretningen er udfordret - vil have mere fart i integrationen af Telia Danmark
Efter skelsættende møde med sportscoach: Stor dansk it-arbejdsplads indfører fredags-fri og isbade i arbejdstiden
Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre
Se alle »
White paper
Teaser billede
MDR: Transparent sikkerhed og overvågning i realtid
Læs mere »
SMB og cybertrusler: Brug sikkerhedsressourcerne optimalt
Styrk compliance, sikkerhed og overblik med ét hug
Er din cybersikkerhed klar til AI-revolutionen?
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »