Ir ao conteúdo
  • Cadastre-se

andre12345

Membros Plenos
  • Total de itens

    17
  • Registro em

  • Última visita

  • Qualificações

    0%

Reputação

0

Sobre andre12345

  • Data de Nascimento 08-06-1972 (46 anos)

Informações gerais

  • Cidade e Estado
    São Paulo-SP
  1. Miliomário, Utilizando a função SOMAPRODUDO não consigo fazer que ela seja configurável. Grato André Boa noite, Milionário! Rsrsrs... Faltou um pouco de atenção minha quando tentei a função SOMARPRODUTOS que você sugeriu, ela com certeza atinge meu objetivo. Quanto a função MEDIASES ocorre o mesmo problema do que na SOMASES, o que não consigo entender o porque. Mas enfim, SOMARPRODUTO resolve. Obrigadão, André
  2. Milionário, Primeiramente obrigado por sua ajuda. O objetivo é calcular uma média móvel aritmética configurável, por isso estou usando a célula $A$1 para determinar a variável, e as colunas B e C para “MOVER” os critérios. Sendo que se não houvesse necessidade de ser configurável eu poderia simplesmente usar a função,ex.emplo em D500: =MÉDIA(E12:E500) copiar e colar nas linhas abaixo e teria a soma das 500 linhas anteriores da coluna E dividido por 500.Sendo assim, eu teria que alterar a função de todas as células da coluna E, a cada vez que desejasse alterar o calculo da média ex: somar ultimas 200 linhas de E, e dividir por 200. Tentei atingir o objetivo usando a formula MEDIASE, mas não consigo colocar mais de um critério, no caso >que X e < que Y. Obrigado, André
  3. Boa tarde, Milionário! Como pode ver no exemplo da planilha,na coluna E está a formula que preciso fazer funcionar, na célula G528 troquei na função as células dos critérios pelos valores que nelas contém e ai fica ok. Ah... agora também percebi que copiando a função na linha 12 e colando nas demais inferiores, mesmo as células dos critérios não contendo $ ela se mantém como linha 12. http://www.4shared.com/file/nyxQd6bv/somases.html Obrigado, André Boa tarde, Milionário! Como pode ver no exemplo da planilha,na coluna E está a formula que preciso fazer funcionar, na célula G528 troquei na função as células dos critérios pelos valores que nelas contém e ai fica ok. Ah... agora também percebi que copiando a função na linha 12 e colando nas demais inferiores, mesmo as células dos critérios não contendo $ ela se mantém como linha 12. http://www.4shared.com/file/nyxQd6bv/somases.html Obrigado, André
  4. Boa tarde, Alguém pode me esclarecer porque minha função SOMASES não funciona? =SOMASES($BW$12:$BW$10000;$BT$12:$BT$10000;"<=BU528";$BT$12:$BT$10000;">=BV528") RESULTADO = 0 =SOMASES($BW$12:$BW$10000;$BT$12:$BT$10000;"<=517";$BT$12:$BT$10000;">=17") RESULTADO ESPERADO Obs: BU528 é igual a 517 e BV528 igual a 17 Obrigado, André
  5. Valeu Patropi, Baseado em sua função, consegui fazer uma “gambiarra” aqui e atingi meu objetivo. Obrigado, André
  6. Boa tarde Patropi, Mais uma vez agradeço sua disposição! O fato é que não posso simplesmente copiar e colar, porque os dados são alterados constantemente. Ex: onde agora contém 14 valores referente ao CÓDIGO 1, poderá aumentar para uma quantidade indefinida de lançamentos de valores por código. Além de que, também são constantemente criados novos códigos. O meu objetivo FINAL é rodar em uma outra situação um PROCV (menor valor referente ao CÓDIGO X) Não sei se consegui explicar. Um abraço
  7. Boa tarde ercfis Primeiramente obrigado! Acho que fiz como você falou! Mas ainda não deu certo... Tem como você dar uma olhada na planilha que coloquei o que sugeriu? http://www.4shared.com/file/yJ7TuFaS/MINIMO2.html
  8. Olá deejaywesley Sua fórmula está retornando exatamente o valor de "B" em "C" (o mesmo que =() Um Abraço
  9. Alguém pode fazer a gentileza de me ajudar? Tenho duas colunas, na primeira “A” CÓDIGO e na segunda “B” VALOR. Na coluna “A”, cada código pode se repetir várias vezes consecutivas e indefinidamente. Preciso extrair em uma terceira coluna “C”, o VALOR “mínimo” referente a cada CÓDIGO, na linha de “C” equivalente a primeira linha de cada CÓDIGO. EX: http://www.4shared.com/file/6XAGOLnr/MINIMO.html Obrigado, André
  10. Ops!!!! Corrigindo pessoal! Segue abaixo com a correção de colar “simples” para “colar especial”. Essa ficou legal porque que é só trocar os parâmetros que estão em verde entre os “******” e adaptar em qualquer situação. Valeu!!! Flavio Soares. Valeu!!! Patropi. Um abraço, André Private Sub Worksheet_Change(ByVal Target As Range) Dim celulaOrigem As String Dim colunaDestino As String Dim colunaCondicional As String Dim colunaCondicionalNumero As String Dim condicao As String Dim column As String '############################################# '########## PARÂMETROS DE ENTRADA ############ '############################################# celulaOrigem = "A1" colunaDestino = "F" colunaCondicional = "B" condicao = "1" '############################################# '############################################# '############################################# For Each cell In Target column = Mid(cell.Address, InStr(cell.Address, "$") + 1, InStr(2, cell.Address, "$") - 2) If column = colunaCondicional Then copyCells celulaOrigem, colunaDestino, cell.Row, cell.Row, colunaCondicional, condicao End If Next cell End Sub Private Sub copyCells(ByVal sourceCell As String, ByVal destinationColumn As String, ByVal startLine As Integer, ByVal endLine As Integer, ByVal conditionColumn As String, ByVal condition As String) Dim i As Integer Dim destinationCell As String Dim conditionCell As String For i = startLine To endLine destinationCell = destinationColumn & i conditionCell = conditionColumn & i If Range(conditionCell).Value = condition Then Range(destinationCell) = Range(sourceCell) Range(destinationCell).NumberFormat = "dd/mm/yyyy" Else Range(destinationCell).Value = "" End If Next i End Sub Private Function getColumnChar(ByRef cell) As String Dim MyColumn As String, Here As String Here = cell.Address MyColumn = Mid(Here, InStr(Here, "$") + 1, InStr(2, Here, "$") - 2) getColumnChar = MyColumn End Function
  11. Boa tarde Patropi, Primeiramente, obrigado por sua atenção! Abaixo segue o código do qual eu preciso. Um grande abraço, André Código: Private Sub Worksheet_Change(ByVal Target As Range) Dim celulaOrigem As String Dim colunaDestino As String Dim colunaCondicional As String Dim colunaCondicionalNumero As String Dim condicao As String Dim column As String '############################################# '########## PARÂMETROS DE ENTRADA ############ '############################################# celulaOrigem = "A1" colunaDestino = "C" colunaCondicional = "B" condicao = "1" '############################################# '############################################# '############################################# For Each cell In Target column = Mid(cell.Address, InStr(cell.Address, "$") + 1, InStr(2, cell.Address, "$") - 2) If column = colunaCondicional Then copyCells celulaOrigem, colunaDestino, cell.Row, cell.Row, colunaCondicional, condicao End If Next cell End Sub Private Sub copyCells(ByVal sourceCell As String, ByVal destinationColumn As String, ByVal startLine As Integer, ByVal endLine As Integer, ByVal conditionColumn As String, ByVal condition As String) Dim i As Integer Dim destinationCell As String Dim conditionCell As String For i = startLine To endLine destinationCell = destinationColumn & i conditionCell = conditionColumn & i If Range(conditionCell).Value = condition Then Range(sourceCell).Copy Range(destinationCell).PasteSpecial Else Range(destinationCell).Value = "" End If Next i End Sub Private Function getColumnChar(ByRef cell) As String Dim MyColumn As String, Here As String Here = cell.Address MyColumn = Mid(Here, InStr(Here, "$") + 1, InStr(2, Here, "$") - 2) getColumnChar = MyColumn End Function
  12. Bom dia Patropi, O macro só está checando =se(B1=1;”copia em A1 e cola em C1”). Certo? Gostaria de estender (“copiar o macro”) para outras linhas ex: =se(B2=1;copia em $A$1 e cola em C2”), e assim por diante ($A$1,B3 e C3...). No macro as células estão restritas a linha 1: (“A1”), (“B1”) e (“C1”). Já tentei alterar no macro para (“B1:B100”) e (“C1:C100”) mas não funcionou. Um abraço, André
  13. Boa noite Patropi, Ok!!! Obrigadão pela ajuda. Sem querer abusar, mas.... Para estender para as outras células das colunas? Devo substituir ex: (“A1”) por? Um grande abraço, André
  14. Boa Tarde Patropi, Eu sou totalmente leigo em VBA e macro! Como crio o macro com as novas instruções que você enviou? Não consigo visualizar o macro na planilha que você fez, pra ter como exemplo. Obrigado, André
  15. Boa tarde Patropi, Se o procedimento do macro é ctrl C e ctrl V. Trocando o ctrl V por “colar especial/ valores e formatos de números” pode dar certo? Se acredita que sim! Sabe como alterar no macro? Um abraço, André

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×