Este fórum está sendo desativado

[GENECI]

Boa tarde!

Solicito a sua ajuda, de acordo com o arquivo anexo.

Grato - Geneci.

[osvaldomp]

Olá, Geneci.

Experimente uma cópia do código abaixo no módulo da planilha.

Código: Selecionar todos

Private 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

[GENECI]

Boa tarde! Osvaldo.

Muito obrigado, por sanar minha dúvida.

Grato - Geneci.