Ir ao conteúdo
  • Cadastre-se

Thiago088

Membros Juniores
  • Total de itens

    8
  • Registro em

  • Última visita

  • Qualificações

    N/D
  1. Tenho o roteador tp-link modelo TL-WR940N, toda vez que a energia “pisca”, não chega a faltar, fico sem internet. O modem fica ok, mas o roteador não, para conseguir acessar a internet preciso tirar o roteador da tomada e reconectar. Feito isso a internet volta a funcionar. A luz do roteador fica laranja logo após a queda da energia, e depois de desligar e ligar novamente ela volta a ficar azul, que é o normal. Isso acontece sempre que tem essa queda de energia. Alguém pode me ajudar, provavelmente seja alguma configuração.
  2. Essa planilha será alimentada com dados e depois analisada, portanto o critério não é fixo, vai depender do que for solicitado. Por isso o critério muda a todo momento e não dá para colocá-lo na fórmula, deve ter algum jeito de prender a cor ou talvez outra alternativa que não estou enxergando. O que quero apagar é todo o conteúdo da linha (título, valores, etc...), literalmente a linha toda. A forma que você sugeriu é uma ótima alternativa, mas será que tem algum outro modo?
  3. Tenho uma planilha que preciso automatizar para excluir todas as linhas que estão com cor de preenchimento (cor de fundo da célula) em azul. São só essas linhas que precisam ser excluídas, as outras não. Alguém que possa ajudar, Obrigado galera.
  4. Sergio o código não veio na postagem, mas fiz um, veja se é isso e depois diga se ficou como quer. Agora os nomes são classificados automaticamente por ordem alfabética, assim que você inserir ou alterar um dado na planilha. Macro-para-Classificar-Automaticamente.zip adicionado 1 minuto depois @Thiago Rodrigues Cunha @Sergio Viana Miguel
  5. Boa noite! Preciso de ajuda, uma macro que ative outra macro, sempre que o valor de alguma das células da planilha mudar (B5xF109) – isso deverá ser automático.. Exemplo, Sempre que alterar ou inserir algum valor no intervalo B5xF109 essa nova macro deve ativar a Macro3. A planilha está nomeada dessa forma - Plan1: "Lista de Preços" Essa é a macro que tenho (ela está na plan1): Sub Macro3() ' ' Macro3 Macro ' ' Range("B4:F4100").Select ActiveWorkbook.Worksheets("Lista de Preços").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Lista de Preços").Sort.SortFields.Add Key:=Range( _ "B5:B4100"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("Lista de Preços").Sort .SetRange Range("B4:F4100") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub.
  6. Sérgio com base na planilha que você colocou criei uma macro para fazer o que pediu, coloquei para executar até a linha 4100. Dá uma olhada se é isso que está precisando, qualquer coisa avisa. Obs.: tive que colocar o arquivo zipado porque o Clube do Hardware não permite enviar arquivo com extensão .xlsm Caso prefira, coloquei o arquivo no 4shared, dessa forma você tem opção para escolher a mais conveniente. Link: https://www.4shared.com/s/fjqn9CYYgca Segue o código da macro e também anexei o arquivo com ela funcionando, para executar inseri um botão. Range("B4:F4100").Select ActiveWorkbook.Worksheets("Lista de Preços").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Lista de Preços").Sort.SortFields.Add Key:=Range( _ "B5:B4100"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("Lista de Preços").Sort .SetRange Range("B4:F4100") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub Avisa se deu certo ou se chegou a testar a planilha que estou enviando. Gabarito.zip

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

×
×
  • Criar novo...

Eletrônica

PROMOÇÃO DE QUARENTENA

Aproveite o isolamento social para aprender eletrônica!
De R$ 39,90 por apenas R$ 19,90
Só até as 23h59min desta sexta-feira 10/04/2020

CLIQUE AQUI E COMPRE AGORA MESMO!