Ir para conteúdo
Fórum Script Brasil
  • 0

Apagar valores da linha de uma planilha & textbox


vbaLimoeiro

Pergunta

<_< Quero saber como posso apagar dados na planilha que foram gravados por meio de textbox do userform. Eu uso o evento click do botão. tenho alguns textbox e quando gravo algo na planilha por meio desses textbox, quero que também exclua esses dados da planilha por meio de um botão.

Alguém sabe algum código?

desde já agradeço aos colaboradores do fórum!

Link para o comentário
Compartilhar em outros sites

9 respostass a esta questão

Posts Recomendados

  • 0

Hmm crie um commandbutton que exclua a linha que você quiser.

pode ser algo do tipo

Sub lala()
Dim Linha As Integer
Linha = InputBox("Digite a linha a ser deletada")
MsgBox Linha
    Cells(Linha, Linha).Select
    Selection.Delete
End Sub

pelo que eu entendi do seu post é isso

Danke.

Editado por kuroi
Adicionar tag CODE
Link para o comentário
Compartilhar em outros sites

  • 0

não é isso caro colega!

Quero que o botão excluir de um userform exclua só os dados que eu selecionar em um combobox. Se eu seleciono em um combobox a data 12/08/2010 então esse combobox irá selecionar a linha na planilha referente a essa data e quando eu clicar no botão Excluir, os dados da linha selecionada deve ser excluida!. Ok? ;)

Link para o comentário
Compartilhar em outros sites

  • 0

Veja se ajuda meu amigo

Sub lala2()

Dim Alvo As Integer

Dim Linha As Integer

Alvo = Combobox1.Value

'Supondo que o dado procurado esteja na coluna A

Range("A1").Select

For Linha = 1 To 1000

If Cells(Linha, 1).Value = Alvo Then

GoTo Step2

Else

End If

Next Linha

Step2:

Cells(Linha, Linha).Select

Selection.Delete

End Sub

claro que o nome da sub seria CommandButton1_click ou algo assim

Danke.

Editado por Patrick Gehre
Link para o comentário
Compartilhar em outros sites

  • 0

:angry: Penso que o tópico criado por vc "Filtro para combobox" foi resolvido, mas não foi informado.

Private Sub CommandButton2_Click()
  If MsgBox("Confirma exclusão de dados de: " & Me.TextBox1 & "; da data: " & Me.TextBox2 & " ?", vbYesNo + vbQuestion, "Cadastro") = vbNo Then
   Exit Sub
  End If
Selection.Delete
Me.ComboBox1.Clear: Me.ComboBox2.Clear
Me.TextBox1 = "": Me.TextBox2 = "": Me.TextBox3 = ""
End Sub

Link para o comentário
Compartilhar em outros sites

  • 0

Era isso mesmo, valeu caro colega JoséA!!! :D

Agradeço também ao Patrick

Porque quando eu excluo os dados, apaga só os dados da coluna "A" mas não apaga juntamente os dados da coluna "B"? e quando apaga os dados da coluna "A", os dados da coluna "B" saltam para a coluna "A".

Editado por vbaLimoeiro
Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...