Skip to main content
removeu 93 caracteres do conteúdo
Fonte Link
user77403
user77403

Eu preciso de selecionar a linha com o valor da combobox 1 e com a data da combobox 3 para selecionar logo a linha pretendida para eliminar. Este é o problema que tenho para resolver.

Alguém me consegue ajudar?

Este é o código que tenho para seleccionar a célula da combobox1:

Private Sub RemverRegisto_Click()
Range("E3").Select

While ActiveCell <> ""
If CB_TipoFralda.Text = ActiveCell Then
Resposta = MsgBox("Registo encontrado, deseja excluir?", vbYesNo)
End If
If Resposta = vbYes Then
ActiveCell.EntireRow.Delete
Exit Sub
End If
ActiveCell.Offset(1, 0).Activate
Wend
Exit Sub
End Sub

Vou colocar uma imagem para mostrar o que pretendo:

inserir a descrição da imagem aqui

Quero ativar a linha com os valores da combobox produto e da data para eliminar e com o código acima só ativo a linha com o valor da combobox produto, logo precorre todas as linhas em que encontra o produto da combobox1.

Já consegui chegar à solução, obrigado.

Se precisarem de ver a solução é só pedirem que eu coloco aqui

Eu preciso de selecionar a linha com o valor da combobox 1 e com a data da combobox 3 para selecionar logo a linha pretendida para eliminar. Este é o problema que tenho para resolver.

Alguém me consegue ajudar?

Este é o código que tenho para seleccionar a célula da combobox1:

Private Sub RemverRegisto_Click()
Range("E3").Select

While ActiveCell <> ""
If CB_TipoFralda.Text = ActiveCell Then
Resposta = MsgBox("Registo encontrado, deseja excluir?", vbYesNo)
End If
If Resposta = vbYes Then
ActiveCell.EntireRow.Delete
Exit Sub
End If
ActiveCell.Offset(1, 0).Activate
Wend
Exit Sub
End Sub

Vou colocar uma imagem para mostrar o que pretendo:

inserir a descrição da imagem aqui

Quero ativar a linha com os valores da combobox produto e da data para eliminar e com o código acima só ativo a linha com o valor da combobox produto, logo precorre todas as linhas em que encontra o produto da combobox1.

Já consegui chegar à solução, obrigado.

Se precisarem de ver a solução é só pedirem que eu coloco aqui

Eu preciso de selecionar a linha com o valor da combobox 1 e com a data da combobox 3 para selecionar logo a linha pretendida para eliminar. Este é o problema que tenho para resolver.

Alguém me consegue ajudar?

Este é o código que tenho para seleccionar a célula da combobox1:

Private Sub RemverRegisto_Click()
Range("E3").Select

While ActiveCell <> ""
If CB_TipoFralda.Text = ActiveCell Then
Resposta = MsgBox("Registo encontrado, deseja excluir?", vbYesNo)
End If
If Resposta = vbYes Then
ActiveCell.EntireRow.Delete
Exit Sub
End If
ActiveCell.Offset(1, 0).Activate
Wend
Exit Sub
End Sub

Vou colocar uma imagem para mostrar o que pretendo:

Quero ativar a linha com os valores da combobox produto e da data para eliminar e com o código acima só ativo a linha com o valor da combobox produto, logo precorre todas as linhas em que encontra o produto da combobox1.

Já consegui chegar à solução, obrigado.

Se precisarem de ver a solução é só pedirem que eu coloco aqui

título editado
Link
user28595
user28595

[Resolvido]Selecção Selecção de células

título editado
Link
user77403
user77403

Selecção [Resolvido]Selecção de células

adicionou 109 caracteres ao conteúdo
Fonte Link
user77403
user77403
Carregando
adicionou 376 caracteres ao conteúdo
Fonte Link
user77403
user77403
Carregando
removeu 715 caracteres do conteúdo
Fonte Link
user77403
user77403
Carregando
removeu 707 caracteres do conteúdo
Fonte Link
user77403
user77403
Carregando
removeu 85 caracteres do conteúdo; tags editadas
Fonte Link
user28595
user28595
Carregando
adicionou 432 caracteres ao conteúdo
Fonte Link
user77403
user77403
Carregando
removeu 23 caracteres do conteúdo
Fonte Link
user77403
user77403
Carregando
adicionou 568 caracteres ao conteúdo
Fonte Link
user77403
user77403
Carregando
Fonte Link
user77403
user77403
Carregando