Pesquisar na Comunidade

Olá amigos, estou com um probleminha aqui em um código vba, estou desenvolvendo um controle de biblioteca com menu iniciar, para selecionar as ações de cadastro, devolução, emprestimo etc.., tudo funcionando beleza, o problema é que não estou conseguindo gerar um código para ao clicar no botão fechar (x), esse feche o userform (exemplo: cadastro) que está sendo usado e retorne ao menu iniciar. se alguém tiver alguma dica, agradeço desde já. O código que estu usando temporariamente é esse que segue abaixo, mas o que ele faz é salvar o trabalho que foi feito até o momento e fecha o workbook por completo: Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = vbFormControlMenu Then 'SALVAR ARQUIVO ThisWorkbook.Save 'SAIR DO EXCEL Application.Quit End If

Olá pessoal, tudo bem? Estou criando uma planilha para a empresa e queria gerar um relatório simples, porém bonito, usando o UseForm, mas estou iniciando no VBA e já tem um tempo que não mexo com programação. Alguém poderia me ajudar? A dúvida é o seguinte: Irei escolher uma opção de Produto e uma opção de Embalagem. Nisso clico em gerar e gera o texto com a somatória de todas as saídas desse produto. No Excel fiz isso usando o PROCV, mas não sei aplicar no VBA. Irei mandar uma imagem do UseForm e um rascunho do possível código. Já peço desculpas pelos erros de lógica no algoritmo, estou enferrujado. Desde já agradeço com a ajuda.

Olá, sou iniciante no VBA e gostaria de criar um formulário de preenchimento de uma linha para um Fluxo de Caixa Diário, contendo essas informações, o que eu gostaria de de fazer é: Alterar a "Fonte" da ListBox "Item", de acordo com o Option Button selecionado (Entrada e Saída), fazendo com que a ListBox mostrasse a lista de Entradas se o Button de Entradas for selecionado, a mesma coisa c om o ListBox de Saídas. Em uma das imagens há um código que pega as células para aparecer na ListBox (de um dos tutoriais da Hashtag Treinamentos), se possível aproveitá-lo... Se alguém puder me dar uma explicação de como posso fazer ou tiver uma maneira melhor de fazer eu agradeço! Abraços!

Estou com um problema numa macro que desenvolvi para meu serviço, o pessoal costuma usar 2 telas e diversas vezes o Excel está em uma delas porém, os MsgBox e UserForms abrem na outra. Como posso obter a posição na qual o Excel foi aberto e definir a posição de abertura dos MsgBox e UserForms em relação a do EXCEl?

