Amigos
Estou tendando finalizar minha planilha onde tenho um userform e nele tenho um botao que faz a busta na minha planilha com as informaçoes desejada e .. tbm me da aopção de deleta .. so que ñ estou conseguindo usar a função
de deleta uma linha quando a planilha esta ocultada. essa planilha no caso é meu banco de dados onde ñ quero que nem um outro usuario tenha acesso ..
Onde esta marcado de negrito é onde sempre da o erro ou seja ele so deleta a linha se a planilha estiver visivel .. alguem pode me ajuda so nessa questao ai pq o resto esta tudo funcionando.
O codigo que estou usando é esse ai .
Private Sub cmdExcluir_Click()
'Declarar a variável Resp para receber uma resposta
Dim Resp As Integer
'Fazer a busca do registro digitado pelo usuário
With Worksheets("Estoque").Range("F:F")
Set c = .Find(txt_Procurar.Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
Resp = MsgBox("Tem certeza que deseja excluir o registro?", vbYesNo, "Confirmação")
If Resp = vbYes Then
c.Select
Selection.EntireRow.Delete
'Limpar as caixas de texto
TextBox5.Value = Empty
TextBox6.Value = Empty
TextBox7.Value = Empty
TextBox8.Value = Empty
txt_Procurar.Value = Empty
TextBox2.Value = Empty
TextBox3.Value = Empty
TextBox9.Value = Empty
TextBox10.Value = Empty
TextBox11.Value = Empty
TextBox4.Value = Empty
'Colocar o foco na primeira caixa de texto
txt_Procurar.SetFocus
Else
MsgBox "O registro não será excluído!"
End If
Else
MsgBox "Cliente não encontrado!"
End If
End With
Exit Sub
End Sub
