Importeren van de status van een checkbox in een andere file

Status
Niet open voor verdere reacties.

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
 
Plaats die handel eerst eens in codetags.
 
Code:
dim i as long
for i = 1 to 31
[COLOR=#3E3E3E]Sheets("Centrale")[/COLOR].oleobjects("checkbox" & i).object = true
next i

Zo plaats je dus codes in codetags.
 
Code:
dim i as long
for i = 1 to 31
[COLOR=#3E3E3E]Sheets("Centrale")[/COLOR].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
 
Graag gedaan, 31x was ook genoeg. :d
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan