Apagar valores da linha de uma planilha & textbox

[vbaLimoeiro]

<_< 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!

[Patrick Gehre]

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 Julho 29, 2010 por kuroi
Adicionar tag CODE

[vbaLimoeiro]

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? ;)

[Patrick Gehre]

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 Julho 30, 2010 por Patrick Gehre

[vbaLimoeiro]

Caro colega Patrick, não está dando Certo. Está aparecendo um erro: Tipos incompatíveis ------> Alvo = ComboBox1.Value

O que está havendo? baixe o exemplo para melhor entender!!

Acesse esse Link para baixar o Exemplo

[JoséA]

: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

[JoséA]

Em tempo....

Cole como última linha no evento para regarregar o combox1 que foi limpado.

Call UserForm_Initialize

[vbaLimoeiro]

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 Agosto 2, 2010 por vbaLimoeiro

[Patrick Gehre]

Os tipos ficavam incompatíveis pois não deveria existir um combobox1 na sua planilha...

você deveria mudar para o nome do seu.

Abs

[JoséA]

Era isso mesmo, valeu caro colega JoséA!!!...

Estando ao nosso alcance, disponha.

Editado Agosto 2, 2010 por JoséA