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

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.

Caramba, muito bom o tópico! Veio de encontro a tudo que sempre me falaram sobre estabilizadores. Agora me deixou com a pulga atrás da orelha. Veja meu caso e me dê uma opinião: Sai do RJ e me mudei para Recife. Meu Home Theather, Modem DSL e Roteador são 110v. Chegando em Recife, para não realizar a troca de todos esses equipamentos, comprei um Estabilizador ( http://www.rcg.com.br/template.php?pagina=produtos_tela3.php&id_grupo=4&id_node=4&id_item=108 ) de 700w onde a entrada é 220v e a saída 115v e liguei tudo nele, inclusive o PC e monitor. Neste caso, o que é aconselhado fazer, tendo em vista que o apartamento que aluguei não tem aterramento. Deixo tudo como está, ligado no estabilizador ou vou ter algum ganho no consumo de energia ligando os aparelhos Bivolts direto na tomada deixando o estabilizador somente para os 110v? Leve em consideração que meu micro fica 24hs ligado. Minha fonte é uma Seventeam ST 500BAZ Desde já agradeço aos esclarecimentos.

Pelo forum que foi postado e experiência da galera aqui, desnecessário seu comentário.

Caso a dica do amigo não lhe atenda, você pode fazer isso por macro. Vamos supor que os valores estejam na D1 até D5 em Plan1. A macro ficaria assim: For linha = 1 To 5 novovalor = Worksheets("Plan1").Range("D" & linha).Value * 1.2 Worksheets("Plan1").Range("D" & linha).Value = novovalor Next linha para colocar mais linhas, é só alterar o "To 5" para o numero final de linha de sua planilha

Pelo que eu entendi você quer criar um contador tipo relogio, certo???? Você pode colocar o código abaixo na macro de sua planilha, mas não conseguirá fazer nada mais nela... Do Calculate Loop