Como trabalhar com o vba no excel - sub rotinas prontas

Disponível somente no TrabalhosFeitos
  • Páginas : 3 (629 palavras )
  • Download(s) : 0
  • Publicado : 18 de setembro de 2012
Ler documento completo
Amostra do texto
Private Sub CBok_Click()

'checar dados do UserForm
'produto
If CBProduto.Text = "" Then
MsgBox "Escolha o produto", vbCritical, "Alerta"
CBProduto.SetFocus
Exit Sub
End If

'ConfiguraçõesIf CBTamanho.Text = "" Or CBProcessador.Text = "" Or CBMemoria.Text = "" Or CBArmazenamento.Text = "" Or CBTeclado.Text = "" Then
MsgBox "Escolha todas as Configurações", vbCritical, "Alerta"CBProduto.SetFocus
Exit Sub
End If

'Opcionais
If CBiwork.Value = False And CBaperture = False And CBlogicexp.Value = False And CBfinalcut.Value = False And CBfilemaker.Value = False AndCBoffice.Value = False Then
MsgBox "Não deseja escolher nenhum dos opcionais?", vbYesNo, "Question"
If MsgBox("Não deseja escolher nenhum dos opcionais?", vbYesNo, "Question") = vbYes ThenCBProduto.SetFocus
Exit Sub
End If
End If

'Informações do Cliente
If TBnome.Text = "" Then
MsgBox "Entre o nome do cliente", vbCritical, "Alerta"TBnome.SetFocus
Exit Sub
End If

'ACHAR LINHA RELATORIO

Sheets("Relatório de Vendas").Select

If Range("B4") = "" Then ' se B4 está vazio,o banco estará vazio
linha = 2
ElseRange("B2").Select
Selection.End(xlDown).Select ' CTRL + seta para baixo
linha = ActiveCell.Row + 1
End If

'CADASTRAR AS INFORMAÇÕES
Cells(linha, 1) =linha - 3 'numero da compra
Cells(linha, 2) = Date 'data da compra
Cells(linha, 3) = CBProduto.Text 'produto
Cells(linha, 4) = CBTamanho.Text 'tamanho tela
Cells(linha, 5) =CBProcessador.Text 'proc
Cells(linha, 6) = CBMemoria.Text 'memoria
Cells(linha, 7) = CBArmazenamento 'arm
Cells(linha, 8) = CBTeclado.Text 'teclado

If OBiworkone = True ThenCells(linha, 10) = "Sim"
Else
Cells(linha, 10) = "Não"
End If

Cells(linha, 28) = desconto ' desconto

'forma de pagamento
If OBdinheiro = True Then...
tracking img