frankie111
Gebruiker
- Lid geworden
- 8 feb 2014
- Berichten
- 50
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
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