Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 5 van 5

Onderwerp: Importeren van de status van een checkbox in een andere file

  1. #1
    Junior Member
    Geregistreerd
    8 februari 2014
    Vraag is opgelost

    Importeren van de status van een checkbox in een andere file

    Kan iemand deze macro verkleinen. Ik heb geprobeerd met een loop maar dit is niet toepasbaar op een checkbox
    Uiteraard door het veelvuldig gebruik van ".activate" kon ik het flikkeren niet stoppen met in het begin "application.screenupdating= false" te zetten. Daar om heb ik in het begin maar het commando "application. visible=false" gezet.

    Deze macro zet de status van 31 checkboxen over van file a (in dit geval "april_2018.xlsm") naar file b (a18.04.13 - kopie.xlsm)
    Is hier een methode voor om dit simpelder op te lossen ipv zo een ellen lange lijst met bijna dezelfde opdracht?
    Alvast bedankt



    Sub lead_imports()

    Application.visible = False
    Windows("april_2018.xlsm").Activate
    If Sheets("Centrale").CheckBox1.Value = True Then
    Windows("a18.04.13 - kopie.xlsm").Activate
    Sheets("Centrale").CheckBox1.Value = True
    Else
    End If
    Windows("april_2018.xlsm").Activate
    If Sheets("Centrale").CheckBox2.Value = True Then
    Windows("a18.04.13 - kopie.xlsm").Activate
    Sheets("Centrale").CheckBox2.Value = True
    Else
    End If
    Windows("april_2018.xlsm").Activate
    If Sheets("Centrale").CheckBox3.Value = True Then
    Windows("a18.04.13 - kopie.xlsm").Activate
    Sheets("Centrale").CheckBox3.Value = True
    Else
    End If
    Windows("april_2018.xlsm").Activate
    If Sheets("Centrale").CheckBox4.Value = True Then
    Windows("a18.04.13 - kopie.xlsm").Activate
    Sheets("Centrale").CheckBox4.Value = True
    Else
    End If
    Windows("april_2018.xlsm").Activate
    If Sheets("Centrale").CheckBox5.Value = True Then
    Windows("a18.04.13 - kopie.xlsm").Activate
    Sheets("Centrale").CheckBox5.Value = True
    Else
    End If
    Windows("april_2018.xlsm").Activate
    If Sheets("Centrale").CheckBox6.Value = True Then
    Windows("a18.04.13 - kopie.xlsm").Activate
    Sheets("Centrale").CheckBox6.Value = True
    Else
    End If
    Windows("april_2018.xlsm").Activate
    If Sheets("Centrale").CheckBox7.Value = True Then
    Windows("a18.04.13 - kopie.xlsm").Activate
    Sheets("Centrale").CheckBox7.Value = True
    Else
    End If
    Windows("april_2018.xlsm").Activate
    If Sheets("Centrale").CheckBox8.Value = True Then
    Windows("a18.04.13 - kopie.xlsm").Activate
    Sheets("Centrale").CheckBox8.Value = True
    Else
    End If
    Windows("april_2018.xlsm").Activate
    If Sheets("Centrale").CheckBox9.Value = True Then
    Windows("a18.04.13 - kopie.xlsm").Activate
    Sheets("Centrale").CheckBox9.Value = True
    Else
    End If
    Windows("april_2018.xlsm").Activate
    If Sheets("Centrale").CheckBox10.Value = True Then
    Windows("a18.04.13 - kopie.xlsm").Activate
    Sheets("Centrale").CheckBox10.Value = True
    Else
    End If
    Windows("april_2018.xlsm").Activate
    If Sheets("Centrale").CheckBox11.Value = True Then
    Windows("a18.04.13 - kopie.xlsm").Activate
    Sheets("Centrale").CheckBox11.Value = True
    Else
    End If
    Windows("april_2018.xlsm").Activate
    If Sheets("Centrale").CheckBox12.Value = True Then
    Windows("a18.04.13 - kopie.xlsm").Activate
    Sheets("Centrale").CheckBox12.Value = True
    Else
    End If
    Windows("april_2018.xlsm").Activate
    If Sheets("Centrale").CheckBox13.Value = True Then
    Windows("a18.04.13 - kopie.xlsm").Activate
    Sheets("Centrale").CheckBox13.Value = True
    Else
    End If
    Windows("april_2018.xlsm").Activate
    If Sheets("Centrale").CheckBox14.Value = True Then
    Windows("a18.04.13 - kopie.xlsm").Activate
    Sheets("Centrale").CheckBox14.Value = True
    Else
    End If
    Windows("april_2018.xlsm").Activate
    If Sheets("Centrale").CheckBox15.Value = True Then
    Windows("a18.04.13 - kopie.xlsm").Activate
    Sheets("Centrale").CheckBox15.Value = True
    Else
    End If
    Windows("april_2018.xlsm").Activate
    If Sheets("Centrale").CheckBox16.Value = True Then
    Windows("a18.04.13 - kopie.xlsm").Activate
    Sheets("Centrale").CheckBox16.Value = True
    Else
    End If
    Windows("april_2018.xlsm").Activate
    If Sheets("Centrale").CheckBox17.Value = True Then
    Windows("a18.04.13 - kopie.xlsm").Activate
    Sheets("Centrale").CheckBox17.Value = True
    Else
    End If
    Windows("april_2018.xlsm").Activate
    If Sheets("Centrale").CheckBox18.Value = True Then
    Windows("a18.04.13 - kopie.xlsm").Activate
    Sheets("Centrale").CheckBox18.Value = True
    Else
    End If
    Windows("april_2018.xlsm").Activate
    If Sheets("Centrale").CheckBox19.Value = True Then
    Windows("a18.04.13 - kopie.xlsm").Activate
    Sheets("Centrale").CheckBox19.Value = True
    Else
    End If
    Windows("april_2018.xlsm").Activate
    If Sheets("Centrale").CheckBox20.Value = True Then
    Windows("a18.04.13 - kopie.xlsm").Activate
    Sheets("Centrale").CheckBox20.Value = True
    Else
    End If
    Windows("april_2018.xlsm").Activate
    If Sheets("Centrale").CheckBox21.Value = True Then
    Windows("a18.04.13 - kopie.xlsm").Activate
    Sheets("Centrale").CheckBox21.Value = True
    Else
    End If
    Windows("april_2018.xlsm").Activate
    If Sheets("Centrale").CheckBox22.Value = True Then
    Windows("a18.04.13 - kopie.xlsm").Activate
    Sheets("Centrale").CheckBox22.Value = True
    Else
    End If
    Windows("april_2018.xlsm").Activate
    If Sheets("Centrale").CheckBox23.Value = True Then
    Windows("a18.04.13 - kopie.xlsm").Activate
    Sheets("Centrale").CheckBox23.Value = True
    Else
    End If
    Windows("april_2018.xlsm").Activate
    If Sheets("Centrale").CheckBox24.Value = True Then
    Windows("a18.04.13 - kopie.xlsm").Activate
    Sheets("Centrale").CheckBox24.Value = True
    Else
    End If
    Windows("april_2018.xlsm").Activate
    If Sheets("Centrale").CheckBox25.Value = True Then
    Windows("a18.04.13 - kopie.xlsm").Activate
    Sheets("Centrale").CheckBox25.Value = True
    Else
    End If
    Windows("april_2018.xlsm").Activate
    If Sheets("Centrale").CheckBox26.Value = True Then
    Windows("a18.04.13 - kopie.xlsm").Activate
    Sheets("Centrale").CheckBox26.Value = True
    Else
    End If
    Windows("april_2018.xlsm").Activate
    If Sheets("Centrale").CheckBox27.Value = True Then
    Windows("a18.04.13 - kopie.xlsm").Activate
    Sheets("Centrale").CheckBox27.Value = True
    Else
    End If
    Windows("april_2018.xlsm").Activate
    If Sheets("Centrale").CheckBox28.Value = True Then
    Windows("a18.04.13 - kopie.xlsm").Activate
    Sheets("Centrale").CheckBox28.Value = True
    Else
    End If
    Windows("april_2018.xlsm").Activate
    If Sheets("Centrale").CheckBox29.Value = True Then
    Windows("a18.04.13 - kopie.xlsm").Activate
    Sheets("Centrale").CheckBox29.Value = True
    Else
    End If
    Windows("april_2018.xlsm").Activate
    If Sheets("Centrale").CheckBox30.Value = True Then
    Windows("a18.04.13 - kopie.xlsm").Activate
    Sheets("Centrale").CheckBox30.Value = True
    Else
    End If
    Windows("april_2018.xlsm").Activate
    If Sheets("Centrale").CheckBox31.Value = True Then
    Windows("a18.04.13 - kopie.xlsm").Activate
    Sheets("Centrale").CheckBox31.Value = True
    Else
    End If
    Application.EnableEvents = True
    'Application.ScreenUpdating = True
    Application.visible = True


    End Sub

  2. #2
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Plaats die handel eerst eens in codetags.
    "Hardware: The parts of a computer system that can be kicked. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  3. #3
    Giga Honourable Senior Member HSV's avatar
    Geregistreerd
    18 juli 2008
    Code:
    dim i as long
    for i = 1 to 31
    Sheets("Centrale").oleobjects("checkbox" & i).object = true
    next i
    Zo plaats je dus codes in codetags.
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  4. #4
    Junior Member
    Geregistreerd
    8 februari 2014
    Quote Origineel gepost door HSV Bekijk Bericht
    Code:
    dim i as long
    for i = 1 to 31
    Sheets("Centrale").oleobjects("checkbox" & i).object = true
    next i
    Zo plaats je dus codes in codetags.
    Ik kreeg het niet voor elkaar maar met jou manier lukt het prima.
    1000x dank

  5. #5
    Giga Honourable Senior Member HSV's avatar
    Geregistreerd
    18 juli 2008
    Graag gedaan, 31x was ook genoeg.
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren