0

Código Login em formulário VBA

Private Sub CommandButton1_Click()

If TextBox1.Text = "1" And TextBox2.Text = "1" Then
MsgBox "Login realizado com sucesso", vbInformation, "!"
Unload Login
Else
MsgBox "SENHA INCORRETA PROCURE O ADMINISTRADOR DO SISTEMA", vbInformation, "Login"
TextBox1.Text = ""
TextBox2.Text = ""

End If

End Sub
Private Sub CommandButton2_Click()
Application.Quit
ActiveWorkbook.Save
Application.Quit
End Sub
Private Sub UserForm_Click()

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

If CloseMode = userForm1ControlMenu Then

Cancel = True
End Sub


Código para gerar PDF

Private Sub CommandButton1_Click()

Sheets("RELATE_SELECAO").Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path _
& "\Relatório Nº - " & Range("A1").Value & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False

Me.AcroPDF1.LoadFile ActiveWorkbook.Path & "\Relatório Nº - " & Range("A1").Value & ".pdf"
Me.AcroPDF1.setZoom (60)
End Sub

Máscara de texto para data
Private Sub txt_data_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

txt_data.MaxLength = 10 '10/10/2014
Select Case KeyAscii
Case 8       'Aceita o BACK SPACE
Case 13: SendKeys "{TAB}"    'Emula o TAB
Case 48 To 57
If txt_data.SelStart = 2 Then txt_data.SelText = "/"
If txt_data.SelStart = 5 Then txt_data.SelText = "/"
Case Else: KeyAscii = 0     'Ignora os outros caracteres
End Select
End Sub

Máscara de texto para CPF

 Private Sub txt_cpf_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

txt_cpf.MaxLength = 14 '032.656.054-71
Select Case KeyAscii
Case 8       'Aceita o BACK SPACE
Case 13: SendKeys "{TAB}"    'Emula o TAB
Case 48 To 57
If txt_cpf.SelStart = 3 Then txt_cpf.SelText = "."
If txt_cpf.SelStart = 7 Then txt_cpf.SelText = "."
If txt_cpf.SelStart = 11 Then txt_cpf.SelText = "-"
Case Else: KeyAscii = 0     'Ignora os outros caracteres
End Select
End Sub

 Máscara de texto para CNPJ
Private Sub txt_cnpj_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
txt_cnpj.MaxLength = 18 '07.454.325/0001-41
Select Case KeyAscii
Case 8       'Aceita o BACK SPACE
Case 13: SendKeys "{TAB}"    'Emula o TAB
Case 48 To 57
If txt_cnpj.SelStart = 2 Then txt_cnpj.SelText = "."
If txt_cnpj.SelStart = 6 Then txt_cnpj.SelText = "."
If txt_cnpj.SelStart = 10 Then txt_cnpj.SelText = "/"
If txt_cnpj.SelStart = 15 Then txt_cnpj.SelText = "-"
Case Else: KeyAscii = 0     'Ignora os outros caracteres
End Select
End Sub

 Máscara de texto para CEP
Private Sub txt_cep_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
txt_cep.MaxLength = 10 '88.888-110
Select Case KeyAscii
Case 8       'Aceita o BACK SPACE
Case 13: SendKeys "{TAB}"    'Emula o TAB
Case 48 To 57
If txt_cep.SelStart = 2 Then txt_cep.SelText = "."
If txt_cep.SelStart = 6 Then txt_cep.SelText = "-"
Case Else: KeyAscii = 0     'Ignora os outros caracteres
End Select
End Sub

Máscara de texto para TELEFONE

txt_fone.MaxLength = 13 '(45)3332-3333
Select Case KeyAscii
Case 8       'Aceita o BACK SPACE
Case 13: SendKeys "{TAB}"    'Emula o TAB
Case 48 To 57
If txt_fone.SelStart = 0 Then txt_fone.SelText = "("
If txt_fone.SelStart = 3 Then txt_fone.SelText = ")"
If txt_fone.SelStart = 8 Then txt_fone.SelText = "-"
Case Else: KeyAscii = 0     'Ignora os outros caracteres
End Select

Máscara de texto para MOEDA

Private Sub txt_moeda_AfterUpdate()
txt_moeda.Text = Format(txt_moeda.Text, "Currency")
End Sub

Private Sub txt_moeda2_AfterUpdate()
txt_moeda2 = Format(txt_moeda2, "R$ #,##0.00")
End Sub

Postar um comentário

Obrigado pelo seu comentário. Não publicamos neste blog comentários com palavras de baixo calão, denúncias levianas e troca de ofensas entre leitores.