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.
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
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.
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
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
A entendi! Vou passar a utilizar.
Tks
Fui Util? Click na "Mãozinha" ali do lado >>>> e agradeça.