Dúvida Worksheets(

2024 - VBA & Macros

Post Recente por Juniorrr 9 anos atrás

5 Posts

3 Usuários

0 Reactions

914 Visualizações

RSS

Juniorrr

(@juniorrr)

Posts: 6

Active Member

Topic starter

Desculpem pela pergunta que talvez seja até meio que idiota mas estou iniciando no mundo do VBA e EXCEL avançado.

Tenho uma "condição" na planilha que está funcionando perfeitamente, e consegui graças a ajuda de membro aqui no forum, no qual sou muito agradecido.
a minha dúvida é a seguinte, como eu faço para criar outra condição na mesma planilha? (Plan1) Pode ser a mesma Worksheet que criei porem indicando celulas diferentes.

segue minha macro:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = Range("B3:B99").Column Then
Sheets("Plan1").Cells(Target.Row, "C") = Sheets("Plan1").Cells(Target.Row, "B") + Sheets("Plan1").Cells(Target.Row, "C")

End If
End Sub

Quero fazer esta mesma macro para as colunas D e E na mesma planilha, (plan1)/

Postado : 11/08/2015 8:00 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Bom dia!!

Eu não sei se entendi perfeitamente, também não testei!!

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = Range("B3:B99").Column Then
        Sheets("Plan1").Cells(Target.Row, "C") = Sheets("Plan1").Cells(Target.Row, "B") + Sheets("Plan1").Cells(Target.Row, "C")
    End If
    
    If Target.Column = Range("D3:D99").Column Then
        Sheets("Plan1").Cells(Target.Row, "E") = Sheets("Plan1").Cells(Target.Row, "D") + Sheets("Plan1").Cells(Target.Row, "E")
    End If
    
End Sub

Att

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

Postado : 12/08/2015 6:32 am

Juniorrr

(@juniorrr)

Posts: 6

Active Member

Topic starter

Era exatamente isso...

Postado : 12/08/2015 6:57 am

acarloos

(@acarloos)

Posts: 40

Eminent Member

Juniorr, gostaria tb deixar minha contribuição , dessa forma você pode colocar quantas vezes quiser.

Private Sub Worksheet_Change(ByVal Target As Range)
            Part1 Target
            Part2 Target
            Part3 Target
End Sub

Private Sub Part1(ByVal Target As Range)
    If Target.Column = Range("B3:B99").Column Then
        Sheets("Plan1").Cells(Target.Row, "C") = Sheets("Plan1").Cells(Target.Row, "B") + Sheets("Plan1").Cells(Target.Row, "C")

Private Sub Part2(ByVal Target As Range)
    If Target.Column = Range("D3:D99").Column Then
        Sheets("Plan1").Cells(Target.Row, "E") = Sheets("Plan1").Cells(Target.Row, "D") + Sheets("Plan1").Cells(Target.Row, "E")

Private Sub Part3(ByVal Target As Range)
    If Target.Column = Range("E3:E99").Column Then
        Sheets("Plan1").Cells(Target.Row, "F") = Sheets("Plan1").Cells(Target.Row, "E") + Sheets("Plan1").Cells(Target.Row, "F")
End Sub

Postado : 12/08/2015 7:36 am