gtsalikis Obrigado, mas o código que vc me passou ele aparece a mensagem quando eu limpo a celula e eu preciso do contrario, a mesangem deve aparecer ...

tenta assim: Sub SALVAR() ' ' SALVAR Macro ' Dim nome_da_planilha As String nome_da_planilha = ThisWorkbook.Name nome_da_planilha = "E:PLANILHAS...

Veja se pode ser assim: Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False Application.EnableEvents = F...

Comece por aqui: viewtopic.php?t=11249&p=59652

Bom dia, Primeiro, não utilize letras maiúsculas, isso é o mesmo que gritar. (Além de ser uma convensão para a informática, é desagradável mesmo). S...

nesse caso, uso o evento de planilha worksheet change, vai ficar assim: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 1 An...

Vc quer validar a célula, ou vc quer uma fórmula para ficar ao lado? Um modelo da planilha ajudaria a entender o teu problema.

Pode ser alguma coisa na planilha, um detalhe no código, ou o tipo de variável, enfim, sem ver a planilha, não sei dizer, mas fiz um exemplo em anexo ...

Coloque essta fórmula em C3 e arraste: =SEERRO(INDIRETO("E"&SOMARPRODUTO((NÃO(ÉERROS(PESQUISAR($E$3:$E$8;B3))))*(LIN($E$3:$E$8))));&quo...

Isso: =SE(OU(CONT.SE($F$5:F5;F5)+CONT.SE('2013'!$F$5:$F$34;F5)=1;F5="");"";"REPETIDO") ???

tenta assim: Sub salveteste() Dim Caminho As String Dim Arquivo As String Caminho = Range("i29").Value2 Arquivo = Range("i31")....

Escuderia, veja se este código atende, ele vai retornar a primeira planilha que tenha a matrícula ou o nome do funcionário. Sub Busca3D_GT() Dim str...

Veja se ajuda. Quadro_GT.zip

Eu até tava olhando a tua fórmula, mas tá meio difícil entender o que vc quer com tantos SEs. Parece que tem coisa sobrando, ou que não está explicado...

fiz sem usar VBA. Veja se ajuda. Para_yvan _GT.zip