Códigos dos Vídeos de VBA! - Parte 1

Olá pessoal, tudo bem?

Como mencionei no post anterior dedico este post e os próximos aos códigos dos vídeos de VBA!

Obs.: O vídeo 1 não possui nenhum código em VBA

Vídeo 2: Controle de Formulário

Código para as Optionbuttons

Sub Botãodeopção3_Clique()

Dim i As Integer

i = 0
Select Case Range("O2").Value
    Case 1
    Planilha1.ComboBox1.Clear
    Do While Planilha1.Cells(i + 3, 2) <> ""
        Planilha1.ComboBox1.AddItem Planilha1.Cells(i + 3, 2)
        i = i + 1
    Loop
    Case 2
    Planilha1.ComboBox1.Clear
    Do While Planilha1.Cells(i + 3, 3) <> ""
        Planilha1.ComboBox1.AddItem Planilha1.Cells(i + 3, 3)
        i = i + 1
    Loop
    Case 3
    Planilha1.ComboBox1.Clear
    Do While Planilha1.Cells(i + 3, 4) <> ""
        Planilha1.ComboBox1.AddItem Planilha1.Cells(i + 3, 4)
        i = i + 1
    Loop
End Select

Planilha1.ComboBox1.ListIndex = 0

End Sub

Vídeo 3: Criando UserForms no Excel com o VBA

Código do botão "Calcular":

Private Sub CommandButton1_Click()

UserForm1.TextBox1.Value = 1
UserForm1.TextBox2.Value = 1

UserForm1.Show


End Sub

Código do botão "Calcular" dentro do Userform1:

Private Sub CommandButton1_Click()

Planilha1.Range("J6").Value = TextBox1.Value
Planilha1.Range("J7").Value = TextBox2.Value

'Planilha1.Range("J9").Calculate

TextBox3.Value = Planilha1.Range("J9").Value


End Sub

Código do botão "Sair":

Private Sub CommandButton2_Click()

Unload Me


End Sub

Vídeo 4: Usando Combobox nas Userforms desenvolvidas com o VBA para Excel

Código para preencher a Combobox e exibir a Userform:

Private Sub CommandButton1_Click()

Dim i As Integer

i = 1 'Setando o contador para 1

Do While Planilha2.Cells(i + 2, 2) <> ""
    UserForm2.ComboBox1.AddItem Planilha2.Cells(i + 2, 2)
    i = i + 1
Loop

UserForm2.ComboBox1.ListIndex = 0

i = UserForm2.ComboBox1.ListIndex

UserForm2.TextBox1.Value = Planilha2.Cells(i + 3, 4)

UserForm2.TextBox2.Value = Planilha2.Cells(i + 3, 6)

UserForm2.Show


End Sub

Código para alterar o conteúdo das Textbox quando alterar o valor da Combobox:

Private Sub ComboBox1_Change()

Dim i As Integer

i = ComboBox1.ListIndex

UserForm2.TextBox1.Value = Planilha2.Cells(i + 3, 4)

UserForm2.TextBox2.Value = Planilha2.Cells(i + 3, 6)


End Sub

Código do botão "Calcular e Gravar":

Private Sub CommandButton1_Click()

Dim altura, espessura As Single

Dim area, inercia, moduloflexao As Single

altura = TextBox1.Value
espessura = TextBox2.Value

area = altura * espessura

inercia = espessura * altura ^ 3 / 12

moduloflexao = espessura * altura ^ 2 / 6

TextBox3.Value = FormatNumber(area, 2)

TextBox4.Value = FormatNumber(inercia, 2)

TextBox5.Value = FormatNumber(moduloflexao, 2)

Dim i As Integer

i = UserForm2.ComboBox1.ListIndex

If Planilha2.Cells(i + 3, 7) = "" Or Planilha2.Cells(i + 3, 8) = "" _
    Or Planilha2.Cells(i + 3, 9) = "" Then
        Planilha2.Cells(i + 3, 7) = TextBox3.Value 'Área
        Planilha2.Cells(i + 3, 8) = TextBox4.Value 'Momento de Inercia
        Planilha2.Cells(i + 3, 9) = TextBox5.Value 'Módulo de flexão
Else
    Exit Sub
End If


End Sub

Os códigos dos demais vídeos vão ficar para um próximo post! 

Abraços a todos!