| Alerta com macro | |
|
|
Autor | Mensagem |
---|
CJCM
Mensagens : 35 Data de inscrição : 11/07/2014 Idade : 45 Localização : Lisboa
| Assunto: Alerta com macro Sex Jul 11, 2014 2:15 pm | |
| Bom dia!
Preciso da vossa ajuda. A situação é simples mas como não sou pró já estou nisto há tempo demais.
Tenho um ficheiro em excel, que serve de agenda, onde se marcam visitas e sempre que se seleciona um técnico, se ele estiver de férias queria que aparecessem um alerta, e se ele não estiver disponivel outro alerta.
Na coluna AD7:AD5000 sempre que se insere um técnico numa linha e na coluna AD aparece F de férias deve aparecer uma mensagem "O técnico está de férias". Na coluna AE7:AE5000 sempre que se insere um técnico numa linha e na coluna AE aparece, ou OKKO ou KOOK, deve aparecer uma mensagem "O técnico não está disponivel".
Nas colunas AD e AE existem fórmulas.
Já tentei a seguinte macro, mas dá-me erro, não sei o que estará mal:
Sub worksheet_change(ByVal faixa As Range) Dim i As Integer For i = 6 To 5000 If Cells(i, "AD").Value = "F" Then MsgBox ("O técnico está de férias neste dia") End If Next End Sub
Obrigado, espero ter sido clara | |
|
| |
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: Re: Alerta com macro Sex Jul 11, 2014 2:41 pm | |
| Bom dia!! Tente assim - Código:
-
Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer For i = 6 To 5000 If Cells(i, "AD").Value = "F" Then MsgBox ("O técnico está de férias neste dia")
Next End Sub Att | |
|
| |
CJCM
Mensagens : 35 Data de inscrição : 11/07/2014 Idade : 45 Localização : Lisboa
| Assunto: Re: Alerta com macro Sex Jul 11, 2014 4:24 pm | |
| Boa tarde, Continua a dar erro, erro tipo 13 | |
|
| |
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: Re: Alerta com macro Sex Jul 11, 2014 5:46 pm | |
| Bom dia!!
Então me mande seu arquivo pois eu não tive problemas!!!!!
Att | |
|
| |
CJCM
Mensagens : 35 Data de inscrição : 11/07/2014 Idade : 45 Localização : Lisboa
| Assunto: Re: Alerta com macro Sex Jul 11, 2014 5:57 pm | |
| Assim que me for possivel irei enviar.
Obrigado pela ajuda! | |
|
| |
CJCM
Mensagens : 35 Data de inscrição : 11/07/2014 Idade : 45 Localização : Lisboa
| Assunto: Re: Alerta com macro Sex Jul 11, 2014 7:14 pm | |
| Voltei a tentar e já consegui. Se voltar a ter problemas voltarei a questionar. Obrigado pela sua ajuda | |
|
| |
CJCM
Mensagens : 35 Data de inscrição : 11/07/2014 Idade : 45 Localização : Lisboa
| Assunto: Re: Alerta com macro Sex Jul 11, 2014 7:25 pm | |
| Como faço para inserir outro alerta, mas agora à coluna ao lado:
Tentei assim:
Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer For i = 6 To 32 If Cells(i, "AD").Value = "F" Then MsgBox ("O técnico está de férias neste dia")
Next For i = 6 To 32 If Cells(i, "AE").Value = "KOOK" or If Cells(i, "AE").Value = "OKKO" Then MsgBox ("O técnico não está disponivel nesse horário")
Next End Sub
Mas depois fica o segundo alerta sempre activo, tenho que fazer sucessivos ok, para o alerta desaparecer, sem que se tenha verificado a condição | |
|
| |
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: Re: Alerta com macro Sex Jul 11, 2014 8:20 pm | |
| Boa tarde!!
Tem como postar seu arquivo modelo?
Att | |
|
| |
CJCM
Mensagens : 35 Data de inscrição : 11/07/2014 Idade : 45 Localização : Lisboa
| Assunto: Re: Alerta com macro Dom Jul 13, 2014 6:41 pm | |
| Boa tarde,
Já descobri, era o "or" no If, não sabia que não podia utilizar.
Obrigado novamente pela disponibilidade e ajuda. | |
|
| |
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: Re: Alerta com macro Dom Jul 13, 2014 9:32 pm | |
| Boa tarde!!
Parabéns por resolver! Obrigado pelo retorno!
Att | |
|
| |
Conteúdo patrocinado
| Assunto: Re: Alerta com macro | |
| |
|
| |
| Alerta com macro | |
|