Página 1 de 1
Excluindo o número digitado e atualizando a quantidade.
Enviado: 08 Jul 2019 às 15:30
por GENECI
Boa tarde!
Solicito a sua ajuda, de acordo com o arquivo anexo.
Grato - Geneci.
Re: Excluindo o número digitado e atualizando a quantidade.
Enviado: 08 Jul 2019 às 17:46
por osvaldomp
Olá, Geneci.
Experimente uma cópia do código abaixo no módulo da planilha.
Código: Selecionar todosPrivate Sub Worksheet_Change(ByVal Target As Range)
Dim n As Range
If Target.Count > 1 Then Exit Sub
If Target.Address <> "$M$1" Or Target.Value = "" Then Exit Sub
Set n = [A7:J10].Find([M1], lookat:=xlWhole)
If Not n Is Nothing Then
n.Value = "": [P4] = Application.CountA([A7:J10])
Else: MsgBox "VALOR NÃO ENCONTRADO"
End If
On Error Resume Next
Set n = [A7:J10].Find([M1], lookat:=xlPart)
End Sub
Excluindo o número digitado e atualizando a quantidade.
Enviado: 09 Jul 2019 às 12:42
por GENECI
Boa tarde! Osvaldo.
Muito obrigado, por sanar minha dúvida.
Grato - Geneci.