Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Botões do formulári...
 
Notifications
Clear all

Botões do formulário não funcionam

 
2024 - VBA & Macros
Post Recente por Reinaldo 10 anos atrás
6 Posts
3 Usuários
0 Reactions
1,396 Visualizações
RSS
 rattobr
(@rattobr)
Posts: 0
New Member
Topic starter
 

Bom dia galera, volto aqui, por ser a unica/ultima salvação pra mim....
Em si pra quem programa em VBA, meus problemas são simples, mas infelizmente pra mim não tão simples assim. Minha planilha esta em anexo.

ao desenvolver essa planilha, com VBA, me deparo com varios eventos, meu botão EXCLUIR não funciona, o ALTERAR não salva as informações, não sei como PESQUISAR, só digitando no campo o valor do codigo, E AO INSERIR, o meu contador de registro é pelo quantidade de linha, e não pela quantidade de registros :/

realmente to bem desapontado, e desistindo.

se você pudessem me ajuda, agradeceria imensamente...

http://www.4shared.com/rar/PmfxAPKice/CADASTRO_V3.html

 
Postado : 03/12/2014 7:58 am
 selmo
(@selmo)
Posts: 236
Reputable Member
 

Posta aqui no forum seu modelo compactado que ajudo se conseguir

 
Postado : 03/12/2014 9:47 am
 rattobr
(@rattobr)
Posts: 0
New Member
Topic starter
 

Posta aqui no forum seu modelo compactado que ajudo se conseguir

Ok, vou separar,

CADASTRO. 

Private Sub BTN_INSERIR_Click()

Dim campos As Variant
Dim k As Byte
Dim h As Integer


TXT_CONTREG = Sheets("listas_suspensas").Range("a2")

campos = Array(TXT_CONTREG, TXT_CODTOURO, TXT_NOME, TXT_DTNASC, TXT_NACIO, cmb_apt, cmb_orig, cmb_raca, cmb_parent, TXT_NOMEP, TXT_DTFILM, CMB_TIPFILM, TXT_OBS)

Application.ScreenUpdating = False

Sheets("plan1").Activate
Range("a2").Select


Do While IsEmpty(ActiveCell) = False
    ActiveCell.Offset(1, 0).Select

Loop
For k = 0 To 11
    ActiveCell.Offset(0, k).Value = campos(k).Value
   
Next k

MsgBox "O Touro'" & campos(1) & "-" & campos(2) & " foi cadastrado com sucesso.", vbInformation, "Confirmação de Cadastro"

For k = 0 To 11

   campos(k).Value = Empty
     
Next k

Cells.EntireColumn.AutoFit

Application.ScreenUpdating = True

End Sub

Private Sub BTN_LIMPAR_Click()

TXT_CODTOURO = Empty

TXT_CODTOURO = Empty
TXT_NOME = Empty
TXT_DTNASC = Empty
TXT_NACIO = Empty
cmb_apt = Empty
cmb_orig = Empty
cmb_raca = Empty
cmb_parent = Empty
TXT_NOMEP = Empty
TXT_DTFILM = Empty
MB_TIPFILM = Empty
TXT_OBS = Empty


End Sub

Private Sub BTN_PESQUISAR_Click()

pesquisa.Show

End Sub


Private Sub btn_sair_Click()

Unload Cadastro

End Sub

PESQUISA 

Private Sub CommandButton1_Click()
Unload Me

End Sub


End Sub

Private Sub CommandButton3_Click()

pesquisa.TXT_CODTOURO.Enabled = True
pesquisa.TXT_NOME.Enabled = True
pesquisa.TXT_DTNASC.Enabled = True
pesquisa.TXT_NACIO.Enabled = True
pesquisa.cmb_apt.Enabled = True
pesquisa.cmb_orig.Enabled = True
pesquisa.cmb_raca.Enabled = True
pesquisa.cmb_parent.Enabled = True
pesquisa.TXT_NOMEP.Enabled = True
pesquisa.TXT_DTFILM.Enabled = True
pesquisa.CMB_TIPFILM.Enabled = True
pesquisa.TXT_OBS.Enabled = True


End Sub

Private Sub ListBox_pesq_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Dim vl_1 As Variant
Dim vl_2, vl_3, vl_4, vl_5, vl_6, vl_7, vl_8, vl_9, vl_10, vl_11, vl_12, vl_13 As Variant


Dim selecao As Variant

selecao = ListBox_pesq.ListIndex
vl_1 = ListBox_pesq.List(selecao, 0)
vl_2 = ListBox_pesq.List(selecao, 1)
vl_3 = ListBox_pesq.List(selecao, 2)
vl_4 = ListBox_pesq.List(selecao, 3)
vl_5 = ListBox_pesq.List(selecao, 4)
vl_6 = ListBox_pesq.List(selecao, 5)
vl_7 = ListBox_pesq.List(selecao, 6)
vl_8 = ListBox_pesq.List(selecao, 7)
vl_9 = ListBox_pesq.List(selecao, 8)
vl_10 = ListBox_pesq.List(selecao, 9)
vl_11 = ListBox_pesq.List(selecao, 10)
vl_12 = ListBox_pesq.List(selecao, 11)
vl_13 = ListBox_pesq.List(selecao, 12)


