Ir ao conteúdo
  • Cadastre-se

SrMths

Membro Júnior
  • Posts

    3
  • Cadastrado em

  • Última visita

Reputação

1
  1. ja resolvi obrigado mano ficou assim o código Application.EnableEvents = False Application.ScreenUpdating = False Dim wb As Workbook: Set wb = ThisWorkbook Dim ws As Worksheet: Set ws = wb.ActiveSheet Dim tichondriusnovo As Range: Set tichondriusnovo = ws.Range("C2") Dim tichondriustotal As Range: Set tichondriustotal = ws.Range("B2") Dim malganisnovo As Range: Set malganisnovo = ws.Range("C3") Dim malganistotal As Range: Set malganistotal = ws.Range("B3") Dim zuljinnovo As Range: Set zuljinnovo = ws.Range("C4") Dim zuljintotal As Range: Set zuljintotal = ws.Range("B4") Dim thrallnovo As Range: Set thrallnovo = ws.Range("C5") Dim thralltotal As Range: Set thralltotal = ws.Range("B5") Dim illidannovo As Range: Set illidannovo = ws.Range("C6") Dim illidantotal As Range: Set illidantotal = ws.Range("B6") Dim quelthalasnovo As Range: Set quelthalasnovo = ws.Range("C7") Dim quelthalastotal As Range: Set quelthalastotal = ws.Range("B7") Dim stormragenovo As Range: Set stormragenovo = ws.Range("C8") Dim stormragetotal As Range: Set stormragetotal = ws.Range("B8") Dim proudmoorenovo As Range: Set proudmoorenovo = ws.Range("C9") Dim proudmooretotal As Range: Set proudmooretotal = ws.Range("B9") tichondriustotal.Value = tichondriustotal.Value + tichondriusnovo.Value tichondriusnovo.Value = "" malganistotal.Value = malganistotal.Value + malganisnovo.Value malganisnovo.Value = "" zuljintotal.Value = zuljintotal.Value + zuljinnovo.Value zuljinnovo.Value = "" thralltotal.Value = thralltotal.Value + thrallnovo.Value thrallnovo.Value = "" illidantotal.Value = illidantotal.Value + illidannovo.Value illidannovo.Value = "" quelthalastotal.Value = quelthalastotal.Value + quelthalasnovo.Value quelthalasnovo.Value = "" stormragetotal.Value = stormragetotal.Value + stormragenovo.Value stormragenovo.Value = "" proudmooretotal.Value = proudmooretotal.Value + proudmoorenovo.Value proudmoorenovo.Value = "" Application.EnableEvents = True Application.ScreenUpdating = True End Sub
  2. eu quero por um valor na coluna azul e ele passar esse valor e guardar na coluna laranja e conforme eu for botando outros valores na coluna azul ele vá guardando na coluna laranja somando eles e armazenando

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

 

GRÁTIS: ebook Redes Wi-Fi – 2ª Edição

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!