Ir ao conteúdo
  • Cadastre-se

osvaldomp

Membros Plenos
  • Total de itens

    1.921
  • Registro em

  • Última visita

  • Qualificações

    0%

Reputação

732

Informações gerais

  • Cidade e Estado
    São Paulo - SP
  • Sexo
    Masculino
  1. Qual o critério para retornar "Esteve no intervalo" ? Seria se o período G:H estiver totalmente contido no período C:D. É isso?
  2. O código que passei funciona corretamente com base no que você pediu no último parágrafo do post #3. Os erros que estão ocorrendo são em consequência dos pedaços de códigos errados, mal feitos, mal posicionados e desnecessários que você enxertou no código. Sugestão: faça os testes com o código que passei sem enxertos e leia tudo que comentei no post #5.
  3. Experimente: Sub OcultaColunas() Dim k As Long, c As Range Columns.Hidden = False For Each c In Range("A1", Cells(1, Columns.Count).End(1)) Select Case c.Value Case "A", "C" Case Else: Columns(c.Column).Hidden = True End Select Next c End Sub 1. funciona para qualquer quantidade de colunas com cabeçalho 2. manterá visíveis as colunas com cabeçalho "A" e "B", acrescente quantos cabeçalhos desejar
  4. Olá, Gabriel. Segue abaixo a fórmula ajustada conforme o lay out da sua planilha. Caso volte a ocorrer o erro que você relatou acima (que provavelmente se deve à operação de copiar aqui do fórum, que às vezes carrega "sujeira"), tente colar antes no Word ou no Bloco de Notas e depois cole no Excel, talvez a sujeira caia pelo caminho. Se não resolver veja se na fórmula colada não há espaços ou caracteres estranhos à fórmula. Em último caso será preciso digitar a fórmula. =MÉDIA(SE((MÊS($A$2:$A$1000)=MÊS(D4))*(ANO($A$2:$A$1000)=ANO(D4));$B$2:$B$1000)) Na planilha que você disponibilizou há células vazias na coluna B e isso interfere no valor da média calculada pela fórmula acima. Essa outra abaixo não leva em conta as células vazias, então o valor retornado será superior ao valor retornado pela fórmula acima. Aí veja a que te interessa usar. =MÉDIA(SE((MÊS($A$2:$A$1000)=MÊS(D4))*(ANO($A$2:$A$1000)=ANO(D4))*($B$2:$B$1000<>"");$B$2:$B$1000)) Lembrando que a inserção de ambas deve ser finalizada no modo edição (F2) com Ctrl+Shift+Enter e não somente Enter.
  5. Olá, Gabriel. Considerando que os critérios na coluna C sejam datas e não textos, cole a fórmula matricial abaixo em D4 e arraste. Coloquei o intervalo até a linha 100, ajuste se necessário. =MÉDIA(SE(MÊS($A$1:$A$100)=MÊS(C4);SE(ANO($A$1:$A$100)=ANO(C4);$B$1:$B$100))) Lembrando que por ser fórmula matricial, após colar a fórmula na célula aperte F2 e em seguida aperte juntas Ctrl+Shift+Enter. Se você não conseguir, disponibilize uma amostra do seu arquivo Excel, não imagens.
  6. Experimente: Sub RecortaECola() Sheets("Plan1").[A1:A140].Cut Sheets("Plan2").Cells(1, Columns.Count).End(1)(1, 2) End Sub
  7. O código abaixo refere-se ao botão Confirmar do Form5. Private Sub CommandButton2_Click() Dim i As Long, k As Long k = Sheets("CadAdvInfra").[B:B].Find(UserForm4.ComboBox1.Value).Row Sheets("RegistroSaidas").Rows(5).Insert Sheets("CadAdvInfra").Cells(k, 1).Resize(, 12).Cut Destination:=Sheets("RegistroSaidas").[A5] Sheets("CadAdvInfra").Rows(k).Delete For i = 1 To 3 Sheets("RegistroSaidas").Cells(5, i + 12) = Me.Controls("TextBox" & (i)).Value Next i End Sub obs. 1. o Loop que coloquei no final do código é para lançar os dados do Form5 na planilha RegistroSaidas; esse método pode ser utilizado no lugar do que passei antes, se você renumerar as TextBoxes de forma que a numeração fique compatível com a sequência das colunas. Assim, TextBo1 vai para a coluna 1, TextBox2 vai para a coluna 2, ...; no caso desse último código foi possível pois a numeração está compatível. Coloquei i+12 na referência da coluna porque a primeira coluna a receber dados será a coluna 13 (M). 2. acrescente a linha em vermelho conforme abaixo para evitar travamento pois ao excluir o nome a ComBo do Form4 fica sem seleção. Private Sub ComboBox1_Change() ' COMANDO PARA PESQUISAR E MOSTRAR OS DADOS ANTES DE EXCLUIR Dim k As Long, i As Long If ComboBox1.Value = "" Then Exit Sub i = 1
  8. experimente: =se(somarproduto(-(a$2:a$10=a2);-(b$2:b$10=b2);--(c$2:c$10=c2))>1;"sim";"")
  9. Olá, Gilberto. Veja se é isso. O código abaixo insere Hiperlink na coluna J para a planilha com o nome na coluna A. Sub InsereHiperlinks() Dim c As Range With Range("J6:J" & Cells(Rows.Count, 1).End(3).Row) .ClearHyperlinks .Font.Underline = xlUnderlineStyleNone End With For Each c In Range("A6:A" & Cells(Rows.Count, 1).End(3).Row) If Evaluate("ISREF('" & (c.Value) & "'!A1)") = True Then ActiveSheet.Hyperlinks.Add Anchor:=Cells(c.Row, "J"), Address:="", SubAddress:= _ "'" & c.Value & "'!A1" End If Next c End Sub
  10. Não é recomendável fazer referência à coluna inteira em fórmulas matriciais, pois pode provocar lentidão no recálculo da planilha. Coloque apenas o intervalo previsto para uso, ou melhor ainda, insira Intervalos Dinâmicos Nomeados e utilize-os na fórmula.
  11. Cole a linha abaixo no lugar da anterior. Rows(5).Hidden = Evaluate("Sum(COUNTIF(B1:B3,{""NÃO"",""""}))") = 3
  12. Veja se ajuda. Private Sub ComboBox1_Change() Dim k As Long, i As Long i = 1 With Sheets("CadAdvInfra") k = .[B:B].Find(ComboBox1.Value).Row TextBox2.Value = .Cells(k, i): i = i + 1 TextBox3.Value = .Cells(k, i): i = i + 1 End With End Sub
  13. Qual critério você quer: 1 x vazio ~~~> oculta, ou 3 x vazio ~~~> oculta ?

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

×