Midori

É isso que a macro que eu postei faz.

@Natalia Benassi Executou a última macro que eu postei? É como comentei neste post,

Se inseriu o procv é porque deve ter rodado a macro que deixa os dados no formato para usar a fórmula. E se fez como comentei não tem como não acontecer nada... O procv retorna #N/D quando não encontra um valor.

@Natalia Benassi Esse é o método que comentei, assim vai deixar os pedidos na forma de tabela onde você poderá fazer um procv. Crie uma nova aba com o nome de Tabela (antes de buscar os pedidos a macro apaga os dados das colunas A e B dessa aba). Sub TabelaPedidos() Dim Recebimento As Worksheet Dim Tabela As Worksheet Dim Celula As Range Dim L As Long L = 1 Set Recebimento = ThisWorkbook.Sheets("Recebimento de Pedidos") Set Celula = Recebimento.[D2] Set Tabela = ThisWorkbook.Sheets("Tabela") Tabela.[A:B].Clear While Celula <> "" Dim Link As String Dim C As Integer C = Recebimento.[W1].Column - Celula.Column Link = Celula.Offset(0, C) Call Celula.Resize(1, C).Copy Call Tabela.Cells(L, 1).PasteSpecial( _ Paste:=xlPasteValues, Transpose:=True) Tabela.Cells(L, 2).Resize(C) = Link Set Celula = Celula.Offset(1) L = L + C Wend Application.CutCopyMode = False End Sub Outra coisa que pode ser feita depois para deixar a busca mais rápida é remover as linhas sem pedidos.

@Natalia Benassi Se está demorando muito para calcular com essa fórmula então é melhor resolver com outra macro. Não seria melhor deixar os pedidos no formato de tabela em outra aba e só com as duas colunas? Assim você só terá que usar um procv para pegar os valores. Uma macro pode pegar os dados da planilha dos pedidos e copiar no formato para outra aba assim, A B 123 | Arquivo: x 456 | Arquivo: x 789 | Arquivo: x 135 | Arquivo: y 790 | Arquivo: y 497 | Arquivo: y E nas outras planilhas você vai usar o procv para buscar os valores dessa.

Já deve ter visto laço de repetição. Faça um loop na string testando cada letra e quando for igual a 1 incremente uma variável inteira.

@Natalia Benassi Na sua planilha fiz como comentei nos passos e consegui retornar os links das imagens. Na célula I2 da planilha Procon PT coloque a fórmula e arraste, =ProcuraPedido(B2;'Recebimento de Pedidos'!D:W) Assim vai retornar os links da planilha Recebimento de Pedidos

@Natalia Benassi O que não deu certo? Conseguiu colar a macro no módulo e usar a fórmula? Na planilha que anexou não tem a fórmula e nem a macro que postei.

Sim, você pode pegar o range CelulaMes e fazer Copy e PasteSpecial xlPasteValues.

Use alguma função para pegar a parte do nome que você quer testar. Como é só o começo do nome da aba pode usar Left e para listar todas as planilhas terá que fazer um loop. Antes de deletar atribua false para DisplayAlerts (e true após deletar), assim não aparecerá nenhuma mensagem de confirmação.

@Natalia Benassi Siga estes passos, 1) Digite Alt+F11 para abrir o editor do VBA 2) Crie um módulo no menu Inserir > Módulo 3) Cole a macro 4) Volte na planilha para usar a fórmula (é o mesmo nome da macro/função)

A macro já está completa, se tiver interesse é só copiar e colar. E não precisa de repetição, basta fazer como comentei.

@Natalia Benassi Acho mais fácil com macro, veja se assim resolve, Function ProcuraPedido(Valor As Range, Area As Range) As String Dim Celula As Range If Valor = "" Then Exit Function Set Celula = _ Area.Find(Valor.Value, LookIn:=xlValues, LookAt:=xlWhole) If Not Celula Is Nothing Then Dim Coluna As Integer Coluna = _ Area.Column + Area.Columns.Count - Celula.Column ProcuraPedido = Celula.Cells(1, Coluna).Value End If End Function E na planilha é só usar a função como uma fórmula, p.ex a célula B2 da planilha Atualizar, =ProcuraPedido(A2;Base!A:D) Se tiver mais colunas é só aumentar o range da fórmula.

