Midori

O que quis dizer com "resultado da C2"? Não entendi seu exemplo do último comentário. Se possível mostre como a planilha fica antes do resultado. E depois um exemplo de como deve ficar.

@Tentar Os dados são as datas e o resultado é da fórmula que postei?

Se entendi o que quer fazer, cole a fórmula em B2 e arraste para as outras. =SE(E(A2>=DATA.VALOR("01/04/2023");A2<=DATA.VALOR("31/12/2023"));A2;"") Obs: No caso de A20 não retornou nada porque tem um espaço na célula (ou está no formato texto). Para deixar no formato correto você editar manualmente ou acrescentar a fórmula VALOR na outra para deixar automático se tiver mais casos assim.

@Martti Não seria melhor fazer esse relatório no Word? Assim a planilha só seria a base com os dados a serem apresentados no documento (Correspondências > Selecionar Destinatários).

@Revolucao A tabela do word suporta fórmulas, mas é um recurso limitado se comparado ao excel. Outra alternativa é com uma planilha em Inserir > Planilha do Excel. Talvez assim fica mais fácil formatar o documento e configurar a apresentação das informações.

@paulocezarpicos Deixei a seleção da coluna I no botão, veja se assim resolve, Private Sub BTNOK_Click() Dim Acumulado As Range Dim Leitura As Range Set Acumulado = [Z8] If Acumulado.Value <> "" Then Set Acumulado = Acumulado(0).End(xlDown)(2) End If Acumulado.Value = TXTleitura.Value Acumulado(, 3).Value = TXTdata.Value Set Leitura = [I6] If Leitura.Value <> "" Then Set Leitura = Leitura(0).End(xlDown)(2) End If Leitura.Select End Sub

@rieidi_gamer Você pode consultar a documentação, lá encontrará os métodos necessários e exemplos para adaptar no seu código, https://learn.microsoft.com/en-us/dotnet/api/system.io?view=net-7.0

@Luc Rosenhaim Seu código devia funcionar. Antes de rodar veja se não tem nada pendente no MS Outlook e se sincronizou e baixou todas as mensagens. Ou se sua conta de e-mail está configurada corretamente.

Se possível anexe a planilha com o formulário. Pode ser com dados fictícios.

Se possível anexe a planilha onde seja possível efetuar testes. Pode ser com dados fictícios.

@Srt2 Para isso tem a fórmula CONT.SES que pode receber mais de um critério, p.ex, =CONT.SES(A1:T1;">10";A1:T1;"<20")

@Elton Johanne Isso pode ser feito com Power Query ou VBA. Tenta a primeira forma que é mais simples, é só selecionar o diretório com os arquivos e configurar: Dados > Obter Dados > De Arquivo > Da Pasta.

Não tem nenhum erro e está como pedido no enunciado. Para as entradas coloque a idade primeiro para sair sem ter que entrar com todas as informações antes, p.ex, Enquanto Idade <> -1 Faca Escreval("Informe a sua idade ou digite -1 para encerrar") Leia(Idade) Se(Idade > -1) então ... FimSe FimEnquanto Assim só vai pedir as outras se a idade for maior que -1.

@Eli Almeidaa Na fase de testes do código em vez de fazer um programa interativo, atribua entradas aleatórias ou predefinidas. Assim não terá que ficar digitando cada valor toda vez que rodar o programa. Aí p.ex vai mostrar as notas, matrículas e conceitos de 75 alunos, Algoritmo "Notas" Var Conceito: caractere Nota: Real Aluno: Inteiro Matricula: Inteiro Inicio Para Aluno <- 1 Ate 75 Faca Matricula <- 1000 + Aluno Nota <- Randi(11) Se(Nota <= 4.9) então Conceito <- "D" SeNao Se(Nota <= 6.9) então Conceito <- "C" SeNao Se(Nota <= 8.9) então Conceito <- "B" SeNao Conceito <- "A" FimSe FimSe FimSe Escreval(Aluno:2," | ",Matricula," | ",Conceito," | ",Nota:2) FimPara FimAlgoritmo

@Luciana Mittmann Petry Cole em BT3 e arraste para as outras, =SEERRO(SOMARPRODUTO($C3:$BP3;DESLOC($A$40;CORRESP(BT$2;$A$40:$A$100;0)-1;2;;COLS($C:$BP)));0) O range da data é A40:A100, caso tenha mais é só aumentar. Só depois que fiz a fórmula percebi que tinha data repetida nesse range como acontece com 06/04 e 07/04, então se puder somar e deixar numa linha vai facilitar ou terá que ser com outra fórmula.

