PISCAR INTERVALO CELL QUANDO MUDAR DE VALOR

[ftcj]

O QUE DEVE SER IMPLEMENTADO NESSE CODIGO PARA QUE UM INTERVALO DE CÉLULAS PISQUE?

DESDE JÁ AGRADEÇO SUAS RESPOSTAS. OBRIGADOOOOO! :blush:

Public Sub Piscar_Tela()

On Error GoTo Handle_Error

Columns("C:C").Select

Selection.Interior.ColorIndex = xlNone

Range("C1").Select

For l = 1 To 100 Step 1

'Só está percorrendo as células da coluna C e verificando se o valor é negativo

If Sheets("Cotacao").Cells(l, "C") < 0 Then

For i = 1 To 10 Step 1 'Indica quantas vezes piscará cada célula

If Sheets("Cotacao").Cells(l, "C").Interior.ColorIndex = 6 Then

Sheets("Cotacao").Cells(l, "C").Interior.ColorIndex = xlNone 'Tira a cor

Else

Sheets("Cotacao").Cells(l, "C").Interior.ColorIndex = 6 'Põe a cor

End If

Sleep (10) 'Velocidade (quanto maior o número mais lento)

Next i

End If

Next l

Exit Sub

Handle_Error:

Debug.Print "Número: " & Err.Number & vbCrLf & "Descrição: " & Err.Description & vbCrLf & "Linha: " & Erl & vbCrLf

End Sub

AGRADEÇOOOOOOOOOO !!!!

[Michelle Alves]

Para as células piscarem quando forem alteradas você deve rodar a macro no evento Change na planilha, dessa forma qualquer alteração que você faça elas irão piscar. E para que percorrer outras colunas você precisa alterar o intervalo selecionado nela:

Public Sub Piscar_Tela()

On Error GoTo Handle_Error

Columns("A:Z").Select

Selection.Interior.ColorIndex = xlNone

Range("C1").Select

Editado Março 7, 2009 por Michelle Alves

[ftcj]

NÃO ESTÁ DANDO CERTO! TÁ HAVENDO ERRO DE COMPILAÇÃO. SOU NOVO EM VBA!

ESTÁ "DIZENDO" SUB OU FUNCTION NÃO DEFINIDA.

[Michelle Alves]

Acho que o Sleep que não foi definido. Retire ele e compile. Não deixe de postar os resultados.

[ftcj]

NÃO ESTÁ DANDO CERTO,... SE TIVER UM TEMPINHO EXTRA RESPONDA!

FIZ ASSIM:

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo Handle_Error

Columns("C:d").Select

Selection.Interior.ColorIndex = xlNone

Range("C1").Select

For l = 1 To 100 Step 1

'Só está percorrendo as células da coluna C e verificando se o valor é negativo

If Sheets("Cotacao").Cells(l, "C") < 0 Then

For i = 1 To 10 Step 1 'Indica quantas vezes piscará cada célula

If Sheets("Cotacao").Cells(l, "C").Interior.ColorIndex = 6 Then

Sheets("Cotacao").Cells(l, "C").Interior.ColorIndex = xlNone 'Tira a cor

Else

Sheets("Cotacao").Cells(l, "C").Interior.ColorIndex = 6 'Põe a cor

End If

'Sleep (10) 'Velocidade (quanto maior o número mais lento)

Next i

End If

Next l

'Exit Sub

Handle_Error:

Debug.Print "Número: " & Err.Number & vbCrLf & "Descrição: " & Err.Description & vbCrLf & "Linha: " & Erl & vbCrLf

End Sub

[Michelle Alves]

Você viu o que postei antes ?? tente retirando o Sleep e veja se é isso que você quer.

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo Handle_Error

Columns("C:G").Select

Selection.Interior.ColorIndex = xlNone

Range("C1").Select

For l = 1 To 10 Step 1

'Só está percorrendo as células da coluna C e verificando se o valor é negativo

If Sheets("Cotacao").Cells(l, "C") < 0 Then

For i = 1 To 10 Step 1 'Indica quantas vezes piscará cada célula

If Sheets("Cotacao").Range(l, "C: D").Interior.ColorIndex = 6 Then

Sheets("Cotacao").Cells(l, "C").Interior.ColorIndex = xlNone 'Tira a cor

Sheets("Cotacao").Cells(l, "D").Interior.ColorIndex = xlNone 'Tira a cor

Else

Sheets("Cotacao").Cells(l, "C").Interior.ColorIndex = 6 'Põe a cor

Sheets("Cotacao").Cells(l, "D").Interior.ColorIndex = 6 'Põe a cor

End If

Next i

End If

Next l

'Exit Sub

Handle_Error:

Debug.Print "Número: " & Err.Number & vbCrLf & "Descrição: " & Err.Description & vbCrLf & "Linha: " & Erl & vbCrLf

End Sub

[ftcj]

AGRADEÇO SUA AJUDA. ATÉ MAIS.