none
Como deleta uma linha no excel com a planilha ocultada? RRS feed

  • Pergunta

  • 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

    terça-feira, 14 de dezembro de 2010 22:27

Respostas

Todas as Respostas