Página 1 de 1
Somando mais 1 ao valor existente
Enviado: 10 Mai 2018 às 18:12
por 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.
Re: Somando mais 1 ao valor existente
Enviado: 10 Mai 2018 às 21:57
por 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.
Re: Somando mais 1 ao valor existente
Enviado: 11 Mai 2018 às 06:42
por osvaldomp
Experimente:
Código: Selecionar todosSub 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
Re: Somando mais 1 ao valor existente
Enviado: 11 Mai 2018 às 08:00
por Angra
Bom dia
osvaldomp, grato pela solução e babdallas, esqueci de explicar que o 1º caso era apenas exemplo.