Flavio Soares

Pode ter sido várias coisas. Fica difícil identificar...

Entra no MSCONFIG e na aba inicialização de programas desabilita tudp que você não utiliza que esteja ali.

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.

Fique atento para a arquitetura do novo sistema. Se você passar de um sistema 32bits para um sistema 64bits ou vice-versa, terás que realizar uma instalação limpa.

Nas propriedades da placa de vídeo, como está a alocação da memória? (Em Painel de Controle\Vídeo\Resolução de Tela e depois em configurações avançadas).

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

Então vai ficar assim, você seleciona a planilha toda e marca toda ela como desbloqueada. ActiveSheet.Unprotect ("Teste") Dim ColunasC As Range Set ColunasC = Range("C2:C20000") If Not Application.Intersect(ColunasC, Range(Target.Address)) Is Nothing Then linha = Target.Row Range("i" & linha).Value = DateTime.Now End If Range("I"&linha).Select Selection.Locked = True ActiveSheet.Protect ("Teste"), DrawingObjects:=True, Contents:=True, Scenarios:=True

Selecione toda a planilha, vá em formatar células, na aba proteção e marque todas como desbloqueadas, depois selecione somente a coluna I e marque como bloqueada. Agota insira os códigos abaixo para Desbloquear a planilha e após lançar a hota, bloquear novamente. Vamos supor que o Password seja Teste. No inicio do código coloque: ActiveSheet.Unprotect ("Teste") E no final do código coloque: ActiveSheet.Protect ("Teste"), DrawingObjects:=True, Contents:=True, Scenarios:=True Vai ficar assim: ActiveSheet.Unprotect ("Teste") Dim ColunasC As Range Set ColunasC = Range("C2:C20000") If Not Application.Intersect(ColunasC, Range(Target.Address)) Is Nothing Then linha = Target.Row Range("i" & linha).Value = DateTime.Now End If ActiveSheet.Protect ("Teste"), DrawingObjects:=True, Contents:=True, Scenarios:=True

Na formula que lhe enviei, faça o seguinte: Substitua Range("l" & linha).Value = DateTime.Now Por Range("l" & linha).Value = Environ("ComputerName")

Tenta assim: Private Sub Worksheet_Change(ByVal Target As Range) Dim Colunas As Range Set Colunas = Range("C1:C20000") If Not Application.Intersect(Colunas, Range(Target.Address)) Is Nothing Then linha = Target.Row Range("l" & linha).Value = DateTime.Now End If End Sub

Tenta substituindo o LIN(A1) por LIN(A5)-4 =SE(ÍNDICE(Planejamento!A:A;ARREDONDAR.PARA.CIMA((L IN(A5)-4)/2;0);1)=0;"";ÍNDICE(Planejamento!A:A;ARREDONDAR.PA RA.CIMA((LIN(A5)-4)/2;0);1))

Em A1 da planilha de acompanhamento digite: =SE(ÍNDICE(Planejamento!A:A;ARREDONDAR.PARA.CIMA(LIN(A1)/2;0);1)=0;"";ÍNDICE(Planejamento!A:A;ARREDONDAR.PARA.CIMA(LIN(A1)/2;0);1)) Depois é só copiar para as demais linhas da planilha.