Ir ao conteúdo
  • Cadastre-se

osvaldomp

Membros Plenos
  • Total de itens

    1.989
  • Registro em

  • Última visita

  • Qualificações

    0%

Reputação

776

Informações gerais

  • Cidade e Estado
    São Paulo - SP
  • Sexo
    Masculino
  1. =dia(índice(c3:n3;;mês(hoje())))
  2. Inferição incorreta ! Eu não disse "que não existe essa possibilidade" ! Eu escrevi que "... ele não será considerado pela fórmula" (pela fórmula que eu sugeri). A fórmula atende a situação que você colocou no exemplo. Se há outras situações possíveis de ocorrer e você tiver interesse, então coloque todas com os respectivos resultados desejados.
  3. =se(indireto("reagentes!f"&(lin(a2)-1)*6+3)="em uso";indireto("reagentes!f"&(lin(a2)-1)*6+5)-hoje();0) =proch(indireto("'menu reagentes'!f"&(lin(a1)-1)*6+1);indireto("reagentes!b"&(lin(a1)-1)*6+3&":bh"&(lin(a1)-1)*6+6);2;falso) =proch(indireto("'menu reagentes'!f"&(lin(a1)-1)*6+1);indireto("reagentes!b"&(lin(a1)-1)*6+3&":bh"&(lin(a1)-1)*6+7);2;falso)
  4. Veja se a fórmula abaixo atende. Ela retorna 26/03/2018. Tomei como base a fórmula que o @Patropi sugeriu. =F2+SOMARPRODUTO((B2:B30>=E2)*(C2:C30<=F2)*(D2:D30))+SOMARPRODUTO((B2:B30>=F2)*(C2:C30<=F2+SOMARPRODUTO((B2:B30>=E2)*(C2:C30<=F2)*(D2:D30)))*(D2:D30)) obs. no seu exemplo, no afastamento da linha 6, se o período de afastamento estiver somente parcialmente incluído no período total ele não será considerado pela fórmula; ex. se em C6 a data for superior a 20/03/2018 aquele afastamento não será considerado.
  5. Sugestão: esqueça esse código que não faz o que você quer e informe com exatidão o que você deseja fazer
  6. Segue a primeira parte da sua fórmula. Se o resultado for o desejado aplique nas demais partes. =SE(INDIRETO("Reagentes!F"&(LIN(A1)-1)*6+3)="Em Estoque";INDIRETO("Reagentes!C"&(LIN(A1)-1)*6+4);0) obs. a quantidade de fórmulas com a função INDIRETO() poderá provocar lentidão no recálculo da planilha
  7. Experimente o código abaixo no módulo de EstaPasta_de_trabalho. Remova o código anterior. Deve funcionar ao ativar/incluir/excluir planilhas, mas não para troca de nome. Private Sub Workbook_SheetActivate(ByVal Sh As Object) Dim ws As Worksheet With Sheets("principal") .[A:A] = "" For Each ws In ThisWorkbook.Worksheets If ws.Name <> "principal" Then .Cells(Rows.Count, 1).End(3)(2) = ws.Name Next ws End With End Sub
  8. Veja se a solução abaixo atende. Instale o código no módulo da planilha principal (altere o nome da planilha no código se necessário). Funcionamento - ao ativar a planilha principal a lista com o nome das planilhas será atualizada na coluna A daquela planilha, na mesma ordem das guias das planilhas. Private Sub Worksheet_Activate() Dim ws As Worksheet [A:A] = "" For Each ws In ThisWorkbook.Worksheets If ws.Name <> "principal" Then Cells(Rows.Count, 1).End(3)(2) = ws.Name Next ws End Sub
  9. substitua b.Select ActiveCell.Delete por .ListObject.ListRows(b.Row - 2).Delete Cabe comentar que na parte do seu código em que está ocorrendo o erro, o critério utilizado para (tentar) excluir a linha é que a linha contenha Lote 02 na coluna N, e não que a linha esteja vazia. Não examinei o restante do código.
  10. No lugar de Delete experimente ClearContents: ActiveCell.ClearContents
  11. Disponibilize aqui no fórum um ou dois códigos que apresentam o problema citado.
  12. O Excel considera os "números" com ponto como textos e não como números. Selecione os valores / aperte Ctrl+L / Localizar . / Substituir , / Substituir tudo
  13. Basta acrescentar os nomes das planilhas origem e destino no comando abaixo: Union(var_inserir.Offset(, -4), var_inserir.Offset(, -2), var_inserir.Offset(, -1)).Copy [B6]

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

×