Outra forma só com o critério da própria estrutura para encerrar como comentei pode ser assim, Algoritmo "Conta Par e Impar" Var PConta: Inteiro TConta: Inteiro PSoma: Inteiro TSoma: Inteiro Num: Inteiro Inicio Repita Leia(Num) Se(Num > 0) então Se(Num Mod 2 = 0) então PSoma <- PSoma + Num PConta <- PConta + 1 FimSe TSoma <- TSoma + Num TConta <- TConta + 1 FimSe Ate Num = 0 Escreval("Pares = ", PConta) Escreval("Impares = ", TConta - PConta) Se(PConta <> 0) então Escreval("Media Pares = ", PSoma/PConta) FimSe Se(TConta <> 0) então Escreval("Media Total = ", TSoma/TConta) FimSe FimAlgoritmo

@Eli Almeidaa O primeiro passo para encerrar o programa é sair do loop. Já deve ter percebido que essas estruturas de repetição tem uma parte lá para especificar uma condição. É aí que você vai colocar o que diz no enunciado para sair do loop e terminar o programa. No seu último código tem essa estrutura, Enquanto Num > 0 Faca ... FimEnquanto Assim vai ficar em loop enquanto a condição Num > 0 for verdadeira (ou até ser falsa). Então é só usar a mesma lógica para qualquer outra condição.

@Cairo Alberto Assim está guardando os valores nos endereços da memória (0xA, 0xB e 0xC) e não nos registradores como diz o enunciado. Essa arquitetura tem 1024 palavras de memória, onde seus dados são armazenados com WORD naquelas posições. E tem os registradores na Unidade de Controle e na ULA com AC e MQ para operações lógicas e aritméticas.

Mod é o operador que você pode usar para pegar o resto da divisão. Já viu isso aqui no tópico no exercício da divisão por 11 com resto 5. A diferença é que agora tem que ser o resto da divisão por 2. Se for zero é par. No enunciado diz que é para mostrar a média e a quantidade de pares e ímpares. Para isso é só fazer a condição com Mod e incrementar as variáveis do par ou ímpar.

@Noferatus21 Em vez de testar strings seu programa podia oferar as opções no menu entre 1 e 3, assim poderia usar switch com esses valores inteiros. Seu código tem alguns problemas nos cálculos. No cone a geratriz é a relação da altura e raio, então se tivesse que usar isso ela devia ser o cálculo com as outras duas variáveis (g² = h² + r²) e não uma entrada do usuário. E o cálculo da área é π * r(r + √(h² + r²)). Na esfera onde você divide 4/3, como é uma operação entre inteiros o resultado fica arredondado. Para evitar isso você pode passar pelo menos uma constante double, p.ex: 4/3.0. E como a altura é usada apenas no cone e cilindro, você podia colocar essa entrada só nessas duas condições.

@Cairo Alberto Pode colocar a diretiva no inicio ou no fim. Basta uma vez, load M(0xA) add M(0xB) .org 0xA .word 0x2 .word 0x4 No simulador, a instrução load vai pegar o valor 2 do endereço 0xA e colocar no registrador AC para depois somar AC com o conteúdo de 0xB. Os dois passos, veja o registrador AC, E a memória em hexadecimal, Mas o enunciado pede para primeiro guardar no registrador B, depois no C e salvar o resultado no A.

@Cairo Alberto Assim você está tentando mover o dado diretamente com LOAD, mas essa instrução move entre o registrador e a memória. No documento mostra que para colocar o dado na memória tem as diretivas ORG e WORD. A primeira para indicar a posição da memória e segunda o dado, p.ex, .org 0x100 .word 0x2 .word 0x4

@Amandanerva Se a sua versão for a 365 tem algumas fórmulas que pode aplicar para tirar as repetições na contagem das empresas.

@Jesiel Isso é um problema dessa versão. Veja este tópico para saber mais, https://www.clubedohardware.com.br/forums/topic/1637427-resultado-final-dando-0/

@Deltaprimo Pode ser com Indice e Corresp. Para pegar o anterior, =ÍNDICE($B$2:$B$21;CORRESP($D$12;$B$2:$B$21;0)-1) E o próximo é +1 em vez de -1