pesquisa.TXT_CONTREG = vl_1
pesquisa.TXT_CODTOURO = vl_2
pesquisa.TXT_NOME = vl_3
pesquisa.TXT_DTNASC = vl_4
pesquisa.TXT_NACIO = vl_5
pesquisa.cmb_apt = vl_6
pesquisa.cmb_orig = vl_7
pesquisa.cmb_raca = vl_8
pesquisa.cmb_parent = vl_9
pesquisa.TXT_NOMEP = vl_10
pesquisa.TXT_DTFILM = vl_11
pesquisa.CMB_TIPFILM = vl_12
pesquisa.TXT_OBS = vl_13
   

pesquisa.TXT_CODTOURO.Enabled = False
pesquisa.TXT_CONTREG.Enabled = False
pesquisa.TXT_NOME.Enabled = False
pesquisa.TXT_DTNASC.Enabled = False
pesquisa.TXT_NACIO.Enabled = False
pesquisa.cmb_apt.Enabled = False
pesquisa.cmb_orig.Enabled = False
pesquisa.cmb_raca.Enabled = False
pesquisa.cmb_parent.Enabled = False
pesquisa.TXT_NOMEP.Enabled = False
pesquisa.TXT_DTFILM.Enabled = False
pesquisa.CMB_TIPFILM.Enabled = False
pesquisa.TXT_OBS.Enabled = False


End Sub



Private Sub UserForm_Initialize()

With Sheets("plan1").UsedRange

    ListBox_pesq.ColumnCount = 13
    ListBox_pesq.RowSource = .Address
    
End With

lbl_totalregistro.Caption = " Total de Registro(s):" & ListBox_pesq.ListCount - 1

End Sub
 
Postado : 03/12/2014 10:02 am
 Reinaldo
(@rlm)
Posts: 0
New Member
 

Para o botão inserir

Private Sub BTN_INSERIR_Click()

Dim campos As Variant
Dim k As Byte
Dim h As Integer

Application.ScreenUpdating = False
Sheets("plan1").Activate

Range("a" & Cells(Cells.Rows.Count, "A").End(xlUp).Row + 1).Select

TXT_CONTREG = Application.WorksheetFunction.Max(Range("A2:A" & Cells(Cells.Rows.Count, "A").End(xlUp).Row)) + 1

campos = Array(TXT_CONTREG, TXT_CODTOURO, TXT_NOME, TXT_DTNASC, TXT_NACIO, cmb_apt, cmb_orig, cmb_raca, cmb_parent, TXT_NOMEP, TXT_DTFILM, CMB_TIPFILM, TXT_OBS)


For k = 0 To 12
    ActiveCell.Offset(0, k).Value = campos(k).Value
Next k

MsgBox "O Touro'" & campos(1) & "-" & campos(2) & " foi cadastrado com sucesso.", vbInformation, "Confirmação de Cadastro"

For k = 0 To 12

   campos(k).Value = Empty
     
Next k

Cells.EntireColumn.AutoFit

Application.ScreenUpdating = True

End Sub
 
Postado : 04/12/2014 9:03 am
 rattobr
(@rattobr)
Posts: 0
New Member
Topic starter
 

Para o botão inserir

Private Sub BTN_INSERIR_Click()

Dim campos As Variant
Dim k As Byte
Dim h As Integer

Application.ScreenUpdating = False
Sheets("plan1").Activate

Range("a" & Cells(Cells.Rows.Count, "A").End(xlUp).Row + 1).Select

TXT_CONTREG = Application.WorksheetFunction.Max(Range("A2:A" & Cells(Cells.Rows.Count, "A").End(xlUp).Row)) + 1

campos = Array(TXT_CONTREG, TXT_CODTOURO, TXT_NOME, TXT_DTNASC, TXT_NACIO, cmb_apt, cmb_orig, cmb_raca, cmb_parent, TXT_NOMEP, TXT_DTFILM, CMB_TIPFILM, TXT_OBS)


For k = 0 To 12
    ActiveCell.Offset(0, k).Value = campos(k).Value
Next k

MsgBox "O Touro'" & campos(1) & "-" & campos(2) & " foi cadastrado com sucesso.", vbInformation, "Confirmação de Cadastro"

For k = 0 To 12

   campos(k).Value = Empty
     
Next k

Cells.EntireColumn.AutoFit

Application.ScreenUpdating = True

End Sub

brigado pelo ajuda, ja é mais um passo! obrigado mesmo

 
Postado : 04/12/2014 10:09 am
 Reinaldo
(@rlm)
Posts: 0
New Member
 

Para o Botão Excluir

Private Sub CommandButton2_Click()
Dim i As Integer, nLin As Integer
For i = 0 To ListBox_pesq.ListCount - 1
    If ListBox_pesq.Selected(i) Then
        nLin = Application.Match(ListBox_pesq.List(ListBox_pesq.ListIndex, 0), Sheets("Plan1").Range("A:A"), 0)
    End If
Next i
If MsgBox("Deseja Excluir o Registro: " & Sheets("Plan1").Cells(nLin, 1) & " - " & Sheets("Plan1").Cells(nLin, 2), _
    vbQuestion + vbYesNo, "Confirmação") = vbYes Then
    Sheets("Plan1").Range("A" & nLin).Select
    Selection.EntireRow.Delete
    lbl_totalregistro.Caption = " Total de Registro(s):" & ListBox_pesq.ListCount - 1
End If
End Sub
 
Postado : 04/12/2014 11:00 am
Forum Jump:
  Tópico Anterior
Próximo Tópico