Página 1 de 1
Não foi possível executar a macro
Enviado: 12 Jul 2019 às 23:27
por Dunguinha
Como posso resolver o problema da pasta em anexo que da da msg que não foi possível executar a macro.
Basta colocar um na valor na célula colorida e teclar enter.
Re: Não foi possível executar a macro
Enviado: 13 Jul 2019 às 07:05
por babdallas
Veja se é isso.
Código do módulo
Código: Selecionar todosPublic lngCont As Long
Public Sub Alerta(iLin As Long, iCol As Long, iCont As Long)
Dim strProc As String
strProc = "'Alerta " & iLin & ", " & iCol & ", " & iCont & " '"
With Sheets(1).Cells(iLin, iCol).Interior
If .Color = vbRed Then
.Color = vbYellow
Else
.Color = vbRed
End If
End With
lngCont = lngCont + 1
If lngCont <= iCont Then
If ActiveSheet.Name = "Plan1" Then
Application.OnTime Now + TimeValue("00:00:01"), strProc
End If
End If
End Sub
Código do evento Change
Código: Selecionar todosPrivate Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
lngCont = 0
If Target.Address = "$D$3" And Target.Value2 > 0 Then Alerta 3, 4, 1
Application.EnableEvents = True
End Sub
Não foi possível executar a macro
Enviado: 13 Jul 2019 às 09:17
por Dunguinha
Bom dia. Obrigado pela ajuda.
O código esta ótimo mas gostaria que a célula ficasse piscando intermitente, não só uma vez.
Re: Não foi possível executar a macro
Enviado: 13 Jul 2019 às 10:04
por babdallas
Tente substituir esta parte do código:
Código: Selecionar todoslngCont = lngCont + 1
If lngCont <= iCont Then
If ActiveSheet.Name = "Plan1" Then
Application.OnTime Now + TimeValue("00:00:01"), strProc
End If
End If
por esta
Código: Selecionar todosIf ActiveSheet.Name = "Plan1" Then
Application.OnTime Now + TimeValue("00:00:01"), strProc
End if
Não testei, mas provavelmente vai ficar executando isso o tempo todo. Não sei se vai ficar legal não.
Agora, qual o motivo de deixar a célula piscando? Simplestemente deixar de um cor que chame a atenção ou enviar uma mensagem não resolveria?
Re: Não foi possível executar a macro
Enviado: 13 Jul 2019 às 12:40
por Dunguinha
Muito bom, perfeito.
Obrigado.
Não foi possível executar a macro
Enviado: 13 Jul 2019 às 12:47
por Dunguinha
Agora, qual o motivo de deixar a célula piscando? Simplesmente deixar de um cor que chame a atenção ou enviar uma mensagem não resolveria?
A ideia é chamar a atenção do usuário para não repetir um número que não deve. Coisa de "VB Maníaco", se é que me entende, rsrs.