diego_janjao

A planilha não tem nada demais e não entendi o que você deseja. Explique melhor e disponibilize um arquivo que seja igual ou o próprio arquivo para que possamos te ajudar com exatidão.

Supondo que os dados estejam na coluna A: Sub Macro1() ' ' Macro1 Macro ' ' Columns("A:A").Select ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Add Key:=Range("A1"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Plan1").Sort .SetRange Range("A1:B6") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("A1").Select End Sub

@CasaDoHardware O problema aí é que ele teria que digitar a data por completo, e como eu também já havia sugerido isso e ele alegou que queria digitar apenas o dia, não daria certo

@filgante veja se é isso que deseja: DIA SEMANA.xlsx

se eu entendi bem, nem precisa de fórmula. O que você precisa fazer é: Clicar com o botão direito, ir em Formatar Célula, escolha Data, e depois escolha o tipo 14-mar-12. Assim, toda vez que você digitar: 15/12, por exemplo, a célula se transformará em 15-dez-16

@Basole , infelizmente não consegui baixar o seu arquivo, mas te conhecendo com certeza atenderia minhas necessidades. @Edson Luiz Branco, funcionou perfeitamente. Muito obrigado pela ajuda e principalmente pela explicação.

Fiz aqui e não deu certo. @DJunqueira , tentei adequar a sua ideia a minha mas também sem sucesso. Olhando a sua planilha, realmente seria mais fácil fazer com fórmula normal, mas o que eu queria era o mesmo que do outro tópico, que o resultado aparecesse na mesma célula que eu digito o valor. No meu caso, ao digitar 1000 na célula H11, ela deverá somar 1750 e dividir por F11, ou seja, ao colocar 1000 em H11, H11 se transformará em 5,5. É isso que eu preciso que a planilha faça Ficha de Análise - Pão de Milho.7z adicionado 24 minutos depois Fazendo uns testes aqui agora, esse código funciona: Option Explicit Public Valor As Variant, Interv As Range Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Set Interv = [H11:H100] ' Estabelece o intervalo If Not Intersect(Target, Interv) Is Nothing Then If Target.Cells.Count > 0 Then Target(1, 1).Select Valor = Target(1, 1).Value End If End Sub Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, Interv) Is Nothing Then If IsNumeric(Valor) And IsNumeric(Target.Value) Then Application.EnableEvents = False Target.Value = (Target.Value + 1750) / 500 'Trocar esse 500 por um comando que leia a célula anterior a que está sendo digitada Application.EnableEvents = True End If End If End Sub Na parte de (Target.Value + 1750) / 500, estes 500 é que devem ser alterados para um comando que leia a célula a esquerda desta que estamos digitando.

Pessoal, bom dia. Mais uma dúvida: Tenho um código que faz os cálculos em Range específico, porém eu preciso que ele calcule com os dados da célula anterior, exemplo: Ao colocar o valor em C1, ele soma 1750 e divide por B1, mas o código só calcula a divisão com uma célula específica, e eu queria que ele sempre fizesse com a coluna anterior, exemplo: em C2 ele tem que dividir por B2, em C3 dividir por B3... acredito que seja alguma coisa com Colum Option Explicit Public Valor As Variant, Interv As Range Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Set Interv = Range("H11:H100") ' Estabelece o intervalo If Not Intersect(Target, Interv) Is Nothing Then If Target.Cells.Count > 1 Then Target(1, 1).Select Valor = Target(1, 1).Value End If End Sub Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, Interv) Is Nothing Then If IsNumeric(Valor) And IsNumeric(Target.Value) Then Application.EnableEvents = False Target.Value = (Target.Value + 1750) / [F11] Application.EnableEvents = True End If End If End Sub Ficha de Análise - Pão de Milho.7z

Realmente é algo parecido com o que necessito mas não faço ideia do que modificar no código para que realize a operação que necessito: Suponha que seja em C1 onde deveria ocorrer o cálculo, =(C1+1750)/B1 saberia me dizer como modificar? adicionado 2 minutos depois @Edson Luiz Branco Olhando a resposta do @DJunqueira verifiquei que foi escrita por você: Macro escrita por Edson Luiz Branco em 7/10/16 no fórum Clube do Hardware Macro escrita por Edson Luiz Branco em 7/10/16 no fórum Clube do Hardware mas infelizmente não entendo o suficiente para realizar as adequações que necessito, que seriam: Suponha que seja em C1 onde deveria ocorrer o cálculo, =(C1+1750)/B1 saberia me dizer como modificar?

Pessoal, bom dia. Estou com uma dúvida e gostaria da ajuda de vocês: Preciso fazer com que o valor digitado faça um cálculo simples na própria célula. Por exemplo, ao digitar 1500 na célula B1, eu quero que este número já seja divido pela célula A1, sendo assim, se em A1 estiver 3, ao digitar 1500 na célula B1 o valor se transformará em 500. Obrigado.

@Edson Luiz Branco funciona mesmo!

Tente o seguinte: =$A$1+B1 adicionado 4 minutos depois Testei e não dá certo. Tente o seguinte: =$A$1+B1

pode, o seerro é um "Se erro", caso aconteça um erro na fórmula aparecer tal coisa, que no caso eu coloquei ficar em branco.

acho que uma macro daria pra fazer isso, mas ela tomaria um certo tempo para realizar esta tarefa

pelo o que entendi é isso que você quer: Capa de lote.xlsx

Tentei aqui e não deu certo. E sim, seria apenas uma imagem. Cada registro que eu abro tem um número único e uma imagem correspondente. E por isso que eu queria que a macro buscasse na pasta indicada já a imagem do número em questão.

Grande @Basole ! Uma pergunta: Caso eu queira definir uma imagem especifica da pasta, como por exemplo: IMG_01.JPG, sendo que a informação do nome da imagem viria de uma célula, como eu poderia fazer isso?

@Leandro.Motta1990 Boa tarde, Leandro. Não seria mais fácil então criar a busca por macro do primeiro item e os demais apenas um procv simples?

@deciog Décio, seria muito incômodo se te pedisse pra explicar como foi feito? Gostei do que vi. Não conhecia a função Endereço

Mas é exatamente o que faz nas respostas que demos

@Patropi é que na verdade eu estava cochichando. No vídeo consegue-se ouvir minha esposa acordando.

obrigado pela dica! Vou procurar ele.

@DJunqueira tentou deixar o vídeo em 1080p? Como fiz a gravação pela tela do celular, ele realmente deve ter explodido os pixel na gravação

infelizmente o fórum está com problemas na hospedagem de arquivos, sendo impossível baixar os arquivos. Mas a dúvida que você tem não é muito difícil: e como os arquivos não funcionam, gravei este vídeo rapidinho aqui pra te ajudar "sim, foi feito agora e de madrugada"

Deve estar com algum problema no servidor, pois não consigo baixar nada, mas consiste-se em fazer o seguinte: formatação condicional>Nova Regra>Opção de fórmula> =SE($E$3=1;1;0) e quando selecionar a opção Não Aplicável a célula ficará assim: