jantoedeledoki
Gebruiker
- Lid geworden
- 22 dec 2010
- Berichten
- 36
Hallo,
Ik heb in Excel 2010 een Userform gemaakt, waarin ik voor 8 bladen kan kiezen (met CheckBoxen) welke bladen ik wil printen of als pdf wil opslaan. Tot zover werkt het perfect. Nu heb ik achter elke CheckBox een twee TextBoxen (één voor de actie "Print"en één voor de actie "PDF") geplaatst die na het drukken op de Commandbutton "Print" of "PDF" van kleur moet veranderen van wit naar groen. Dit werkt in eerste instantie goed, alleen na het sluiten en vervolgens weer openen van het Userform, is de kleur weer terug naar wit. Het is echter de bedoeling dat de kleur groen blijft, onafhankelijk van de status van de bijbehorende CheckBox, zodat ik kan zien welk blad ik al heb geprint of als pdf heb opgeslagen.
Ik heb het geprobeerd door onderstaande code bij zowel de CommandButton_Click() als Userform_Activate() te plaatsen:
Ik heb in Excel 2010 een Userform gemaakt, waarin ik voor 8 bladen kan kiezen (met CheckBoxen) welke bladen ik wil printen of als pdf wil opslaan. Tot zover werkt het perfect. Nu heb ik achter elke CheckBox een twee TextBoxen (één voor de actie "Print"en één voor de actie "PDF") geplaatst die na het drukken op de Commandbutton "Print" of "PDF" van kleur moet veranderen van wit naar groen. Dit werkt in eerste instantie goed, alleen na het sluiten en vervolgens weer openen van het Userform, is de kleur weer terug naar wit. Het is echter de bedoeling dat de kleur groen blijft, onafhankelijk van de status van de bijbehorende CheckBox, zodat ik kan zien welk blad ik al heb geprint of als pdf heb opgeslagen.
Ik heb het geprobeerd door onderstaande code bij zowel de CommandButton_Click() als Userform_Activate() te plaatsen:
Code:
If CheckBox1.Value = True Then
TextBox1.BackColor = RGB(0, 128, 0)
If CheckBox1.Value = False And TextBox1.BackColor = RGB(0, 128, 0) Then
TextBox1.BackColor = RGB(0, 128, 0)
If CheckBox1.Value = False And TextBox1.BackColor = RGB(255, 255, 255) Then
TextBox1.BackColor = RGB(255, 255, 255)
End If
End If
End If