Boa tarde. Sou noob em vba para excel. Gostaria que alguém pudesse me ajudar neste código. Fui criando ele no estilo frankstein. Copiando várias rotinas prontas e adaptando. Se puderem depurar e tentar executar essa userform e me relatar os erros e sugerir as alterações cabíveis ficarei grato. Segue abaixo o código: Private Sub Cbo_Condutor_Change() If Not IsNumeric(Cbo_Condutor.Text) Then Sheets("Dados iniciais").Select Cells(3, 2).Value = Me.Cbo_Condutor.Text Else End If End Sub Private Sub Cbo_Isolador_Tipo_Change() Sheets("Dados iniciais").Select Cells(11, 3).Value = Me.Cbo_Isolador_Tipo.Text Call mostra_peso_cadeia Call mostra_comprimento_cadeia End Sub Private Sub Cbo_Tensao_Change() Dim ld As String If Not IsNumeric(Cbo_Tensao.Text) Then Cbo_Tensao.Text = "" MsgBox ("Entre somente com valores numéricos") Else If Me.Cbo_Tensao.Text = 69 Then Cbo_Tensao.Text = " 69" Sheets("Dados iniciais").Select Cells(10, 3).Value = Me.Cbo_Tensao.Text Call mostra_peso_cadeia Call mostra_comprimento_cadeia Else Sheets("Dados iniciais").Select Cells(10, 3).Value = Me.Cbo_Tensao.Text Call mostra_peso_cadeia Call mostra_comprimento_cadeia ld = Right(txtbox_nome_ld.Text, 2) If Not ld = "kV" Then Else txtbox_nome_ld = Left(txtbox_nome_ld, Len(txtbox_nome_ld) - 8) txtbox_nome_ld = txtbox_nome_ld.Text txtbox_nome_ld = txtbox_nome_ld.Text & ", " & Cbo_Tensao.Text & " kV" End If End If End If End Sub Private Sub CommandButton_editar_bd_Click() Dim pass As String pass = InputBox("Entre com a senha do administrador") If pass = "123" Then Unload UserForm1 Else MsgBox ("senha errada, tente novamente") End If ' End Sub Private Sub CommandButton1_Click() Dim i As Integer Dim j As Double j = 1E-40 'On Error GoTo errorhandler 'Vai para a aba Dados iniciais Sheets("Dados iniciais").Select If (txtbox_qtd_vaos_re.Text > 0) And (txtbox_qtd_vaos_vante.Text = 0) Then 'Reseta os valores Cells(93, 2) = Cells(92, 2).Value - j 'Roda a rotina meta9999 Range("B99").GoalSeek Goal:=Range("B98").Value, ChangingCell:=Range("B93") While (Cells(93, 2) < 0) Or (Cells(93, 2) > Cells(92, 2)) Cells(93, 2) = Cells(92, 2).Value - j Range("B99").GoalSeek Goal:=Range("B98").Value, ChangingCell:=Range("B93") j = j * 10 Wend Else If (txtbox_qtd_vaos_re.Text = 0) And (txtbox_qtd_vaos_vante.Text > 0) Then 'Reseta os valores Cells(94, 2) = Cells(92, 2).Value - j 'Roda a rotina meta9999 Range("B100").GoalSeek Goal:=Range("B98").Value, ChangingCell:=Range("B94") While (Cells(94, 2) < 0) Or (Cells(94, 2) > Cells(92, 2)) Cells(94, 2) = Cells(92, 2).Value - j Range("B100").GoalSeek Goal:=Range("B98").Value, ChangingCell:=Range("B94") j = j * 10 Wend Else If (txtbox_qtd_vaos_re.Text > 0) And (txtbox_qtd_vaos_vante.Text > 0) Then 'Reseta os valores Cells(93, 2) = Cells(92, 2).Value - j 'Roda a rotina meta9999 Range("B99").GoalSeek Goal:=Range("B98").Value, ChangingCell:=Range("B93") While Cells(93, 2) < 0 Or Cells(93, 2) > Cells(92, 2) Cells(93, 2) = Cells(92, 2).Value - j Range("B99").GoalSeek Goal:=Range("B98").Value, ChangingCell:=Range("B93") j = j * 10 Wend j = 1E-40 Cells(94, 2) = Cells(92, 2).Value - j Range("B100").GoalSeek Goal:=Range("B98").Value, ChangingCell:=Range("B94") While Cells(94, 2) < 0 Or Cells(94, 2) > Cells(92, 2) Cells(94, 2) = Cells(92, 2).Value - j Range("B100").GoalSeek Goal:=Range("B98").Value, ChangingCell:=Range("B94") j = j * 10 Wend End If End If End If Sheets("Dados iniciais").Select txtbox_constante_catenaria_pos_rompimento.Text = Cells(102, 2).Text txtbox_constante_catenaria_pos_rompimento.Text = Format(txtbox_constante_catenaria_pos_rompimento, "#,##0.00") Sheets("Dados iniciais").Select txtbox_tracao_pos_rompimento.Text = Cells(101, 2).Text txtbox_tracao_pos_rompimento.Text = Format(txtbox_tracao_pos_rompimento, "#,##0.00") 'Exit Sub 'errorhandler: MsgBox ("Falta dado") End Sub Private Sub TextBox38_Change() If Not IsNumeric(txtbox_vao_7_re.Text) Then txtbox_vao_7_re.Text = "" Sheets("Dados iniciais").Select Cells(15, 3).Value = Me.txtbox_vao_7_re.Text End Sub Private Sub TextBox60_Change() Sheets("Dados iniciais").Select Me.txtbox_tracao_antes_rompimento.Text = Cells(92, 2).Value End Sub Private Sub TextBox64_Change() End Sub Private Sub TextBox9_Change() End Sub Private Sub txtbox_comprimento_cadeia_Change() Sheets("Isoladores").Select Cells(8, 4).Value = Me.txtbox_comprimento_cadeia.Text Sheets("Dados iniciais").Select End Sub Private Sub txtbox_estrutura_1_re_Change() If Not IsNumeric(txtbox_estrutura_1_re.Text) Then If txtbox_estrutura_1_re = "" Then txtbox_estrutura_1_re = "" Sheets("Dados iniciais").Select Cells(41, 3).Value = Me.txtbox_estrutura_1_re.Text Else txtbox_estrutura_1_re = "" MsgBox ("Entre somente com valores numéricos") End If Else Sheets("Dados iniciais").Select Cells(41, 3).Value = Me.txtbox_estrutura_1_re.Text End If End Sub Private Sub txtbox_estrutura_1_vante_Change() If Not IsNumeric(txtbox_estrutura_1_vante.Text) Then If txtbox_estrutura_1_vante = "" Then txtbox_estrutura_1_vante = "" Sheets("Dados iniciais").Select Cells(43, 3).Value = Me.txtbox_estrutura_1_vante.Text Else txtbox_estrutura_1_vante = "" MsgBox ("Entre somente com valores numéricos") End If Else Sheets("Dados iniciais").Select Cells(43, 3).Value = Me.txtbox_estrutura_1_vante.Text End If End Sub Private Sub txtbox_estrutura_3_vante_Change() If Not IsNumeric(txtbox_estrutura_3_vante.Text) Then If txtbox_estrutura_3_vante = "" Then txtbox_estrutura_3_vante = "" Sheets("Dados iniciais").Select Cells(45, 3).Value = Me.txtbox_estrutura_3_vante.Text Else txtbox_estrutura_3_vante = "" MsgBox ("Entre somente com valores numéricos") End If Else Sheets("Dados iniciais").Select Cells(45, 3).Value = Me.txtbox_estrutura_3_vante.Text End If End Sub Private Sub txtbox_nome_ld_Change() Dim s As String Dim t As String If IsNumeric(txtbox_nome_ld.Text) Then txtbox_nome_ld.Text = "" End Sub Private Sub txtbox_peso_cadeia_Change() Sheets("Isoladores").Select Cells(9, 4).Value = Me.txtbox_peso_cadeia.Text Sheets("Dados iniciais").Select End Sub Private Sub txtbox_qtd_vaos_re_Change() Dim s As String s = txtbox_qtd_vaos_re.Text If IsNumeric(txtbox_qtd_vaos_re.Text) Then If (s > 7) Or (s < 0) Then txtbox_qtd_vaos_re.Text = "" MsgBox ("Entre somente com valores reais para até 7 vãos") End If Else If txtbox_qtd_vaos_re = "" Then txtbox_qtd_vaos_re = "" Else If txtbox_qtd_vaos_re = "-" Then txtbox_qtd_vaos_re = "" MsgBox ("Entre somente com valores positivos") Else txtbox_qtd_vaos_re = "" MsgBox ("Entre somente com valores numéricos") End If End If End If End Sub Private Sub txtbox_qtd_vaos_re_AfterUpdate() Call mostra_celulas_re Call mostra_vaos_re End Sub Private Sub txtbox_qtd_vaos_vante_Change() Dim s As String s = txtbox_qtd_vaos_vante.Text If IsNumeric(txtbox_qtd_vaos_vante.Text) Then If (s > 7) Or (s < 0) Then txtbox_qtd_vaos_vante.Text = "" MsgBox ("Entre somente com valores reais para até 7 vãos") End If Else If txtbox_qtd_vaos_vante = "" Then Else If txtbox_qtd_vaos_vante = "-" Then txtbox_qtd_vaos_vante = "" MsgBox ("Entre somente com valores positivos") Else txtbox_qtd_vaos_vante = "" MsgBox ("Entre somente com valores numéricos") End If End If End If End Sub Private Sub txtbox_qtd_vaos_vante_AfterUpdate() Call mostra_celulas_vante Call mostra_vaos_vante End Sub Private Sub txtbox_temperatura_operacao_Change() txtbox_informa_temperatura.Text = txtbox_temperatura_operacao.Text End Sub Private Sub txtbox_tracao_antes_rompimento_Change() If Not IsNumeric(txtbox_tracao_antes_rompimento.Text) Then txtbox_tracao_antes_rompimento.Text = "" Sheets("Dados iniciais").Select Cells(92, 2).Value = Me.txtbox_tracao_antes_rompimento.Text End Sub Private Sub txtbox_vao_1_re_Change() If Not IsNumeric(txtbox_vao_1_re.Text) Then If txtbox_vao_1_re = "" Then txtbox_vao_1_re = "" Sheets("Dados iniciais").Select Cells(21, 3).Value = 0 Else txtbox_vao_1_re = "" MsgBox ("Entre somente com valores numéricos") End If Else Sheets("Dados iniciais").Select Cells(21, 3).Value = Me.txtbox_vao_1_re.Text End If End Sub Private Sub txtbox_vao_1_vante_Change() If Not IsNumeric(txtbox_vao_1_vante.Text) Then If txtbox_vao_1_vante = "" Then txtbox_vao_1_vante = "" Sheets("Dados iniciais").Select Cells(23, 3).Value = 0 Else txtbox_vao_1_vante = "" MsgBox ("Entre somente com valores numéricos") End If Else Sheets("Dados iniciais").Select Cells(23, 3).Value = Me.txtbox_vao_1_vante.Text End If End Sub Private Sub txtbox_vao_2_re_Change() If Not IsNumeric(txtbox_vao_2_re.Text) Then If txtbox_vao_2_re = "" Then txtbox_vao_2_re = "" Sheets("Dados iniciais").Select Cells(20, 3).Value = 0 Else txtbox_vao_2_re = "" MsgBox ("Entre somente com valores numéricos") End If Else Sheets("Dados iniciais").Select Cells(20, 3).Value = Me.txtbox_vao_2_re.Text End If End Sub Private Sub txtbox_vao_2_vante_Change() If Not IsNumeric(txtbox_vao_2_vante.Text) Then If txtbox_vao_2_vante = "" Then txtbox_vao_2_vante = "" Sheets("Dados iniciais").Select Cells(24, 3).Value = 0 Else txtbox_vao_2_vante = "" MsgBox ("Entre somente com valores numéricos") End If Else Sheets("Dados iniciais").Select Cells(24, 3).Value = Me.txtbox_vao_2_vante.Text End If End Sub Private Sub txtbox_vao_3_re_Change() If Not IsNumeric(txtbox_vao_3_re.Text) Then If txtbox_vao_3_re = "" Then txtbox_vao_3_re = "" Sheets("Dados iniciais").Select Cells(19, 3).Value = 0 Else txtbox_vao_3_re = "" MsgBox ("Entre somente com valores numéricos") End If Else Sheets("Dados iniciais").Select Cells(19, 3).Value = Me.txtbox_vao_3_re.Text End If End Sub Private Sub txtbox_vao_3_vante_Change() If Not IsNumeric(txtbox_vao_3_vante.Text) Then If txtbox_vao_3_vante = "" Then txtbox_vao_3_vante = "" Sheets("Dados iniciais").Select Cells(25, 3).Value = 0 Else txtbox_vao_3_vante = "" MsgBox ("Entre somente com valores numéricos") End If Else Sheets("Dados iniciais").Select Cells(25, 3).Value = Me.txtbox_vao_3_vante.Text End If End Sub Private Sub txtbox_vao_4_re_Change() If Not IsNumeric(txtbox_vao_4_re.Text) Then If txtbox_vao_4_re = "" Then txtbox_vao_4_re = "" Sheets("Dados iniciais").Select Cells(18, 3).Value = 0 Else txtbox_vao_4_re = "" MsgBox ("Entre somente com valores numéricos") End If Else Sheets("Dados iniciais").Select Cells(18, 3).Value = Me.txtbox_vao_4_re.Text End If End Sub Private Sub txtbox_vao_4_vante_Change() If Not IsNumeric(txtbox_vao_4_vante.Text) Then If txtbox_vao_4_vante = "" Then txtbox_vao_4_vante = "" Sheets("Dados iniciais").Select Cells(26, 3).Value = 0 Else txtbox_vao_4_vante = "" MsgBox ("Entre somente com valores numéricos") End If Else Sheets("Dados iniciais").Select Cells(26, 3).Value = Me.txtbox_vao_4_vante.Text End If End Sub Private Sub txtbox_vao_5_re_Change() If Not IsNumeric(txtbox_vao_5_re.Text) Then If txtbox_vao_5_re = "" Then txtbox_vao_5_re = "" Sheets("Dados iniciais").Select Cells(17, 3).Value = 0 Else txtbox_vao_5_re = "" MsgBox ("Entre somente com valores numéricos") End If Else Sheets("Dados iniciais").Select Cells(17, 3).Value = Me.txtbox_vao_5_re.Text End If End Sub Private Sub txtbox_vao_5_vante_Change() If Not IsNumeric(txtbox_vao_5_vante.Text) Then If txtbox_vao_5_vante = "" Then txtbox_vao_5_vante = "" Sheets("Dados iniciais").Select Cells(27, 3).Value = 0 Else txtbox_vao_5_vante = "" MsgBox ("Entre somente com valores numéricos") End If Else Sheets("Dados iniciais").Select Cells(27, 3).Value = Me.txtbox_vao_5_vante.Text End If End Sub Private Sub txtbox_vao_6_re_Change() If Not IsNumeric(txtbox_vao_6_re.Text) Then If txtbox_vao_6_re = "" Then txtbox_vao_6_re = "" Sheets("Dados iniciais").Select Cells(16, 3).Value = 0 Else txtbox_vao_6_re = "" MsgBox ("Entre somente com valores numéricos") End If Else Sheets("Dados iniciais").Select Cells(16, 3).Value = Me.txtbox_vao_6_re.Text End If End Sub Private Sub txtbox_vao_6_vante_Change() If Not IsNumeric(txtbox_vao_6_vante.Text) Then If txtbox_vao_6_vante = "" Then txtbox_vao_6_vante = "" Sheets("Dados iniciais").Select Cells(28, 3).Value = 0 Else txtbox_vao_6_vante = "" MsgBox ("Entre somente com valores numéricos") End If Else Sheets("Dados iniciais").Select Cells(28, 3).Value = Me.txtbox_vao_6_vante.Text End If End Sub Private Sub txtbox_vao_7_re_Change() If Not IsNumeric(txtbox_vao_7_re.Text) Then If txtbox_vao_7_re = "" Then txtbox_vao_7_re = "" Sheets("Dados iniciais").Select Cells(15, 3).Value = 0 Else txtbox_vao_7_re = "" MsgBox ("Entre somente com valores numéricos") End If Else Sheets("Dados iniciais").Select Cells(15, 3).Value = Me.txtbox_vao_7_re.Text End If End Sub Private Sub txtbox_vao_7_vante_Change() If Not IsNumeric(txtbox_vao_7_vante.Text) Then If txtbox_vao_7_vante = "" Then txtbox_vao_7_vante = "" Sheets("Dados iniciais").Select Cells(29, 3).Value = 0 Else txtbox_vao_7_vante = "" MsgBox ("Entre somente com valores numéricos") End If Else Sheets("Dados iniciais").Select Cells(29, 3).Value = Me.txtbox_vao_7_vante.Text End If End Sub Private Sub txtbox_vao_analise_Change() txtbox_vao_1_re.Text = txtbox_vao_analise.Text txtbox_vao_1_vante.Text = txtbox_vao_analise.Text End Sub Private Sub UserForm1_Initialize() Dim rng As Range Dim ws As Worksheet Dim i As Integer Call maximiza_tela Cbo_Tensao.Clear 'limpa o combo box alvo Set ws = Worksheets("Isoladores") 'planilha que está os dados 'loop pelos itens da lista que voce criou For Each rng In ws.Range("Tensao_kV") Me.Cbo_Tensao.AddItem rng.Value Next rng Cbo_Isolador_Tipo.Clear 'limpa o combo box alvo Set ws = Worksheets("Isoladores") 'planilha que está os dados 'loop pelos itens da lista que voce criou For Each rng In ws.Range("isoladores_tipo") Me.Cbo_Isolador_Tipo.AddItem rng.Value Next rng Cbo_Condutor.Clear 'limpa o combo box alvo Set ws = Worksheets("Condutor") 'planilha que está os dados 'loop pelos itens da lista que voce criou For Each rng In ws.Range("Condutores") Me.Cbo_Condutor.AddItem rng.Value Next rng Call oculta_dados_vaos_rompidos Call trava_txt_box Call zera_celulas End Sub Sub mostra_peso_cadeia() If (Cbo_Tensao.Value = " 69") And (Cbo_Isolador_Tipo.Value = "Vidro") Then txtbox_peso_cadeia.Text = "23,05" Else If (Cbo_Tensao.Value = " 69") And (Cbo_Isolador_Tipo.Value = "Porcelana") Then txtbox_peso_cadeia.Text = "23,05" Else If (Cbo_Tensao.Value = " 69") And (Cbo_Isolador_Tipo.Value = "Polimérico") Then txtbox_peso_cadeia.Text = "5,00" Else If (Cbo_Tensao.Value = "138") And (Cbo_Isolador_Tipo.Value = "Vidro") Then txtbox_peso_cadeia.Text = "39,05" Else If (Cbo_Tensao.Value = "138") And (Cbo_Isolador_Tipo.Value = "Porcelana") Then txtbox_peso_cadeia.Text = "39,05" Else If (Cbo_Tensao.Value = "138") And (Cbo_Isolador_Tipo.Value = "Polimérico") Then txtbox_peso_cadeia.Text = "5,00" Else txtbox_peso_cadeia.Text = "" End If End If End If End If End If End If End Sub Sub mostra_comprimento_cadeia() If (Cbo_Tensao.Value = " 69") And (Cbo_Isolador_Tipo.Value = "Vidro") Then txtbox_comprimento_cadeia.Text = "1,07" Else If (Cbo_Tensao.Value = " 69") And (Cbo_Isolador_Tipo.Value = "Porcelana") Then txtbox_comprimento_cadeia.Text = "1,07" Else If (Cbo_Tensao.Value = " 69") And (Cbo_Isolador_Tipo.Value = "Polimérico") Then txtbox_comprimento_cadeia.Text = "1,07" Else If (Cbo_Tensao.Value = "138") And (Cbo_Isolador_Tipo.Value = "Vidro") Then txtbox_comprimento_cadeia.Text = "1,65" Else If (Cbo_Tensao.Value = "138") And (Cbo_Isolador_Tipo.Value = "Porcelana") Then txtbox_comprimento_cadeia.Text = "1,65" Else If (Cbo_Tensao.Value = "138") And (Cbo_Isolador_Tipo.Value = "Polimérico") Then txtbox_comprimento_cadeia.Text = "1,65" Else txtbox_comprimento_cadeia.Text = "" End If End If End If End If End If End If End Sub Sub zera_celulas() Dim i As Integer Dim j As Integer Sheets("Dados iniciais").Select i = 15 j = 1 Do While j <= 15 Cells(i, 3).Value = 0 i = i + 1 j = j + 1 Loop i = 35 j = 1 Do While j <= 15 Cells(i, 3).Value = 0 i = i + 1 j = j + 1 Loop Cells(92, 2).Value = 0 End Sub Sub zera_celulas_re() Dim i As Integer Dim j As Integer Sheets("Dados iniciais").Select i = 15 j = 1 Do While j <= 7 Cells(i, 3).Value = 0 i = i + 1 j = j + 1 Loop i = 35 j = 1 Do While j <= 7 Cells(i, 3).Value = 0 i = i + 1 j = j + 1 Loop End Sub Sub zera_celulas_vante() Dim i As Integer Dim j As Integer Sheets("Dados iniciais").Select i = 29 j = 1 Do While j <= 7 Cells(i, 3).Value = 0 i = i - 1 j = j + 1 Loop i = 49 j = 1 Do While j <= 7 Cells(i, 3).Value = 0 i = i - 1 j = j + 1 Loop End Sub Private Sub txtbox_estrutura_2_re_Change() If Not IsNumeric(txtbox_estrutura_2_re.Text) Then If txtbox_estrutura_2_re = "" Then txtbox_estrutura_2_re = "" Sheets("Dados iniciais").Select Cells(40, 3).Value = Me.txtbox_estrutura_2_re.Text Else txtbox_estrutura_2_re = "" MsgBox ("Entre somente com valores numéricos") End If Else Sheets("Dados iniciais").Select Cells(40, 3).Value = Me.txtbox_estrutura_2_re.Text End If End Sub Private Sub txtbox_estrutura_2_vante_Change() If Not IsNumeric(txtbox_estrutura_2_vante.Text) Then If txtbox_estrutura_2_vante = "" Then txtbox_estrutura_2_vante = "" Sheets("Dados iniciais").Select Cells(44, 3).Value = Me.txtbox_estrutura_2_vante.Text Else txtbox_estrutura_2_vante = "" MsgBox ("Entre somente com valores numéricos") End If Else Sheets("Dados iniciais").Select Cells(44, 3).Value = Me.txtbox_estrutura_2_vante.Text End If End Sub Private Sub txtbox_estrutura_3_re_Change() If Not IsNumeric(txtbox_estrutura_3_re.Text) Then If txtbox_estrutura_3_re = "" Then txtbox_estrutura_3_re = "" Sheets("Dados iniciais").Select Cells(39, 3).Value = Me.txtbox_estrutura_3_re.Text Else txtbox_estrutura_3_re = "" MsgBox ("Entre somente com valores numéricos") End If Else Sheets("Dados iniciais").Select Cells(39, 3).Value = Me.txtbox_estrutura_3_re.Text End If End Sub Private Sub txtbox_estrutura_4_re_Change() If Not IsNumeric(txtbox_estrutura_4_re.Text) Then If txtbox_estrutura_4_re = "" Then txtbox_estrutura_4_re = "" Sheets("Dados iniciais").Select Cells(38, 3).Value = Me.txtbox_estrutura_4_re.Text Else txtbox_estrutura_4_re = "" MsgBox ("Entre somente com valores numéricos") End If Else Sheets("Dados iniciais").Select Cells(38, 3).Value = Me.txtbox_estrutura_4_re.Text End If End Sub Private Sub txtbox_estrutura_4_vante_Change() If Not IsNumeric(txtbox_estrutura_4_vante.Text) Then If txtbox_estrutura_4_vante = "" Then txtbox_estrutura_4_vante = "" Sheets("Dados iniciais").Select Cells(46, 3).Value = Me.txtbox_estrutura_4_vante.Text Else txtbox_estrutura_4_vante = "" MsgBox ("Entre somente com valores numéricos") End If Else Sheets("Dados iniciais").Select Cells(46, 3).Value = Me.txtbox_estrutura_4_vante.Text End If End Sub Private Sub txtbox_estrutura_5_re_Change() If Not IsNumeric(txtbox_estrutura_5_re.Text) Then If txtbox_estrutura_5_re = "" Then txtbox_estrutura_5_re = "" Sheets("Dados iniciais").Select Cells(37, 3).Value = Me.txtbox_estrutura_5_re.Text Else txtbox_estrutura_5_re = "" MsgBox ("Entre somente com valores numéricos") End If Else Sheets("Dados iniciais").Select Cells(37, 3).Value = Me.txtbox_estrutura_5_re.Text End If End Sub Private Sub txtbox_estrutura_5_vante_Change() If Not IsNumeric(txtbox_estrutura_5_vante.Text) Then If txtbox_estrutura_5_vante = "" Then txtbox_estrutura_5_vante = "" Sheets("Dados iniciais").Select Cells(47, 3).Value = Me.txtbox_estrutura_5_vante.Text Else txtbox_estrutura_5_vante = "" MsgBox ("Entre somente com valores numéricos") End If Else Sheets("Dados iniciais").Select Cells(47, 3).Value = Me.txtbox_estrutura_5_vante.Text End If End Sub Private Sub txtbox_estrutura_6_re_Change() If Not IsNumeric(txtbox_estrutura_6_re.Text) Then If txtbox_estrutura_6_re = "" Then txtbox_estrutura_6_re = "" Sheets("Dados iniciais").Select Cells(36, 3).Value = Me.txtbox_estrutura_6_re.Text Else txtbox_estrutura_6_re = "" MsgBox ("Entre somente com valores numéricos") End If Else Sheets("Dados iniciais").Select Cells(36, 3).Value = Me.txtbox_estrutura_6_re.Text End If End Sub Private Sub txtbox_estrutura_6_vante_Change() If Not IsNumeric(txtbox_estrutura_6_vante.Text) Then If txtbox_estrutura_6_vante = "" Then txtbox_estrutura_6_vante = "" Sheets("Dados iniciais").Select Cells(48, 3).Value = Me.txtbox_estrutura_6_vante.Text Else txtbox_estrutura_6_vante = "" MsgBox ("Entre somente com valores numéricos") End If Else Sheets("Dados iniciais").Select Cells(48, 3).Value = Me.txtbox_estrutura_6_vante.Text End If End Sub Private Sub txtbox_estrutura_7_re_Change() If Not IsNumeric(txtbox_estrutura_7_re.Text) Then If txtbox_estrutura_7_re = "" Then txtbox_estrutura_7_re = "" Sheets("Dados iniciais").Select Cells(35, 3).Value = Me.txtbox_estrutura_7_re.Text Else txtbox_estrutura_7_re = "" MsgBox ("Entre somente com valores numéricos") End If Else Sheets("Dados iniciais").Select Cells(35, 3).Value = Me.txtbox_estrutura_7_re.Text End If End Sub Private Sub txtbox_estrutura_7_vante_Change() If Not IsNumeric(txtbox_estrutura_7_vante.Text) Then If txtbox_estrutura_7_vante = "" Then txtbox_estrutura_7_vante = "" Sheets("Dados iniciais").Select Cells(49, 3).Value = Me.txtbox_estrutura_7_vante.Text Else txtbox_estrutura_7_vante = "" MsgBox ("Entre somente com valores numéricos") End If Else Sheets("Dados iniciais").Select Cells(49, 3).Value = Me.txtbox_estrutura_7_vante.Text End If End Sub Private Sub txtbox_nome_ld_AfterUpdate() Dim s As String Dim ld As String ld = Left(txtbox_nome_ld.Text, 3) If ld = "LD " Then Else s = "LD " txtbox_nome_ld.Text = s & txtbox_nome_ld.Text End If ld = Right(txtbox_nome_ld.Text, 2) If ld = "kV" Then Else If Cbo_Tensao.Text = "" Then Else txtbox_nome_ld = txtbox_nome_ld.Text & ", " & Cbo_Tensao.Text & " kV" End If End If End Sub Private Sub UserForm1_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = vbFormControlMenu Then Cancel = True Call CMD_Cancel_Click End If End Sub Private Sub CMD_Cancel_Click() If MsgBox(prompt:=" Você deseja realmente sair?", Buttons:=vbOKCancel) = vbOK Then ActiveWorkbook.Save Application.Quit End If End Sub Sub mostra_vaos_re() Dim vaos_re As String Call oculta_dados_vaos_rompidos_re vaos_re = txtbox_qtd_vaos_re.Text If vaos_re = "" Then Else If vaos_re = 0 Then Else If vaos_re = 1 Then txtbox_vao_1_re.Visible = True txtbox_estrutura_1_re.Visible = True lab_vao_1re.Visible = True lab_estrutura_1re.Visible = True Else If vaos_re = 2 Then txtbox_vao_1_re.Visible = True txtbox_vao_2_re.Visible = True txtbox_estrutura_1_re.Visible = True txtbox_estrutura_2_re.Visible = True lab_vao_1re.Visible = True lab_vao_2re.Visible = True lab_estrutura_1re.Visible = True lab_estrutura_2re.Visible = True Else If vaos_re = 3 Then txtbox_vao_1_re.Visible = True txtbox_vao_2_re.Visible = True txtbox_vao_3_re.Visible = True txtbox_estrutura_1_re.Visible = True txtbox_estrutura_2_re.Visible = True txtbox_estrutura_3_re.Visible = True lab_vao_1re.Visible = True lab_vao_2re.Visible = True lab_vao_3re.Visible = True lab_estrutura_1re.Visible = True lab_estrutura_2re.Visible = True lab_estrutura_3re.Visible = True Else If vaos_re = 4 Then txtbox_vao_1_re.Visible = True txtbox_vao_2_re.Visible = True txtbox_vao_3_re.Visible = True txtbox_vao_4_re.Visible = True txtbox_estrutura_1_re.Visible = True txtbox_estrutura_2_re.Visible = True txtbox_estrutura_3_re.Visible = True txtbox_estrutura_4_re.Visible = True lab_vao_1re.Visible = True lab_vao_2re.Visible = True lab_vao_3re.Visible = True lab_vao_4re.Visible = True lab_estrutura_1re.Visible = True lab_estrutura_2re.Visible = True lab_estrutura_3re.Visible = True lab_estrutura_4re.Visible = True Else If vaos_re = 5 Then txtbox_vao_1_re.Visible = True txtbox_vao_2_re.Visible = True txtbox_vao_3_re.Visible = True txtbox_vao_4_re.Visible = True txtbox_vao_5_re.Visible = True txtbox_estrutura_1_re.Visible = True txtbox_estrutura_2_re.Visible = True txtbox_estrutura_3_re.Visible = True txtbox_estrutura_4_re.Visible = True txtbox_estrutura_5_re.Visible = True lab_vao_1re.Visible = True lab_vao_2re.Visible = True lab_vao_3re.Visible = True lab_vao_4re.Visible = True lab_vao_5re.Visible = True lab_estrutura_1re.Visible = True lab_estrutura_2re.Visible = True lab_estrutura_3re.Visible = True lab_estrutura_4re.Visible = True lab_estrutura_5re.Visible = True Else If vaos_re = 6 Then txtbox_vao_1_re.Visible = True txtbox_vao_2_re.Visible = True txtbox_vao_3_re.Visible = True txtbox_vao_4_re.Visible = True txtbox_vao_5_re.Visible = True txtbox_vao_6_re.Visible = True txtbox_estrutura_1_re.Visible = True txtbox_estrutura_2_re.Visible = True txtbox_estrutura_3_re.Visible = True txtbox_estrutura_4_re.Visible = True txtbox_estrutura_5_re.Visible = True txtbox_estrutura_6_re.Visible = True lab_vao_1re.Visible = True lab_vao_2re.Visible = True lab_vao_3re.Visible = True lab_vao_4re.Visible = True lab_vao_5re.Visible = True lab_vao_6re.Visible = True lab_estrutura_1re.Visible = True lab_estrutura_2re.Visible = True lab_estrutura_3re.Visible = True lab_estrutura_4re.Visible = True lab_estrutura_5re.Visible = True lab_estrutura_6re.Visible = True Else If vaos_re = 7 Then txtbox_vao_1_re.Visible = True txtbox_vao_2_re.Visible = True txtbox_vao_3_re.Visible = True txtbox_vao_4_re.Visible = True txtbox_vao_5_re.Visible = True txtbox_vao_6_re.Visible = True txtbox_vao_7_re.Visible = True txtbox_estrutura_1_re.Visible = True txtbox_estrutura_2_re.Visible = True txtbox_estrutura_3_re.Visible = True txtbox_estrutura_4_re.Visible = True txtbox_estrutura_5_re.Visible = True txtbox_estrutura_6_re.Visible = True txtbox_estrutura_7_re.Visible = True lab_vao_1re.Visible = True lab_vao_2re.Visible = True lab_vao_3re.Visible = True lab_vao_4re.Visible = True lab_vao_5re.Visible = True lab_vao_6re.Visible = True lab_vao_7re.Visible = True lab_estrutura_1re.Visible = True lab_estrutura_2re.Visible = True lab_estrutura_3re.Visible = True lab_estrutura_4re.Visible = True lab_estrutura_5re.Visible = True lab_estrutura_6re.Visible = True lab_estrutura_7re.Visible = True End If End If End If End If End If End If End If End If End If End Sub Sub mostra_vaos_vante() Dim vaos_vante As String Call oculta_dados_vaos_rompidos_vante vaos_vante = txtbox_qtd_vaos_vante.Text If vaos_vante = "" Then Else If vaos_vante = 0 Then Else If vaos_vante = 1 Then txtbox_vao_1_vante.Visible = True txtbox_estrutura_1_vante.Visible = True lab_vao_1vante.Visible = True lab_estrutura_1vante.Visible = True Else If vaos_vante = 2 Then txtbox_vao_1_vante.Visible = True txtbox_vao_2_vante.Visible = True txtbox_estrutura_1_vante.Visible = True txtbox_estrutura_2_vante.Visible = True lab_vao_1vante.Visible = True lab_vao_2vante.Visible = True lab_estrutura_1vante.Visible = True lab_estrutura_2vante.Visible = True Else If vaos_vante = 3 Then txtbox_vao_1_vante.Visible = True txtbox_vao_2_vante.Visible = True txtbox_vao_3_vante.Visible = True txtbox_estrutura_1_vante.Visible = True txtbox_estrutura_2_vante.Visible = True txtbox_estrutura_3_vante.Visible = True lab_vao_1vante.Visible = True lab_vao_2vante.Visible = True lab_vao_3vante.Visible = True lab_estrutura_1vante.Visible = True lab_estrutura_2vante.Visible = True lab_estrutura_3vante.Visible = True Else If vaos_vante = 4 Then txtbox_vao_1_vante.Visible = True txtbox_vao_2_vante.Visible = True txtbox_vao_3_vante.Visible = True txtbox_vao_4_vante.Visible = True txtbox_estrutura_1_vante.Visible = True txtbox_estrutura_2_vante.Visible = True txtbox_estrutura_3_vante.Visible = True txtbox_estrutura_4_vante.Visible = True lab_vao_1vante.Visible = True lab_vao_2vante.Visible = True lab_vao_3vante.Visible = True lab_vao_4vante.Visible = True lab_estrutura_1vante.Visible = True lab_estrutura_2vante.Visible = True lab_estrutura_3vante.Visible = True lab_estrutura_4vante.Visible = True Else If vaos_vante = 5 Then txtbox_vao_1_vante.Visible = True txtbox_vao_2_vante.Visible = True txtbox_vao_3_vante.Visible = True txtbox_vao_4_vante.Visible = True txtbox_vao_5_vante.Visible = True txtbox_estrutura_1_vante.Visible = True txtbox_estrutura_2_vante.Visible = True txtbox_estrutura_3_vante.Visible = True txtbox_estrutura_4_vante.Visible = True txtbox_estrutura_5_vante.Visible = True lab_vao_1vante.Visible = True lab_vao_2vante.Visible = True lab_vao_3vante.Visible = True lab_vao_4vante.Visible = True lab_vao_5vante.Visible = True lab_estrutura_1vante.Visible = True lab_estrutura_2vante.Visible = True lab_estrutura_3vante.Visible = True lab_estrutura_4vante.Visible = True lab_estrutura_5vante.Visible = True Else If vaos_vante = 6 Then txtbox_vao_1_vante.Visible = True txtbox_vao_2_vante.Visible = True txtbox_vao_3_vante.Visible = True txtbox_vao_4_vante.Visible = True txtbox_vao_5_vante.Visible = True txtbox_vao_6_vante.Visible = True txtbox_estrutura_1_vante.Visible = True txtbox_estrutura_2_vante.Visible = True txtbox_estrutura_3_vante.Visible = True txtbox_estrutura_4_vante.Visible = True txtbox_estrutura_5_vante.Visible = True txtbox_estrutura_6_vante.Visible = True lab_vao_1vante.Visible = True lab_vao_2vante.Visible = True lab_vao_3vante.Visible = True lab_vao_4vante.Visible = True lab_vao_5vante.Visible = True lab_vao_6vante.Visible = True lab_estrutura_1vante.Visible = True lab_estrutura_2vante.Visible = True lab_estrutura_3vante.Visible = True lab_estrutura_4vante.Visible = True lab_estrutura_5vante.Visible = True lab_estrutura_6vante.Visible = True Else If vaos_vante = 7 Then txtbox_vao_1_vante.Visible = True txtbox_vao_2_vante.Visible = True txtbox_vao_3_vante.Visible = True txtbox_vao_4_vante.Visible = True txtbox_vao_5_vante.Visible = True txtbox_vao_6_vante.Visible = True txtbox_vao_7_vante.Visible = True txtbox_estrutura_1_vante.Visible = True txtbox_estrutura_2_vante.Visible = True txtbox_estrutura_3_vante.Visible = True txtbox_estrutura_4_vante.Visible = True txtbox_estrutura_5_vante.Visible = True txtbox_estrutura_6_vante.Visible = True txtbox_estrutura_7_vante.Visible = True lab_vao_1vante.Visible = True lab_vao_2vante.Visible = True lab_vao_3vante.Visible = True lab_vao_4vante.Visible = True lab_vao_5vante.Visible = True lab_vao_6vante.Visible = True lab_vao_7vante.Visible = True lab_estrutura_1vante.Visible = True lab_estrutura_2vante.Visible = True lab_estrutura_3vante.Visible = True lab_estrutura_4vante.Visible = True lab_estrutura_5vante.Visible = True lab_estrutura_6vante.Visible = True lab_estrutura_7vante.Visible = True End If End If End If End If End If End If End If End If End If End Sub Sub zera_celulas_1re() Dim i As Integer Dim j As Integer Sheets("Dados iniciais").Select i = 15 j = 7 Do While j <= 7 Cells(i, 3).Value = 0 i = i + 1 j = j + 1 Loop i = 35 j = 7 Do While j <= 7 Cells(i, 3).Value = 0 i = i + 1 j = j + 1 Loop End Sub Sub zera_celulas_2re() Dim i As Integer Dim j As Integer Sheets("Dados iniciais").Select i = 15 j = 6 Do While j <= 7 Cells(i, 3).Value = 0 i = i + 1 j = j + 1 Loop i = 35 j = 6 Do While j <= 7 Cells(i, 3).Value = 0 i = i + 1 j = j + 1 Loop End Sub Sub zera_celulas_3re() Dim i As Integer Dim j As Integer Sheets("Dados iniciais").Select i = 15 j = 5 Do While j <= 7 Cells(i, 3).Value = 0 i = i + 1 j = j + 1 Loop i = 35 j = 5 Do While j <= 7 Cells(i, 3).Value = 0 i = i + 1 j = j + 1 Loop End Sub Sub zera_celulas_4re() Dim i As Integer Dim j As Integer Sheets("Dados iniciais").Select i = 15 j = 4 Do While j <= 7 Cells(i, 3).Value = 0 i = i + 1 j = j + 1 Loop i = 35 j = 4 Do While j <= 7 Cells(i, 3).Value = 0 i = i + 1 j = j + 1 Loop End Sub Sub zera_celulas_5re() Dim i As Integer Dim j As Integer Sheets("Dados iniciais").Select i = 15 j = 3 Do While j <= 7 Cells(i, 3).Value = 0 i = i + 1 j = j + 1 Loop i = 35 j = 3 Do While j <= 7 Cells(i, 3).Value = 0 i = i + 1 j = j + 1 Loop End Sub Sub zera_celulas_6re() Dim i As Integer Dim j As Integer Sheets("Dados iniciais").Select i = 15 j = 2 Do While j <= 7 Cells(i, 3).Value = 0 i = i + 1 j = j + 1 Loop i = 35 j = 2 Do While j <= 7 Cells(i, 3).Value = 0 i = i + 1 j = j + 1 Loop End Sub Sub zera_celulas_7re() Dim i As Integer Dim j As Integer Sheets("Dados iniciais").Select i = 15 j = 1 Do While j <= 7 Cells(i, 3).Value = 0 i = i + 1 j = j + 1 Loop i = 35 j = 1 Do While j <= 7 Cells(i, 3).Value = 0 i = i + 1 j = j + 1 Loop End Sub Sub zera_celulas_1vante() Dim i As Integer Dim j As Integer Sheets("Dados iniciais").Select i = 29 j = 0 Do While j >= 0 Cells(i, 3).Value = 0 i = i - 1 j = j - 1 Loop i = 49 j = 0 Do While j >= 0 Cells(i, 3).Value = 0 i = i - 1 j = j - 1 Loop End Sub Sub zera_celulas_2vante() Dim i As Integer Dim j As Integer Sheets("Dados iniciais").Select i = 29 j = 1 Do While j >= 0 Cells(i, 3).Value = 0 i = i - 1 j = j - 1 Loop i = 49 j = 1 Do While j >= 0 Cells(i, 3).Value = 0 i = i - 1 j = j - 1 Loop End Sub Sub zera_celulas_3vante() Dim i As Integer Dim j As Integer Sheets("Dados iniciais").Select i = 29 j = 2 Do While j >= 0 Cells(i, 3).Value = 0 i = i - 1 j = j - 1 Loop i = 49 j = 2 Do While j >= 0 Cells(i, 3).Value = 0 i = i - 1 j = j - 1 Loop End Sub Sub zera_celulas_4vante() Dim i As Integer Dim j As Integer Sheets("Dados iniciais").Select i = 29 j = 3 Do While j >= 0 Cells(i, 3).Value = 0 i = i - 1 j = j - 1 Loop i = 49 j = 3 Do While j >= 0 Cells(i, 3).Value = 0 i = i - 1 j = j - 1 Loop End Sub Sub zera_celulas_5vante() Dim i As Integer Dim j As Integer Sheets("Dados iniciais").Select i = 29 j = 4 Do While j >= 0 Cells(i, 3).Value = 0 i = i - 1 j = j - 1 Loop i = 49 j = 4 Do While j >= 0 Cells(i, 3).Value = 0 i = i - 1 j = j - 1 Loop End Sub Sub zera_celulas_6vante() Dim i As Integer Dim j As Integer Sheets("Dados iniciais").Select i = 29 j = 5 Do While j >= 0 Cells(i, 3).Value = 0 i = i - 1 j = j - 1 Loop i = 49 j = 5 Do While j >= 0 Cells(i, 3).Value = 0 i = i - 1 j = j - 1 Loop End Sub Sub zera_celulas_7vante() Dim i As Integer Dim j As Integer Sheets("Dados iniciais").Select i = 29 j = 6 Do While j >= 0 Cells(i, 3).Value = 0 i = i - 1 j = j - 1 Loop i = 49 j = 6 Do While j >= 0 Cells(i, 3).Value = 0 i = i - 1 j = j - 1 Loop End Sub Sub mostra_celulas_7re() Sheets("Dados iniciais").Select Cells(15, 3).Value = Me.txtbox_vao_7_re.Text Cells(16, 3).Value = Me.txtbox_vao_6_re.Text Cells(17, 3).Value = Me.txtbox_vao_5_re.Text Cells(18, 3).Value = Me.txtbox_vao_4_re.Text Cells(19, 3).Value = Me.txtbox_vao_3_re.Text Cells(20, 3).Value = Me.txtbox_vao_2_re.Text Cells(21, 3).Value = Me.txtbox_vao_1_re.Text Cells(35, 3).Value = Me.txtbox_estrutura_7_re.Text Cells(36, 3).Value = Me.txtbox_estrutura_6_re.Text Cells(37, 3).Value = Me.txtbox_estrutura_5_re.Text Cells(38, 3).Value = Me.txtbox_estrutura_4_re.Text Cells(39, 3).Value = Me.txtbox_estrutura_3_re.Text Cells(40, 3).Value = Me.txtbox_estrutura_2_re.Text Cells(41, 3).Value = Me.txtbox_estrutura_1_re.Text End Sub Sub mostra_celulas_6re() Sheets("Dados iniciais").Select Cells(16, 3).Value = Me.txtbox_vao_6_re.Text Cells(17, 3).Value = Me.txtbox_vao_5_re.Text Cells(18, 3).Value = Me.txtbox_vao_4_re.Text Cells(19, 3).Value = Me.txtbox_vao_3_re.Text Cells(20, 3).Value = Me.txtbox_vao_2_re.Text Cells(21, 3).Value = Me.txtbox_vao_1_re.Text Cells(36, 3).Value = Me.txtbox_estrutura_6_re.Text Cells(37, 3).Value = Me.txtbox_estrutura_5_re.Text Cells(38, 3).Value = Me.txtbox_estrutura_4_re.Text Cells(39, 3).Value = Me.txtbox_estrutura_3_re.Text Cells(40, 3).Value = Me.txtbox_estrutura_2_re.Text Cells(41, 3).Value = Me.txtbox_estrutura_1_re.Text End Sub Sub mostra_celulas_5re() Sheets("Dados iniciais").Select Cells(17, 3).Value = Me.txtbox_vao_5_re.Text Cells(18, 3).Value = Me.txtbox_vao_4_re.Text Cells(19, 3).Value = Me.txtbox_vao_3_re.Text Cells(20, 3).Value = Me.txtbox_vao_2_re.Text Cells(21, 3).Value = Me.txtbox_vao_1_re.Text Cells(37, 3).Value = Me.txtbox_estrutura_5_re.Text Cells(38, 3).Value = Me.txtbox_estrutura_4_re.Text Cells(39, 3).Value = Me.txtbox_estrutura_3_re.Text Cells(40, 3).Value = Me.txtbox_estrutura_2_re.Text Cells(41, 3).Value = Me.txtbox_estrutura_1_re.Text End Sub Sub mostra_celulas_4re() Sheets("Dados iniciais").Select Cells(18, 3).Value = Me.txtbox_vao_4_re.Text Cells(19, 3).Value = Me.txtbox_vao_3_re.Text Cells(20, 3).Value = Me.txtbox_vao_2_re.Text Cells(21, 3).Value = Me.txtbox_vao_1_re.Text Cells(38, 3).Value = Me.txtbox_estrutura_4_re.Text Cells(39, 3).Value = Me.txtbox_estrutura_3_re.Text Cells(40, 3).Value = Me.txtbox_estrutura_2_re.Text Cells(41, 3).Value = Me.txtbox_estrutura_1_re.Text End Sub Sub mostra_celulas_3re() Sheets("Dados iniciais").Select Cells(19, 3).Value = Me.txtbox_vao_3_re.Text Cells(20, 3).Value = Me.txtbox_vao_2_re.Text Cells(21, 3).Value = Me.txtbox_vao_1_re.Text Cells(39, 3).Value = Me.txtbox_estrutura_3_re.Text Cells(40, 3).Value = Me.txtbox_estrutura_2_re.Text Cells(41, 3).Value = Me.txtbox_estrutura_1_re.Text End Sub Sub mostra_celulas_2re() Sheets("Dados iniciais").Select Cells(20, 3).Value = Me.txtbox_vao_2_re.Text Cells(21, 3).Value = Me.txtbox_vao_1_re.Text Cells(40, 3).Value = Me.txtbox_estrutura_2_re.Text Cells(41, 3).Value = Me.txtbox_estrutura_1_re.Text End Sub Sub mostra_celulas_1re() Sheets("Dados iniciais").Select Cells(21, 3).Value = Me.txtbox_vao_1_re.Text Cells(41, 3).Value = Me.txtbox_estrutura_1_re.Text End Sub Sub mostra_celulas_7vante() Sheets("Dados iniciais").Select Cells(29, 3).Value = Me.txtbox_vao_7_vante.Text Cells(28, 3).Value = Me.txtbox_vao_6_vante.Text Cells(27, 3).Value = Me.txtbox_vao_5_vante.Text Cells(26, 3).Value = Me.txtbox_vao_4_vante.Text Cells(25, 3).Value = Me.txtbox_vao_3_vante.Text Cells(24, 3).Value = Me.txtbox_vao_2_vante.Text Cells(23, 3).Value = Me.txtbox_vao_1_vante.Text Cells(49, 3).Value = Me.txtbox_estrutura_7_vante.Text Cells(48, 3).Value = Me.txtbox_estrutura_6_vante.Text Cells(47, 3).Value = Me.txtbox_estrutura_5_vante.Text Cells(46, 3).Value = Me.txtbox_estrutura_4_vante.Text Cells(45, 3).Value = Me.txtbox_estrutura_3_vante.Text Cells(44, 3).Value = Me.txtbox_estrutura_2_vante.Text Cells(43, 3).Value = Me.txtbox_estrutura_1_vante.Text End Sub Sub mostra_celulas_6vante() Sheets("Dados iniciais").Select Cells(28, 3).Value = Me.txtbox_vao_6_vante.Text Cells(27, 3).Value = Me.txtbox_vao_5_vante.Text Cells(26, 3).Value = Me.txtbox_vao_4_vante.Text Cells(25, 3).Value = Me.txtbox_vao_3_vante.Text Cells(24, 3).Value = Me.txtbox_vao_2_vante.Text Cells(23, 3).Value = Me.txtbox_vao_1_vante.Text Cells(48, 3).Value = Me.txtbox_estrutura_6_vante.Text Cells(47, 3).Value = Me.txtbox_estrutura_5_vante.Text Cells(46, 3).Value = Me.txtbox_estrutura_4_vante.Text Cells(45, 3).Value = Me.txtbox_estrutura_3_vante.Text Cells(44, 3).Value = Me.txtbox_estrutura_2_vante.Text Cells(43, 3).Value = Me.txtbox_estrutura_1_vante.Text End Sub Sub mostra_celulas_5vante() Sheets("Dados iniciais").Select Cells(27, 3).Value = Me.txtbox_vao_5_vante.Text Cells(26, 3).Value = Me.txtbox_vao_4_vante.Text Cells(25, 3).Value = Me.txtbox_vao_3_vante.Text Cells(24, 3).Value = Me.txtbox_vao_2_vante.Text Cells(23, 3).Value = Me.txtbox_vao_1_vante.Text Cells(47, 3).Value = Me.txtbox_estrutura_5_vante.Text Cells(46, 3).Value = Me.txtbox_estrutura_4_vante.Text Cells(45, 3).Value = Me.txtbox_estrutura_3_vante.Text Cells(44, 3).Value = Me.txtbox_estrutura_2_vante.Text Cells(43, 3).Value = Me.txtbox_estrutura_1_vante.Text End Sub Sub mostra_celulas_4vante() Sheets("Dados iniciais").Select Cells(26, 3).Value = Me.txtbox_vao_4_vante.Text Cells(25, 3).Value = Me.txtbox_vao_3_vante.Text Cells(24, 3).Value = Me.txtbox_vao_2_vante.Text Cells(23, 3).Value = Me.txtbox_vao_1_vante.Text Cells(46, 3).Value = Me.txtbox_estrutura_4_vante.Text Cells(45, 3).Value = Me.txtbox_estrutura_3_vante.Text Cells(44, 3).Value = Me.txtbox_estrutura_2_vante.Text Cells(43, 3).Value = Me.txtbox_estrutura_1_vante.Text End Sub Sub mostra_celulas_3vante() Sheets("Dados iniciais").Select Cells(25, 3).Value = Me.txtbox_vao_3_vante.Text Cells(24, 3).Value = Me.txtbox_vao_2_vante.Text Cells(23, 3).Value = Me.txtbox_vao_1_vante.Text Cells(45, 3).Value = Me.txtbox_estrutura_3_vante.Text Cells(44, 3).Value = Me.txtbox_estrutura_2_vante.Text Cells(43, 3).Value = Me.txtbox_estrutura_1_vante.Text End Sub Sub mostra_celulas_2vante() Sheets("Dados iniciais").Select Cells(24, 3).Value = Me.txtbox_vao_2_vante.Text Cells(23, 3).Value = Me.txtbox_vao_1_vante.Text Cells(44, 3).Value = Me.txtbox_estrutura_2_vante.Text Cells(43, 3).Value = Me.txtbox_estrutura_1_vante.Text End Sub Sub mostra_celulas_1vante() Sheets("Dados iniciais").Select Cells(23, 3).Value = Me.txtbox_vao_1_vante.Text Cells(43, 3).Value = Me.txtbox_estrutura_1_vante.Text End Sub Sub maximiza_tela() Application.WindowState = xlMaximized Me.Height = Application.Height Me.Width = Application.Width Me.Left = Application.Left Me.Top = Application.Top End Sub Sub oculta_dados_vaos_rompidos_re() txtbox_vao_7_re.Visible = False txtbox_vao_6_re.Visible = False txtbox_vao_5_re.Visible = False txtbox_vao_4_re.Visible = False txtbox_vao_3_re.Visible = False txtbox_vao_2_re.Visible = False txtbox_vao_1_re.Visible = False txtbox_estrutura_7_re.Visible = False txtbox_estrutura_6_re.Visible = False txtbox_estrutura_5_re.Visible = False txtbox_estrutura_4_re.Visible = False txtbox_estrutura_3_re.Visible = False txtbox_estrutura_2_re.Visible = False txtbox_estrutura_1_re.Visible = False lab_vao_7re.Visible = False lab_vao_6re.Visible = False lab_vao_5re.Visible = False lab_vao_4re.Visible = False lab_vao_3re.Visible = False lab_vao_2re.Visible = False lab_vao_1re.Visible = False lab_estrutura_7re.Visible = False lab_estrutura_6re.Visible = False lab_estrutura_5re.Visible = False lab_estrutura_4re.Visible = False lab_estrutura_3re.Visible = False lab_estrutura_2re.Visible = False lab_estrutura_1re.Visible = False End Sub Sub oculta_dados_vaos_rompidos_vante() txtbox_vao_7_vante.Visible = False txtbox_vao_6_vante.Visible = False txtbox_vao_5_vante.Visible = False txtbox_vao_4_vante.Visible = False txtbox_vao_3_vante.Visible = False txtbox_vao_2_vante.Visible = False txtbox_vao_1_vante.Visible = False txtbox_estrutura_7_vante.Visible = False txtbox_estrutura_6_vante.Visible = False txtbox_estrutura_5_vante.Visible = False txtbox_estrutura_4_vante.Visible = False txtbox_estrutura_3_vante.Visible = False txtbox_estrutura_2_vante.Visible = False txtbox_estrutura_1_vante.Visible = False lab_vao_7vante.Visible = False lab_vao_6vante.Visible = False lab_vao_5vante.Visible = False lab_vao_4vante.Visible = False lab_vao_3vante.Visible = False lab_vao_2vante.Visible = False lab_vao_1vante.Visible = False lab_estrutura_7vante.Visible = False lab_estrutura_6vante.Visible = False lab_estrutura_5vante.Visible = False lab_estrutura_4vante.Visible = False lab_estrutura_3vante.Visible = False lab_estrutura_2vante.Visible = False lab_estrutura_1vante.Visible = False End Sub Sub oculta_dados_vaos_rompidos() txtbox_vao_7_re.Visible = False txtbox_vao_6_re.Visible = False txtbox_vao_5_re.Visible = False txtbox_vao_4_re.Visible = False txtbox_vao_3_re.Visible = False txtbox_vao_2_re.Visible = False txtbox_vao_1_re.Visible = False txtbox_estrutura_7_re.Visible = False txtbox_estrutura_6_re.Visible = False txtbox_estrutura_5_re.Visible = False txtbox_estrutura_4_re.Visible = False txtbox_estrutura_3_re.Visible = False txtbox_estrutura_2_re.Visible = False txtbox_estrutura_1_re.Visible = False lab_vao_7re.Visible = False lab_vao_6re.Visible = False lab_vao_5re.Visible = False lab_vao_4re.Visible = False lab_vao_3re.Visible = False lab_vao_2re.Visible = False lab_vao_1re.Visible = False lab_estrutura_7re.Visible = False lab_estrutura_6re.Visible = False lab_estrutura_5re.Visible = False lab_estrutura_4re.Visible = False lab_estrutura_3re.Visible = False lab_estrutura_2re.Visible = False lab_estrutura_1re.Visible = False txtbox_vao_7_vante.Visible = False txtbox_vao_6_vante.Visible = False txtbox_vao_5_vante.Visible = False txtbox_vao_4_vante.Visible = False txtbox_vao_3_vante.Visible = False txtbox_vao_2_vante.Visible = False txtbox_vao_1_vante.Visible = False txtbox_estrutura_7_vante.Visible = False txtbox_estrutura_6_vante.Visible = False txtbox_estrutura_5_vante.Visible = False txtbox_estrutura_4_vante.Visible = False txtbox_estrutura_3_vante.Visible = False txtbox_estrutura_2_vante.Visible = False txtbox_estrutura_1_vante.Visible = False lab_vao_7vante.Visible = False lab_vao_6vante.Visible = False lab_vao_5vante.Visible = False lab_vao_4vante.Visible = False lab_vao_3vante.Visible = False lab_vao_2vante.Visible = False lab_vao_1vante.Visible = False lab_estrutura_7vante.Visible = False lab_estrutura_6vante.Visible = False lab_estrutura_5vante.Visible = False lab_estrutura_4vante.Visible = False lab_estrutura_3vante.Visible = False lab_estrutura_2vante.Visible = False lab_estrutura_1vante.Visible = False End Sub 'trava as texbox, impedindo que o usuário entre com dados nas mesmas Sub trava_txt_box() Me.txtbox_constante_catenaria_pos_rompimento.Enabled = False Me.txtbox_tracao_pos_rompimento.Enabled = False Me.txtbox_informa_temperatura.Enabled = False End Sub Sub mostra_celulas_re() Dim celulas_re As String Call zera_celulas_re celulas_re = txtbox_qtd_vaos_re.Text If celulas_re = "" Then Else If celulas_re = 0 Then Else If celulas_re = 1 Then Call mostra_celulas_1re Else If celulas_re = 2 Then Call mostra_celulas_2re Else If celulas_re = 3 Then Call mostra_celulas_3re Else If celulas_re = 4 Then Call mostra_celulas_4re Else If celulas_re = 5 Then Call mostra_celulas_5re Else If celulas_re = 6 Then Call mostra_celulas_6re Else If celulas_re = 7 Then Call mostra_celulas_7re End If End If End If End If End If End If End If End If End If End Sub Sub mostra_celulas_vante() Dim celulas_vante As String Call zera_celulas_vante celulas_vante = txtbox_qtd_vaos_vante.Text If celulas_vante = "" Then Else If celulas_vante = 0 Then Else If celulas_vante = 1 Then Call mostra_celulas_1vante Else If celulas_vante = 2 Then Call mostra_celulas_2vante Else If celulas_vante = 3 Then Call mostra_celulas_3vante Else If celulas_vante = 4 Then Call mostra_celulas_4vante Else If celulas_vante = 5 Then Call mostra_celulas_5vante Else If celulas_vante = 6 Then Call mostra_celulas_6vante Else If celulas_vante = 7 Then Call mostra_celulas_7vante End If End If End If End If End If End If End If End If End If End Sub Private Sub UserForm_Click() End Sub Trata-se de um programa que estou desenvolvendo para abaixamento de cabos em LTs.

