Este fórum está sendo desativado

[Angra]

Boa noite
Uma formula serviria para somar um valor variável a outro fixo. Tenho uma macro que soma sempre ao valor já existente mais 1.

[babdallas]

Qual a função do parâmetro da célula C12? Explica com mais detalhe o que você espera acontecer a cada clique no botão.

[osvaldomp]

Experimente:

Código: Selecionar todos

Sub Adiciona1()
 Dim c As Range, frst As String
  Set c = Range("H5:H33").Find([M2], Lookat:=xlWhole)
   If Not c Is Nothing Then
    frst = c.Address
      Do
       Cells(c.Row, 10) = Cells(c.Row, 10) + 1
       Set c = Range("H5:H33").FindNext(c)
      Loop While Not c Is Nothing And c.Address <> frst
   End If
End Sub

[Angra]

Bom dia
osvaldomp, grato pela solução e babdallas, esqueci de explicar que o 1º caso era apenas exemplo.