Macro p registra máxima e mínima

deejaywesley · 23 de janeiro de 2013

olha

deve ter dado erro porque você deve ter colocado como você pois ai em cima D1+E1

isso ai eu coloquei so como ex

no caso você tem q substituir pela formula que você tem em A1

e colocar igual ta no meu codigo

que vai ficar assim com a sua formula

Sheets("Plan1").Range("A1").Value = "=E1+E2"

essa linha ai, age como se você tivese digitado essa formula em A1, então você tem que colocar a formula interia entre as ""

a mesma coisa com as demais linhas

Sheets("Plan1").Range("A2").Value = "=SPIN|COTC!'BRKM5,LAST'"

eletron1791 · 23 de janeiro de 2013

Deejaywesley você é o cara.

Parece que vai funcionar sim, só que deu novamente aquele erro D1+E1 e eu já havia corrigido colocando a soma justamente nestas células. Dá este erro quando tento fechar a planilha. Tenho que observar melhor, farei isso mas acho que vai dar certo sim.

Muito obrigado, qualquer coisa eu posto aqui novamente.

Valeu cara.

eletron1791 · 24 de janeiro de 2013

Deejaywesley, muito obrigado, está funcionando 100%.

Boas energias aí para a sua vida.

À propósito, como seria uma macro assim:

Se o valor contido em A1 ficar em azul, em D1 aparece a palavra "certo"

Se o valor em A1 ficar em vermelho, em D1 aparece a palavra "errado"

Independente se houver mais formatações em A1 como por exemplo negrito ou itálico.

Se for complicado deixa pra lá.

deejaywesley · 24 de janeiro de 2013

Bom Dia!

que bom q funcionou!

tudo de bom pra você tbem!

quanto a sua pergunta, eu ainda to fraquinho em VBA, e isso ai eu nao sei nao!

e pelo q entendi da sua pergunta, você quer que o VBA reconheça a cor do texto

se é azul ou vermelho pra excultar uma tarefa...

nao sei se tem como nao viu, essa parte ai eu deixo para os feras em VBA aqui do forum!

Um Abraço parceiro!

Patropi · 28 de janeiro de 2013

Conforme solicitado, estamos reabrindo este tópico!

eletron1791 · 28 de janeiro de 2013

Caro deejaywesley, fiz uns ajustes e minha planilha ficou ocupando de G4 a H35. Ou seja, o que era B2 ficou G4 a G35 e o que era C2 ficou H4 a H35. Estas colunas variam a cor e bipam conforme o valor das células C4 a C35.

A parada é pôr o BIP para apitar somente na primeira vez que C4 for igual a G4 ou a H4. Digamos que C7 variou e ficou igual a G7, altera a cor de G7 e ocorre o BIP. A cor fica alterada indefinidamente em G7 e o BIP não pode mais tocar por causa de G7. O BIP só deve voltar a tocar em qualquer outra igualdade exceto com G7 e assim por diante. Sempre que ocorrer a igualdade, ocorre o BIP só uma vez para aquela dada igualdade.

Obrigado mais uma vez !

deejaywesley · 28 de janeiro de 2013

Boa Tarde!

Bom! VAmos lá.....

em esta pasta de trabalho, acresente a linha em vermelho!

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Sheets("Plan1").Range("B2:C2").Interior.Color = xlNone

Sheets("Plan1").[DW1: DX100] = Clear

End Sub

entre os : e o D coloquei um espaço pra na aparecer a carinha, tire o espaço quando colocar em sua planilha!

No codigo da Plan1, no meu codigo, acresente as parte em Vermelho!

Set Colunas = Range("A2:A20")
If Not Application.Intersect(Colunas, Range(Target.Address)) Is Nothing Then

linha = Target.Row

On Error Resume Next

If Range("A" & linha).Value = Range("B" & linha).Value And Range("DW" & linha).Value = "" Then

Call Tocar

Range("B" & linha).Interior.Color = RGB(255, 0, 0)

Range("DW" & linha).Value = Range("A" & linha).Value

End If

If Range("A" & linha).Value = Range("C" & linha).Value And Range("DX" & linha).Value = "" Then

Call Tocar

Range("C" & linha).Interior.Color = RGB(0, 0, 255)

Range("DX" & linha).Value = Range("A" & linha).Value

End If

End If