Midori

@Tentar Se acontece em outros aplicativos pode ser algo relacionado a configuração do sistema, malware ou problema no teclado.

@Tentar Tem macro no planilha? É só no Excel ou em outros aplicativos? Veja se o mesmo acontece no Word e Bloco de Notas.

@jorgedamasceno Com macro dá para pegar essas variáveis e efetuar o cálculo até convergir para o lucro líquido, p.ex, Sub AtualizaLucro() Dim Codigo As Range Dim Custo As Single Dim Taxa As Single Dim Frete As Single Dim LucroLiq As Integer Set Codigo = [A2] LucroLiq = 10 While Codigo <> "" Do Custo = Codigo(, 3) Taxa = Codigo(, 6) Frete = Codigo(, 7) Codigo(, 10) = (Custo + Taxa + Frete + LucroLiq) / Custo - 1 Loop Until Round(Codigo(, 9), 2) = LucroLiq Set Codigo = Codigo(2) Wend End Sub Após a execução sua tabela ficou assim,

@Gilberto Moreira Seu código espera o controle TxtNomedoVisitante (TextBox) para a entrada do nome da imagem, porém seu fórmulário só tem um botão e aparentemente um controle Image. Entes de colocar mais controles, teste da forma mais simples só com Image1 e CommandButton1. Então abra uma planilha em branco, crie outro fórmulário e adicione esses dois controles (Não modifique os nomes). Deixei o nome da imagem como Teste.bmp para a macro procurar no diretório C:\Users\StarForch\Pictures, mas se quiser outro é só modificar. Antes de rodar você pode comentar a linha do Shell e salvar uma imagem bmp manualmente direto pelo programa e depois executar o formulário e clicar no botão para ver que a imagem será carregada. Assim saberá que o forumulário está carregando a imagem corretamente. Depois apague e imagem do diretório e tire o comentário da linha do Shell. Private Sub CommandButton1_Click() Const DIRETORIO As String = "C:\Users\StarForch\Pictures\" Dim CaminhoFoto As String Dim NomeFoto As String NomeFoto = "Teste.bmp" CaminhoFoto = DIRETORIO & NomeFoto Call Shell(DIRETORIO & "CommandCam.exe /filename " & NomeFoto, vbHide) Call Application.Wait(Now + TimeValue("00:00:05")) Image1.Picture = LoadPicture(CaminhoFoto) End Sub

@Scofieldgyn Pode buscar os dados com PROCV e CORRESP para identificar a coluna, p.ex em B2, =PROCV($A2;Planilha1!$A:$E;CORRESP(B$1;Planilha1!$A$1:$E$1;0);0)

@Beatriz Dorin No teste Se que fez para evitar mostrar o confronto entre o mesmo time, você está verifica o nome deles. Mas também pode verificar se cont é diferente de cont2 como comentei, já que se forem iguais é porque estariam acessando a mesma posição do vetor e portanto o mesmo time.

@jorgedamasceno Como comentei acima, (Preço de custo + Taxa ML + Frete + 10,00)/Preço de custo - 1 = % de lucro Preço de custo * (1 + % de lucro) = Preço da Venda Assim vai chegar no Preço da Venda com base no lucro de 10,00. Não é isso? Porém para calcular Taxa + Frete, sua planilha usa o Preço da Venda e dessa forma vai acabar gerando referência circular nas fórmulas. Tem outra forma de calcular Taxa + Frente sem usar o Preço da Venda?

Esse teste também poderia ser dos índices/contadores, Se (cont <> cont2) então

@jorgedamasceno Você pode pegar a equação e isolar o percentual, p.ex, c = Preço de custo p = % de lucro tx = Taxa ML fr = Frete (c * (1 + p)) - (c + tx + fr) = L Assim com o percentual de 40% vai retornar o lucro líquido de 132,40 como no primeiro produto da sua planilha. Se quer ter um lucro mínimo de 10,00, pode passar esse valor e isolar o percentual: (c + tx + fr + 10)/c - 1 = p Isso dá aprox. 27,12% e aplicando ao custo (c * (1 + p)) chega no preço de venda de 1.207,60 no primeiro produto. No segundo fica 179,10.

@Zamboni_du Isso pode ser feito com macro, Function NovoNumero(Numero As String) As String Dim I As Integer Dim N As String N = Left(Numero, 5) For I = 6 To Len(Numero) Step 5 N = N & "," & Mid(Numero, I, 5) Next I NovoNumero = N End Function Assim é só passar a sequencia para a função que também pode ser usada na planilha como fórmula.

@Gilberto Moreira Shell é uma função para rodar um programa executável da mesma forma que faria com duplo clique no Explorer ou via linha de comando/prompt. O programa CommandCam.exe existe? E se existe basta executar assim para salvar a imagem? Na atribuição de ProgramaFoto você concatenou Shell com duas variáveis aparentemente com o caminho da imagem. Porém essa função não retorna nada relacionado ao caminho do arquivo.

