VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Email Caption = "Email" ClientHeight = 3996 ClientLeft = 108 ClientTop = 456 ClientWidth = 6240 OleObjectBlob = "Email.frx":0000 StartUpPosition = 1 'CenterOwner End Attribute VB_Name = "Email" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub CommandButton1_Click() Unload Email Menu.Show End Sub Private Sub CommandButton2_Click() ThisWorkbook.Worksheets("BD").Activate Range("C3").Value = TextBox1.Value Range("C4").Value = TextBox2.Value Range("C5").Value = TextBox3.Value Range("C6").Value = TextBox4.Value Range("C7").Value = TextBox5.Value Range("C8").Value = TextBox6.Value Range("C9").Value = TextBox7.Value Range("C10").Value = TextBox8.Value Range("C11").Value = TextBox9.Value Range("C12").Value = TextBox10.Value Range("C13").Value = TextBox11.Value Range("C14").Value = TextBox12.Value Range("C15").Value = TextBox13.Value Range("C16").Value = TextBox14.Value If CheckBox1 = True Then Range("D3").Value = 1 Else Range("D3").Value = "" If CheckBox2 = True Then Range("E3").Value = 1 Else Range("E3").Value = "" If CheckBox3 = True Then Range("F3").Value = 1 Else Range("F3").Value = "" If CheckBox4 = True Then Range("G3").Value = 1 Else Range("G3").Value = "" If CheckBox6 = True Then Range("D4").Value = 1 Else Range("D4").Value = "" If CheckBox7 = True Then Range("E4").Value = 1 Else Range("E4").Value = "" If CheckBox8 = True Then Range("F4").Value = 1 Else Range("F4").Value = "" If CheckBox5 = True Then Range("G4").Value = 1 Else Range("G4").Value = "" If CheckBox10 = True Then Range("D5").Value = 1 Else Range("D5").Value = "" If CheckBox11 = True Then Range("E5").Value = 1 Else Range("E5").Value = "" If CheckBox12 = True Then Range("F5").Value = 1 Else Range("F5").Value = "" If CheckBox13 = True Then Range("G5").Value = 1 Else Range("G5").Value = "" If CheckBox14 = True Then Range("D6").Value = 1 Else Range("D6").Value = "" If CheckBox15 = True Then Range("E6").Value = 1 Else Range("E6").Value = "" If CheckBox16 = True Then Range("F6").Value = 1 Else Range("F6").Value = "" If CheckBox9 = True Then Range("G6").Value = 1 Else Range("G6").Value = "" If CheckBox18 = True Then Range("D7").Value = 1 Else Range("D7").Value = "" If CheckBox19 = True Then Range("E7").Value = 1 Else Range("E7").Value = "" If CheckBox20 = True Then Range("F7").Value = 1 Else Range("F7").Value = "" If CheckBox21 = True Then Range("G7").Value = 1 Else Range("G7").Value = "" emailsalfareport = Range("D1").Value emailsbravoreport = Range("E1").Value emailscff = Range("F1").Value emailsoutros = Range("F1").Value MsgBox "Emails atualizados", vbInformation End Sub Private Sub Label1_Click() End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = vbFormControlMenu Then Cancel = True MsgBox "O botão X foi desativado. Use outro método para fechar.", vbInformation End If End Sub Private Sub UserForm_Initialize() ThisWorkbook.Worksheets("Registos").Activate TextBox1.Value = Range("AL1").Value TextBox2.Value = Range("AL2").Value TextBox3.Value = Range("AL3").Value TextBox4.Value = Range("AL4").Value TextBox5.Value = Range("AL5").Value TextBox6.Value = Range("AL6").Value TextBox7.Value = Range("AL7").Value TextBox8.Value = Range("AL8").Value TextBox9.Value = Range("AL9").Value TextBox10.Value = Range("AL10").Value TextBox11.Value = Range("AL11").Value TextBox12.Value = Range("AL12").Value TextBox13.Value = Range("AL13").Value TextBox14.Value = Range("AL14").Value If Range("AH1").Value = 1 Then CheckBox1 = True Else CheckBox1 = False If Range("AI1").Value = 1 Then CheckBox2 = True Else CheckBox2 = False If Range("AJ1").Value = 1 Then CheckBox3 = True Else CheckBox3 = False If Range("AK1").Value = 1 Then CheckBox4 = True Else CheckBox4 = False If Range("AH2").Value = 1 Then CheckBox6 = True Else CheckBox6 = False If Range("AI2").Value = 1 Then CheckBox7 = True Else CheckBox7 = False If Range("AJ2").Value = 1 Then CheckBox8 = True Else CheckBox8 = False If Range("AK2").Value = 1 Then CheckBox5 = True Else CheckBox5 = False If Range("AH3").Value = 1 Then CheckBox10 = True Else CheckBox10 = False If Range("AI3").Value = 1 Then CheckBox11 = True Else CheckBox11 = False If Range("AJ3").Value = 1 Then CheckBox12 = True Else CheckBox12 = False If Range("AK3").Value = 1 Then CheckBox13 = True Else CheckBox13 = False If Range("AH4").Value = 1 Then CheckBox14 = True Else CheckBox14 = False If Range("AI4").Value = 1 Then CheckBox15 = True Else CheckBox15 = False If Range("AJ4").Value = 1 Then CheckBox16 = True Else CheckBox16 = False If Range("AK4").Value = 1 Then CheckBox9 = True Else CheckBox9 = False If Range("AH5").Value = 1 Then CheckBox18 = True Else CheckBox18 = False If Range("AI5").Value = 1 Then CheckBox19 = True Else CheckBox19 = False If Range("AJ5").Value = 1 Then CheckBox20 = True Else CheckBox20 = False If Range("AK5").Value = 1 Then CheckBox21 = True Else CheckBox21 = False If Range("AH6").Value = 1 Then CheckBox23 = True Else CheckBox23 = False If Range("AI6").Value = 1 Then CheckBox24 = True Else CheckBox24 = False If Range("AJ6").Value = 1 Then CheckBox25 = True Else CheckBox25 = False If Range("AK6").Value = 1 Then CheckBox22 = True Else CheckBox22 = False If Range("AH7").Value = 1 Then CheckBox26 = True Else CheckBox26 = False If Range("AI7").Value = 1 Then CheckBox27 = True Else CheckBox27 = False If Range("AJ7").Value = 1 Then CheckBox28 = True Else CheckBox28 = False If Range("AK7").Value = 1 Then CheckBox29 = True Else CheckBox29 = False If Range("AH8").Value = 1 Then CheckBox30 = True Else CheckBox30 = False If Range("AI8").Value = 1 Then CheckBox31 = True Else CheckBox31 = False If Range("AJ8").Value = 1 Then CheckBox32 = True Else CheckBox32 = False If Range("AK8").Value = 1 Then CheckBox17 = True Else CheckBox17 = False If Range("AH9").Value = 1 Then CheckBox35 = True Else CheckBox35 = False If Range("AI9").Value = 1 Then CheckBox36 = True Else CheckBox36 = False If Range("AJ9").Value = 1 Then CheckBox37 = True Else CheckBox37 = False If Range("AK9").Value = 1 Then CheckBox38 = True Else CheckBox38 = False If Range("AH10").Value = 1 Then CheckBox39 = True Else CheckBox39 = False If Range("AI10").Value = 1 Then CheckBox40 = True Else CheckBox40 = False If Range("AJ10").Value = 1 Then CheckBox41 = True Else CheckBox41 = False If Range("AK10").Value = 1 Then CheckBox34 = True Else CheckBox34 = False If Range("AH11").Value = 1 Then CheckBox42 = True Else CheckBox42 = False If Range("AI11").Value = 1 Then CheckBox43 = True Else CheckBox43 = False If Range("AJ11").Value = 1 Then CheckBox44 = True Else CheckBox44 = False If Range("AK11").Value = 1 Then CheckBox45 = True Else CheckBox45 = False If Range("AH12").Value = 1 Then CheckBox47 = True Else CheckBox47 = False If Range("AI12").Value = 1 Then CheckBox48 = True Else CheckBox48 = False If Range("AJ12").Value = 1 Then CheckBox49 = True Else CheckBox49 = False If Range("AK12").Value = 1 Then CheckBox46 = True Else CheckBox46 = False If Range("AH13").Value = 1 Then CheckBox50 = True Else CheckBox50 = False If Range("AI13").Value = 1 Then CheckBox51 = True Else CheckBox51 = False If Range("AJ13").Value = 1 Then CheckBox52 = True Else CheckBox52 = False If Range("AK13").Value = 1 Then CheckBox53 = True Else CheckBox53 = False If Range("AH14").Value = 1 Then CheckBox54 = True Else CheckBox54 = False If Range("AI14").Value = 1 Then CheckBox55 = True Else CheckBox55 = False If Range("AJ14").Value = 1 Then CheckBox56 = True Else CheckBox56 = False If Range("AK14").Value = 1 Then CheckBox33 = True Else CheckBox33 = False End Sub