Flavio Soares

Seja sincero, você realmente acredita nisto? Responda as perguntas abaixo e tire sua conclusão: Qual a garantia de que o mesmo serial não foi vendido para outra pessoa? O vendedor vai lhe emitir uma Nota Fiscal? Se seu Windows for identificado como FALSO, você vai poder reclamar com a Microsoft? Minha Sugestão: Evite dor de cabeça. Software é investimento. Fuja da dúvida, compre original.

Supondo que a nota esteja em A1, use: =MARRED(A1;0,5) Obs.: Office 2007

Use o SOMASE. Supondo que as letras estejam na coluna A e os valores em B. =SOMASE(A:A;"F";B: Assim ele vai somar todas as células em B onde A é igual a "F"

Posta sua planilha em www.sendspace.com que dá para fazer....

Deve ser porque a macro está rodando na planilha ativa no momento da execução. Tenta colocando o comando para selecionar sua planilha antes: Sheets("Plan1").Select

Você pode postar o arquivo em www.sendspace.com e disponibilizar o link para pode dar uma olhada?

Provavelmente eles foram colados como TEXTO. Formate as células como número, selecione algumas e pressione F2 e depois enter para ver se o problema persiste.

Desconheço a maneira de colocar por default, mas para ir quebrando o galho, adicione na Barra de Ferramentas Acesso Rápido.

Realmente está quebrado (é um post de 2008!) e eu não tenho o arquivo aqui! Mas nos posts seguintes, mostra a macro:

Ah tá, coloca assim então: Em C2 coloque =se(B2="";"";PROCV(B2;$AB:$AE;2;0)) Em D2 coloque =se(B2="";"";PROCV(B2;$AB:$AE;3;0))

Como assim deixar o valor oculto?

Em C2 coloque =PROCV(B2;$AB:$AE;2;0) Em D2 coloque =PROCV(B2;$AB:$AE;3;0)

Posta sua planilha e explique o que você quer para podermos lhe ajudar... Hospede ela em www.sendspace.com e disponibilize o link aqui.

Uma lista através de uma validação de dados não lhe atende?

Opa! Desculpe, falha minha, considere este (O código de desbloqueio e bloqueio devem ficar entre o IF e End if). Fica assim: Dim ColunasC As Range Set ColunasC = Range("C2:C20000") If Not Application.Intersect(ColunasC, Range(Target.Address)) Is Nothing Then ActiveSheet.Unprotect ("Teste") linha = Target.Row Range("i" & linha).Value = DateTime.Now Range("I" & linha).Locked = True ActiveSheet.Protect ("Teste"), DrawingObjects:=True, Contents:=True, Scenarios:=True End If