Ir ao conteúdo
  • Cadastre-se

Igor Pinheirode Medeiros

Membro Júnior
  • Posts

    6
  • Cadastrado em

  • Última visita

Reputação

0
  1. Ola galera, então meu problema é bem simples mas não sei o que ta gerando ele. Quando aperto pra copiar uma celular e depois colo, no lugar dele colar a celular que eu selecionei, ele cola a celula que está exatamentede baixo.
  2. @LaerteB Obrigado pela ajuda amigo! Então até então funcionou para realizar a classificação com os dados ja colocados, mas se eu adiciono nova linha no intervalo e coloco uma nova classificação, ele da erro. Como está ai no anexo. Exemplo solucao_final.rar
  3. Olá galera, Estou querendo fazer um hiperlink que direcione à uma celula da mesma planilha, tipo um localizador, mas que quando eu mude a localizaliçao dessa célula (exemplo= ela estava na C7 coloquei na C20), o hiperlink continue me direcionando à ela (C20) e não C7. Muito Obrigado!!
  4. @LaerteB Obrigado pela dica, está ai um exemplo do que pensei Exemplo.rar
  5. Olá gente, queria uma ajuda urgente, não tenho muita experiência no VBA e estou querendo desenvolver um botão que realize auto-classificação de uma parte de uma lista, que cresce, pela cor presentes na coluna K. O codigo: Sub PrioriMAX() ' ' Prio Macro ' ' Range("C6").Activate ActiveCell.Offset(rowOffset:=10, columnOffset:=12).Activate ActiveWorkbook.Worksheets("Tableau").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Tableau").Sort.SortFields.Add(Range("K7:K10"), _ xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255, _ 199, 206) ActiveWorkbook.Worksheets("Tableau").Sort.SortFields.Add(Range("K7:K10"), _ xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255, _ 235, 156) ActiveWorkbook.Worksheets("Tableau").Sort.SortFields.Add(Range("K7:K10"), _ xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(249, _ 249, 249) With ActiveWorkbook.Worksheets("Tableau").Sort .SetRange Range("C6") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub Obrigado pela ajuda desde já

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades 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

×
×
  • Criar novo...