Olá. Como faço para separar um formulário de um banco de dados no VBA no Excel? Lanço dados no formulário mas atualiza em outro arquivo.

Olá a todos amigos deste maravilhoso fórum , bom vim aqui me lamentar para vocês, porque eu não sei quase nada sobre VBA Excel , por sinal e uma linguagem que eu tenho que aprender muito , porque na empresa em qual eu trabalho , quero me destacar entre todos os funcionários que só sabem mexer no básico do Excel. Bom eu ainda sou bem jovem, 17, rs.. :) Eu montei uma planilha juntamente com meu chefe para a gente ter um controle, mais detalhado das ROs que chegam para a gente.Uma RO , e um registro de ocorrencia, em cada RO existe um numero pra ela, nada D+, bom o que eu queria era , que meu UserForm1 pega-se os dados que estão numa Planilha e retorna-se os valores que eu inseri o numero do RO e clica-se em algum botão de pesquisa e ele já me retonase o valor em Text Box.. Sei que e fácil porem eu sou lerdo no assunto ainda, alguém poderia me ajudar? Vamos lá, eu já fiz um UserForm: Eu queria que quando eu coloca-se determinado numero de RO nesta TextBox e clica-se em PESQUISAR, ele me retorna-se o resto dos campos: Esse Planilha minha possui 11 Colunas. Alguém poderia me ajudar? Poderia fazer um código para mim , e me dizer apenas o que tenho que alterar ? Ficaria eternamente grato, e se precisar de mim estarei disponível. Sou Designer Gráfico e DJ !