@MarcosGiovani A planilha Anual pode receber os dados da Mensal com a fórmula SOMASES. Para automatizar isso com macro só temos que identificar o mês e colocar a fórmula na coluna correta. Veja se assim resolve a questão de preencher os dados na planilha anual, Sub Macro() Dim PlanAno As Worksheet Dim AreaTabela As Range Dim CelulaMes As Range Dim Mes As String Set PlanAno = ThisWorkbook.Sheets("Anual") PlanAno.[C1:N1] = Array( _ "jan", "fev", "mar", "abr", "mai", "jun", _ "jul", "ago", "set", "out", "nov", "dez") Mes = Format(ThisWorkbook.Sheets("Base").[B3].Value, "mmm") Set AreaTabela = PlanAno.[A1].CurrentRegion Set CelulaMes = AreaTabela.Rows(1).Find(What:=Mes, _ LookAt:=xlWhole, LookIn:=xlValues) If Not CelulaMes Is Nothing Then Set CelulaMes = _ PlanAno.Cells(2, CelulaMes.Column) _ .Resize(AreaTabela.Rows.Count - 1) CelulaMes.Formula = _ "=SUMIFS(Mensal!C:C,Mensal!A:A,A2,Mensal!B:B,B2)" Else MsgBox "Mês não encontrado" End If End Sub O array dos meses eu só coloquei para deixar os meses no formato texto já que na sua planilha está como data e assim a função Find não vai encontrar. Essa linha pode ser removida após rodar uma vez e deixar no formato correto.

A célula B3 (planilha Base) está mesclada com a C3. E a célula C1 (planilha Mensal) tem uma fórmula pegando esse mesmo dado, então o que deve ser comparado? Se possível mostre um exemplo de como deve ficar a planilha após rodar a macro. Para ficar mais claro chame as planilhas pelo nome (Base, Grupos, etc). E explique melhor o que quer dizer com copiar para a "próxima aba", especifique os nomes.

Para o filtro avançado faça o range do critério no formato de tabela com o mesmo campo da lista. O outro range é para onde os dados filtrados devem ser copiados.

No cálculo da média acho mais simples acumular a soma no loop em vez de pegar cada valor manualmente, p.ex, soma := 0; for c:= 1 to 4 do begin soma := soma + aluno[i].nota[j, c]; end; writeln('Media = ', soma/4:0:2);

Tanto no regime simples como no composto além do montante e capital tem o tempo. No regime composto p.ex, a taxa é dada por: i = ⁿ√(M/C) - 1 Onde: n = tempo, M = montante e C = capital. Aplicando esse cálculo na sua planilha dá aprox. 0,08% a.d. em H4.

A lógica para buscar o resultado é a mesma, p.ex para procurar no Google Sheets em todas as abas o código da célula B5 da aba BUSCA, function BuscaNumero() { var aba; var resultado = ''; var planilha = SpreadsheetApp.getActiveSpreadsheet(); var planBusca = planilha.getSheetByName('BUSCA'); var busca = planBusca.getRange('B5'); planilha.getSheets().forEach(function(aba){ if(aba.getName() != planBusca.getName()){ var procura = aba.createTextFinder(busca.getValue()).findAll(); if(procura.length != 0){ resultado += aba.getName(); } } }); Browser.msgBox(resultado); }

@Zakason Coloque os dados em um vetor (pode ser de struct) e use algum algoritmo de ordenação como o Bubble Sort para fazer a classificação.

@Hernany Luiz Seu código só tem o loop dos dependentes, faltou o loop mais externo a esse dos 30 funcionários. E da forma como fez não está certo porque no loop só está lendo as idades e não está calculando o valor do auxílio. Como você tem que testar cada idade para aplicar o valor, isso tem que ser feito dentro do loop, p.ex, float total = 0; ... for(int j = 1; j <= dependentes; j += 1){ int idade; printf("Idade do dependente %d: ", j); scanf("%d", &idade); if(idade < 18){ total += 60.0; } }

@fer_s Leia a entrada com input e faça o loop na string. Nas condicionais fica mais claro usando os caracteres em vez do código, p.ex, texto = input() telefone = '' for ch in texto: if '0' <= ch <= '9': telefone += ch elif 'A' <= ch <= 'Z': if ch <= 'C': telefone += '2' elif ch <= 'F': telefone += '3' elif ch <= 'I': telefone += '4' ...

A variável i é o contador do loop, então faltou fazer os dois loops que comentei e retornar o valor do dígito assim, #include <stdio.h> char isbn_dv(const char *isbn){ int s1 = 0; int s2 = 0; int digito = 0; for(int i = 0; isbn[i] != 0; i += 1){ s1 += isbn[i] - '0'; s2 += s1; } for(int i = 0; i <= 10; i += 1){ if((s1 + s2 + i) % 11 == 0){ digito = i; break; } } if(digito == 10){ return 'X'; } return digito + '0'; } int main(void){ char isbn[9]; scanf("%9s", isbn); printf("%s-%c", isbn, isbn_dv(isbn)); return 0; }

@MATHEUSCDN O cálculo deve ser feito na função que vai retornar o dígito. Acho mais fácil usar char em vez de um valor inteiro, assim fica mais simples pegar cada digito no loop. O protótipo da função pode ser assim, int isbn_dv(const char *isnb); No primeiro loop seu código pode pegar cada posição para calcular as somas, p.ex, s1 += isnb[i] - '0'; s2 += s1; E depois faça outro loop entre 0 e 10 para encontrar o dígito, if((s1 + s2 + i) % 11 == 0){ digito = i; ...

@julianasilva2603 Para isso tem a função FormatDateTime ou Format onde você pode personalizar o formato. É só passar o valor da célula para a função.