Georgegms

Olá a todos! Tenho um notebook acer e o mesmo possui uma conexão ativa no wi-fi, porém quando tento conectar pelo meu celular (moto g5plus) o mesmo fica dando "obtendo endereço IP" e não conecta, tenho um Ps4 e o mesmo ficando procurando o endereço IP, apenas no notebook está funcionando a rede. Meu roteador é um tplink tl wr840n e está ligado via WAN com um modem da oi. edit1: Ja mudei o nome da rede wireless pra ficar sem espaços e sem pontuação, ja mudei o ip de 192.168.0.1 pra 192.168.0.254, ja fixei o endereço mac do meu notebook pra ver se algum outro dispositivo conecta e até agora nada.

Após muito quebrar a cabeça eu consegui aqui Sub teste() Dim var var = Range("AJ40").Value C = Range(var).Interior.Color R = C And 255 G = C \ 256 And 255 B = C \ 256 ^ 2 And 255 For x = 1 To 10 'total de piscadas pausa = 0.5 'duração da pausa entre as piscadas em segundos inicio = Timer ' hora inicial Do While Timer < inicio + pausa DoEvents Loop 'Formata Cor do Interior da celula If Range(var).Interior.ColorIndex = xlNone Then Range(var).Interior.ColorIndex = 6 'pinta célula de vermelho Else Range(var).Interior.ColorIndex = xlNone 'Nenhuma Cor End If Next x Range(var).Interior.ColorIndex = xlNone 'Devolve a cor original Range(var).Interior.Color = RGB(R, G, End Sub Agradeço muito a sua intenção me ajudar, peço desculpas pelas informações confusas, sou novo em VBA. De qualquer forma, Muito obrigado mesmo !

Boa tarde, amigos Fiz uma macro que muda a cor de uma célula Sub teste() Dim var var = Range("f2").Value Range(var).Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 65535 .TintAndShade = 0 .PatternTintAndShade = 0 End With End Sub Porém gostaria que a célula voltasse a formatação original depois de um tempo ou de algum critério determinado, apenas que ao usar a macro fosse perceptível a celula destacada e logo em seguida ela voltasse ao normal

Coloquei as informações na Planilha1 Mapeamento FTTH.xlsx adicionado 9 minutos depois Ok, consegui algum progresso Sub teste() Dim var var = Range("f2").Value Range(var).Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 65535 .TintAndShade = 0 .PatternTintAndShade = 0 End With End Sub Não tenho certeza ainda se irá dar certo, só estou em dúvidas em como retornar a cor antiga da célula alterada

Não é bem o que eu queria ainda, o código apenas insere uma determinada palavra. vou tentar explicar melhor. Tenho valores de 1 a 240 referenciando 240 celulas. 1 - c10 2 - c11 3 - c13 4 - c14 Essa tabela está armazenada na planilha 2 como um banco de dados, em outra planilha tem uma contagem de 1 a 240 e na planilha principal tem os dados que eu quero que sejam destacados. Quando o valor for 2, quero que na planilha principal a celula c11 fique destacada. Pensei em fazer com condições if else, porém é muitro trabalhoso fazer 240 condições. A minha ideia era que a macro tivesse uma variável que se alterasse assim como a célula se altera, quando o valor for 3 a macro ira mudar a cor de c13 na planilha principal.

Boa tarde, amigos Estou criando uma planilha de mapeamento de dados aqui no meus serviço, no quesito de fórmulas eu consegui me virar porém queria bolar alguma maneira ou algum macro que pinta ou destaca a célula se determinada condição for aceita. De certa forma eu consegui resolver meio caminho, minha dúvida é: é possível ter um valor que muda variando numa macro? Ela irá funcionar assim: Em determinada célula da planilha 2 terá um valor de endereço, por exemplo " em A2 da planilha 2 tem escrito C20", ou seja, Faz referencia da planilha 1, a macro fará a leitura da célula e irá agir sobre o endereço indicado. Sempre que clicar em um botão, a macro irá em A2 pegar a célula que ta escrita e agir sobre a mesma.