Notifications

Clear all

Somar +1 ao número já existente em uma tabela com criterio

2024 - VBA & Macros

Post Recente por Necron 11 anos atrás

6 Posts

3 Usuários

0 Reactions

1,780 Visualizações

RSS

Necron

(@necron)

Posts: 117

Estimable Member

Topic starter

Ola!

Tenho uma tabela de 3 colunas e na coluna "B" tenho um numero. Gostaria de somar +1 a esse numero já existente quando eu executar a macro. Porem na celula "C1" tenho um valor, e esse +1 deverá ser somado na base apenas se o valor da coluna "A" for igual ao digitado em "C1".

Ilustração:

Segue anexo planilha caso precisem:

Obrigado pela ajuda!!!

Fui Util? Click na "Mãozinha" ali do lado >>>> e agradeça.

Postado : 23/09/2014 6:55 am

gtsalikis

(@gtsalikis)

Posts: 2373

Noble Member

Veja se está bom:

Sub somar_GT()

Application.ScreenUpdating = False

Dim Filial  As String
Dim PL      As Long 'Primeira Linha
Dim UL      As Long 'Última Linha
Dim linha   As Long

Filial = Range("C1").Value2
PL = 7
UL = Cells(Rows.Count, "B").End(xlUp).Row

For linha = PL To UL
    If Cells(linha, "A").Value2 = Filial Then
        Cells(linha, "B").Value2 = Cells(linha, "B").Value2 + 1
    End If
Next linha

Application.ScreenUpdating = True

End Sub

Abs

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

Postado : 23/09/2014 7:10 am

Necron

(@necron)

Posts: 117

Estimable Member

Topic starter

Funcionou sim! Obrigado!

Mas me diga uma coisa, porque que você usou .value2 ao invés de somente .value? eu alterei para ver se daria algum erro e nada mudou.

Fui Util? Click na "Mãozinha" ali do lado >>>> e agradeça.

Postado : 23/09/2014 10:39 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa tarde!!

Leia:
http://support.microsoft.com/kb/213719/pt-br

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 23/09/2014 10:43 am

gtsalikis

(@gtsalikis)

Posts: 2373

Noble Member

Além do link que o Alexandre postou, entende-se que o value2 seja mais rápido do que o value.

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

Postado : 23/09/2014 11:05 am

Necron

(@necron)

Posts: 117

Estimable Member

Topic starter

A entendi! Vou passar a utilizar.

Tks

Fui Util? Click na "Mãozinha" ali do lado >>>> e agradeça.

Postado : 23/09/2014 11:41 am