@Endmmans Em vez de testar strings e fazer o cálculo com números constantes para cada um, acho mais simples usar arranjos/matriz para armazenar os tamanhos e valores. Assim poderá passar a posição e usar nos cálculos, p.ex, #include <stdio.h> int main(void){ int codigo = 0; int tamanho = 0; float total = 0; float preco[3][3] = { {6, 10, 18}, {7, 12, 21}, {8, 14, 24} }; const char *tipo[3] = { "Tradicional", "Especial", "Premium" }; puts( "Bem-vindo à sorveteria Ice Cube (-1 para sair).\n" "-----------------------------------------------------------\n" "¦Código ¦ Descricao ¦ (0) P ¦ (1) M ¦ (2) G ¦\n" "¦ 0 ¦ Tradicional ¦ R$6.00 ¦ R$10.00 ¦ R$18.00 ¦\n" "¦ 1 | Especial ¦ R$7.00 ¦ R$12.00 ¦ R$21.00 ¦\n" "¦ 2 ¦ Premium ¦ R$8.00 ¦ R$14.00 ¦ R$24.00 ¦\n" "-----------------------------------------------------------\n" ); while(codigo >= 0){ puts("Entre com o codigo e coluna: "); scanf("%d, %d", &codigo, &tamanho); if(codigo >= 0 && codigo <= 2){ printf( "Você pediu um sorvete sabor %s de R$ %.2f\n", tipo[codigo], preco[codigo][tamanho] ); total += preco[codigo][tamanho]; } } printf( "Os pedidos foram realizados com sucesso." " O valor total foi de R$ %.2f\n", total ); return 0; } A relação de preço e tamanho fica na tabela 3x3 e a entrada recebe a posição. Ainda dá para aplicar mais testes para o retorno do scanf e os valores das entradas para ver se são válidos.

@Revolucao Faça uma cópia da planilha e clique em remover tudo para ver se resolve. Se não der certo tenta novamente com as marcações que aparecem como padrão (não desmarque nada dessa vez).

@Francisco Moala Você pode usar a fórmula DATAM e passar o valor 12 para o parâmetro dos meses, p.ex, =DATAM(HOJE();12) Vai retornar a data de 2024. Para os próximos é só ir passando múltiplos de 12. E outra forma mais simples se quiser apenas retornar o ano: =ANO(HOJE())+1

É para deixar marcado.

@Revolucao Se deixar tudo marcado acho que vai demorar, primeiro tenta só o que tiver XML. Antes feche a planilha e faça numa em branco.

Isso não é algo inesperado ou aleatório. Como as máquinas não podem representar infinitos números de dígitos, como acontece na matemática real, é preciso chegar numa aproximação nesses casos. O problema do "erro de arredondamento" basicamente vem dessa limitação e é assunto de estudo do cálculo numérico. Comentei sobre essa questão da representação do número de ponto flutuante, https://www.clubedohardware.com.br/forums/topic/1553292-imprecisão-com-ponto-flutuante Este link é interessante, tem uma calculadora que mostra a conversão de flutuante para binário, https://www.h-schmidt.net/FloatConverter/IEEE754.html

@Revolucao Tenta fazer uma inspeção em Arquivo > Informações > Verificando se há problemas > Inspecionar documento.

@Nilton Cézar A segunda macro fica assim, Sub Macro() If [C4].Value = "nº no cabeçalho" Then Call Codigo1 Else Call Codigo2 End If End Sub Sem o evento, Sub Macro1() If Application.Intersect([C4], ActiveCell) Is Nothing Then [C9].Select End If End Sub Como testou? A célula C9 só é selecionada se a condição for verdadeira que é quando C4 não está selecionada.

@Nilton Cézar Com o evento SelectionChange essas condições serão testadas toda vez que selecionar alguma célula, Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Application.Intersect([C4], Target) Is Nothing Then [C9].Select End If End Sub A outra macro também é no evento SelectionChange?

@Endmmans Você acabou deixando um ponto e vírgula indevido na linha do if.

@Henrique - RJ Pode ser estoque antigo mesmo, como a anterior que deu problema e eu tinha comprado há pouco mais de 1 ano e nas células marcava o ano de 2015. @joe_federal A fonte é original e está com a tensão certa. Na bateria não tem a data de validade. @alissomrex É nova do AliExpress.

Troquei a bateria e deixei a nova carregando por um tempo, porém ela não passa de 90% e ao tirar o carregador o laptop desliga na hora. Fiz o procedimento de deixar o power pressionando por mais de 1 minuto com tudo desconectado, mas não adiantou. O equipamento já é antigo. Pode ser problema nele ou a bateria veio com problema? Com a bateria antiga só ficava alguns minutos ligado mesmo o sistema mostrando ela carregada. Tem outro procedimento que eu posso tentar?

@Diegodcr Coloque estas linhas no fim do procedimento fora do loop. Assim vai concatenar com fórmula e depois deixar como valor. Set AreaDest = AreaDest.CurrentRegion.Resize(, 1).Offset(, 2) AreaDest.Formula = "=RC[-2]&RC[-1]" AreaDest.Value = AreaDest.Value

@Diegodcr Essas planilhas tem mais dados nas outras colunas, não dá para usar CurrentRegion como nos primeiros anexos. Alterei a macro para contar a última linha com algum dado na planilha. Sobre a duplicidade veja se não tem planilha repetida no diretório. Sub CopiaValoresB() Dim Arquivo As String Dim Linhas As Long Dim PlanOrig As Workbook Dim AreaOrig As Range Dim AreaDest As Range Set AreaDest = ThisWorkbook.Sheets("Plan1").[B1] Arquivo = Dir(ThisWorkbook.Path & "\*.xlsx") While Arquivo <> "" If Arquivo <> ThisWorkbook.Name Then Set PlanOrig = Workbooks.Open(ThisWorkbook.Path & "\" & Arquivo) Set AreaOrig = PlanOrig.ActiveSheet.[C8] Linhas = PlanOrig.ActiveSheet.UsedRange.Rows.Count - AreaOrig.Row If Linhas > 0 Then Call AreaOrig(1, 1).Copy(AreaDest.Resize(Linhas)) Call AreaOrig.Offset(1).Resize(Linhas).Copy(AreaDest(, 2)) Set AreaDest = AreaDest.Offset(Linhas) End If Call PlanOrig.Close(False) End If Arquivo = Dir Wend End Sub