Este fórum está sendo desativado

Segue exemplo. Espero que ajude.

Nelisa, aqui funcionou. Lembrando que especie, Gato e Cachorro foram nomeados como intervalos nomeados em gerenciador de nomes. Em especie tinha Gato e Cachorro nas células a2 e a3. Nomeei estas células como especie. Nas celulas b2 e b3 digitei raça g1 e raça g2. Nomeei estas células como Gato. Nas ...

Insira o seguinte código na sua planilha (em Plan1) e veja se funciona (não esquece de excluir a formatação condicional). Desconheço uma forma de fazer isso que você quer por formatação condicional. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Value <> "" Then Target.Inter...

Você quer que ao abrir o arquivo ele retorne a data e hora atual, porém sem que atualize enquanto você mexe na planilha? Se for isso, teria que usar VBA. aperte as teclas Alt+F11, duplo clique em EstaPasta_de_trabalho, e copie este código: Private Sub Workbook_Open() Plan1.Range("H10").Val...

Veja e isso funciona.

Private Sub Workbook_Open()
Application.Windows("PastadeTrabalho").Visible = False
End Sub

Walter,

que eu saiba não é possível classificar dados com células mescladas. O ideal será vc não possuir células mescladas, repetindo a descrição do medicamento.
Caso não queria isso, aí você teria que usar VBA.

Nelisa, a função indireto não tem no VBA. Sugiro que vc faça algo parecido com isso: Private Sub cmb_especie_Change() If Me.cmb_especie.Value = "" Then Me.cmb_raca.RowSource = "" Else Me.cmb_raca.RowSource = Me.cmb_especie.Value End If End Sub Private Sub UserForm_Activate() Me.c...

Veja se esse código ajuda.

Private Sub cmb_salvar_Click()

If frm.obt_saida.Value = True Then
If frm.TextBox1.Value > frm.Label3.Caption Then
MsgBox "A quantidade digitada é maior que o saldo em estoque! Verifique", vbCritical, "Atenção"
End If
End If

End Sub

Veja se é o que você precisa.

Kledison, o que ele quer é ordenar na seguinte ordem de prioridade:
1) Disciplina do menor para o maior
2)Idade do maior para o menor.

Dá pra fazer facilmente como classificação de dados. Agora se quiser automatizar, aí ou VBA ou usando fórmulas. Ele quer usar fórmulas.

A função agora() é volátil. Para fazer o que você quer precisa de VBA. Coloque no evento change da planilha1.

Private Sub Worksheet_Change(ByVal Target As Range)

If Planilha1.Cells(Target.Row, 3).Value = Target.Value Then
Planilha1.Cells(Target.Row, 1) = Now
End If


End Sub

A forma mais fácil para mim é usar VBA. Aquele código deu erro depois que você fez alterações porque não fiz ele de forma genérica, mas somente para resolver um problema específico. Não consegui pensar em uma maneira mais simples de fazer com fórmulas. Fica aí o desafio para ver se alguém consegue s...

Segue minha contribuição.

Não sei se entendi, mas se você quer uma data específica, vc pode usar a função data. Exemplo: =DATA(2017;2;15) é a data de 15/02/2017. Ela sempre vai ficar fixa. Quando você disse "se digitar algo em A1, B1 grava a data", gravar a data onde? Digitar que tipo de informação em A1? Que data?...

Sub teste() Dim prox_lin As Long With Plan1 'Próxima linha a ser preenchida prox_lin = .Cells(.Rows.Count, 3).End(xlUp).Row + 1 'Copia as fórmulas das linhas anteriores para o intervalo (colunas B a M) .Range(.Cells(prox_lin, 2), .Cells(prox_lin, 13)).Formula = .Range(.Cells(prox_lin - 1, 2), .Cells...

Veja se atende a sua necessidade.

Veja o arquivo em anexo Fiz com fórmula. Tive que usar muitas colunas auxiliares, Ainda não consegui pensar em uma maneira mais direta de fazer, mas deve ter jeito.

Deixa eu entender. Se a coluna E for vazia tem que aparecer inadimplente? Se a coluna E for menor que BB1, então é Amortizado Antigo? É isso?

Veja se atende o que você quer.

Veja se atende.