Notifications
Clear all

Carregar no ListBox dados da planilha

20 Posts
3 Usuários
0 Reactions
2,661 Visualizações
(@joocta)
Posts: 187
Estimable Member
Topic starter
 

Boa noite meus Gurus,
estou querendo fazer uma coisa mas não sei se é possível.
tenho esse projeto de planilha, que seria para carregar cada coluna.
se clicasse no botão "Catalogo e referencia" ele carregaria a ListBox com a coluna, ativaria os tres botões da coluna referente abaixo, onde eu poderia salvar uma referencia nova ou editar uma existente e isso aconteceria em cada botão clicado.
Seria possivel?
att,
Joocta

 
Postado : 15/10/2016 5:03 pm
(@mprudencio)
Posts: 0
New Member
 

O codigo completo

 
Postado : 16/10/2016 2:59 pm
(@joocta)
Posts: 187
Estimable Member
Topic starter
 

Esta dando erro...

Private Sub btn_Excluir_Catalogo_Click()

resposta = MsgBox("Tem Certeza que Deseja Excluir o Cadastro?", 4 + vbCritical)
    Select Case resposta
        Case vbYes
        
          txtbox_Cadastro.value.EntireRow.Delete
            MsgBox "Registro Excluído com Sucesso!!!", 0 + vbInformation

    Case vbNo
            MsgBox "Registro Não Será Excluído!!!", vbInformation
    End Select

End Sub
 
Postado : 16/10/2016 3:14 pm
(@mprudencio)
Posts: 0
New Member
 

Vc precisa localizar o valor na planilha antes de apagar usando uma extrutura de repetição do while /loop ou for next

 
Postado : 16/10/2016 3:41 pm
(@joocta)
Posts: 187
Estimable Member
Topic starter
 

Não estou conseguindo... Vejo que ainda tenho que aprender muito.

Private Sub btn_Excluir_Catalogo_Click()

Dim LinhaFinal As Integer
Dim i As Integer

For i = 2 To LinhaFinal
If frm_Cadastra_Combo.txtbox_Cadastro.Value = Planilha2.Cells(i, 0).Text Then
resposta = MsgBox("Tem Certeza que Deseja Excluir o Cadastro?", 4 + vbCritical)
Select Case resposta
Case vbYes

txtbox_Cadastro.Value.Delete

MsgBox "Registro Excluído com Sucesso!!!", 0 + vbInformation

Case vbNo

MsgBox "Registro Não Será Excluído!!!", vbInformation

End Select

End If
Next

End Sub

 
Postado : 16/10/2016 4:14 pm
(@joocta)
Posts: 187
Estimable Member
Topic starter
 

Coloquei assim e deu certo...

Private Sub btn_Excluir_Catalogo_Click()

Dim w As Worksheet
Dim Nome As String

Set w = Sheets("Cadastros")
Nome = txtbox_Cadastro.Value

If Nome = "" Then

MsgBox "Nenhum cadastro selecionado. O Processo será abortado", vbInformation
Exit Sub

End If

w.Select
w.Range("A2").Select

Do While ActiveCell.Value <> ""

If ActiveCell.Value = Nome Then

ActiveCell.Cells.Delete
MsgBox "Registro apagado!"
txtbox_Cadastro.Value = ""
Call btn_Catalogo_Click
Exit Do

End If

ActiveCell.Offset(1, 0).Select

Loop

End Sub

 
Postado : 16/10/2016 6:09 pm
Página 2 / 2