Olá pessoal! Gostaria de pedir ajuda para concluir um UserForm... Estou fazendo um controle de Entrada no estoque. Preciso que através do formulário os usuários façam a entrada e a saída das matérias primas no estoque, em suas respectivas posições no porta pallet. Para entrada de materiais criei : - ComboBox Posições (com as posições do porta pallet) - ListBox Itens -TextBox Qtde. - TextBox + SpinButton Pallets - TextBox Data e Hora - ComboBox Colaboradores - ComandButton OK - ComandButton Limpar - ComandButton Cancelar O meu problema: Preciso criar um código para que os dados preenchidos no formulário alimente a linha onde está a POSIÇÃO escolhida na ComboBox. Os códigos das posições estão em uma planilha de dados... Me Ajudem por favor! Gratidão!

Olá a todos! Tenho um user form que no procedimento "initialize" carrega algumas informações do access e se não retornar ao menos um registro fecha o formulário usando "unload Me". O problema que depois de fechar o formulário eu uso "exit sub" pois logo abaixo tem os tratamentos de erros. Quando o copilador (não sei se é assim que chama) chega no comando "Exit Sub" ocorre o seguinte erro: Erro em tempo de execução '91': A variável do objeto ou variável do bloco 'With' não foi definida Observação: Mesmo não usando Exit Sub, o erro ocorre no End Sub; Minha sub tem que ser finalizada em algum momento, certo? Então o que faço para contornar isso? Segue o trecho do código: 'Verifica se há registros If consulta.EOF Then Do While Not consulta.EOF Me.CboCurso.AddItem (consulta("nome")) 'Move para o próximo registro consulta.MoveNext Loop Else 'Exibe mensagem msg = MsgBox("Não existe cursos cadastrados! Quer cadastrar?.", vbQuestion + vbYesNo, "Atenção!") 'Abrir formulário AdmCursos 'If msg = vbYes Then FrmAdmCursos.Show 'Fecha conexão Call Desconecta 'Fecha o form Unload Me End If 'Encerra a sub Exit Sub '****TRATAMENTOS DE ERROS*** '... End sub Quem puder ajudar agradeço desde já!

Bom glr e o seguinte eu quero que quando a celula A1 Por exemplo tenha o valor 1 o Userform 1 apareça, quando tiver 2 o Userfome 2 Apareça, e assim Sucessivamente... Mas eu quero que os Userforms apareçam assim que eu aperte enter ou clique em outra celula

Bom dia galera Estou com uma duvida numa parte de programaçao Resumindo estou fazendo uma planilha de cadastro de ensaios E tenho um userform que chama o outro No userform1 tenho: Private wsRegister As Worksheet (planilha relativa) Public indexRegister As String (indice relativo por onde atualizo a planilha) Set wsRegister = ThisWorkbook.Worksheets("Database") (por exemplo) E assim trabalho com os arquivos relativo a planilha Database sem problema Porém ao pressionar um botao vou para uma outra userform, a userform2 E eu preciso importar nesta nova userform o valor do indexRegister da userform1 Isto quer dizer trocar de userform porém continua usando exatamente a mesma variavel que esta presente na userform1 Exemplo, na userform2: Private Sub LoadRegisterEnsaios() With wsRegister Me.cboxexemplo.Text = .Cells(indexRegister, colexemplo).Value End with End Sub Porém isto não da certo Sei que é simples porem não consigo avançar mais Obrigado, Gilberto