Logo Hardware.com.br

Fórum

0

Divergência entre softwares de medição de temperatura

Olá, hoje adicionei mais uma ventoinha ao pc, logo após fazer a instalação, fui verificar a temperatura no Software RealTemp e  havia diminuido. Meu pc ficava na casa 
dos 60°C e no RealTemp estava mostrando 40. Resolvi testar depois no HwMonitor, Aida64 e SpeedFan, em todos a temperatura estava muito alta ficando acima dos 80°C. Em qual deste softwares devo confiar ? Tentei ver na Bios mas a temperatura não aparece lá. Tecnicamente  deveria confiar nos 3 que apresentam um indice elevado de temperatura, mas o pc não apresenta travamentos(Me disseram que em altas temperaturas a capacidade do processador diminui)
0

Placa de video para G41MT-S2P

Melex disse:
Brincadeiras a parte, foi só pra dizer que qualquer vga PCI-E cabe na sua placa mãe, o problema é o orçamento.

Com 250temers, vc pode pegar uma R7 240 nova. Ou apertar um pouco o bolso e pegar uma 7750 / gtx 550ti usada. São muito melhores que a R7 240, mais ate R$100 mais caras.
Vale a pena, apesar de já "antigas", tem ótimo desempenho em jogos nessa faixa de preço.

‎bom dia, gastei muito do seu comentário, eu tenho um placa dessas: gigabyte ga-41mt-s2, quero colocar uma placa nesse,se eu entendi o seu comentário, eu posso colocar qualquer placa de vídeo nela q ela vai rodar?
0

Artefatos aparecendo nos vídeos gravados com o Geforce Experience, mas jogos/simuladores rodando normalmente sem artefatos

Olá a todos.
Eu possuo um notebook com uma placa de vídeo NVIDIA GTX 1650 e, desde o último dia 23/02/2024 (sexta-feira), tenho observado o seguinte: ao gravar gameplays com o NVIDIA Geforce Experience, as gravações ficam todas zoadas, com umas formas estranhas, mas os jogos/simuladores rodam normalmente sem esses artefatos.


Primeiro, fui gravar uma gameplay do simulador de ônibus OMSI 2 e, quando fui acessar o arquivo .mp4 do vídeo para editar, vi o vídeo "cru" (sem edição) com esse problema. Mas, como o OMSI 2 é um simulador mal otimizado, cheio de bugs, erros e travamentos, e foi abandonado pelos desenvolvedores desde 2017, ano da última atualização, o problema poderia ser no simulador, já que outros membros da comunidade OMSI também relataram problemas similares apenas neste simulador específico, mesmo na versão original da Steam.


Tendo isto em vista, fiz os testes num outro simulador, mais bem otimizado e com erros/bugs frequentemente corrigidos: o Proton Bus Simulator. Mais uma vez, tive o mesmo problema.


O curioso é que, embora as gravações dos vídeos mostrem possíveis artefatos na tela, os simuladores rodam normalmente sem artefato nenhum, o que me faz suspeitar do driver mais recente do Geforce Experience, instalado em 22/02 (quinta-feira), driver este que pode ter causado o problema. Os problemas começaram após a instalação deste driver.


Eu uso a GPU dedicada durante poucas horas por dia se comparado a gamers que passam o dia inteiro jogando, então as possibilidades de queima por superaquecimento são consideravelmente menores. Até porque, se fosse este o caso, eu não conseguiria nem jogar usando a placa de vídeo dedicada, mas eu consigo jogar normalmente e com taxas altas de FPS (o Proton Bus Simulator roda no ultra entre 60 e 120 FPS), então isto só me faz desconfiar mais ainda de que o problema esteja no driver.


Pensando em um possível problema no Geforce Experience, gravei alguns vídeos de ambos os simuladores usando o Bandicam, com o codec da NVIDIA. No vídeo original não apareceram artefatos, mas, depois que editei o vídeo e exportei no Filmora usando a placa de vídeo dedicada para renderizar, o vídeo apareceu com artefatos, mesmo que, no simulador (no caso o OMSI 2) não tenha aparecido artefato nenhum enquanto eu jogava.


Também já tentei reinstalar o Geforce Experience, para ver se resolvia o problema, mas nada adiantou e as gravações seguem com artefatos, mesmo que, nos simuladores, nada tenha mudado e continuem rodando com um framerate considerável, sem artefato nenhum.


Depois pretendo gravar com o Bandicam usando um codec que utilize a placa de vídeo integrada, e exportar algum vídeo no Filmora usando a placa de vídeo integrada do processador para renderizar, a fim de ver se o problema continua.


Alguém mais já passou por algo parecido?
0

Troquei o teclado 2 vezes e as mesmas teclas pararam

Olá, pessoal!
Tenho um notebook ASUS x550l. Em outubro de 2023, identifiquei que oxidou a trilha do ctrl por alguma umidade, e somente ele parou de funcionar. Com isso, realizei a troca por um novo teclado genérico do mesmo modelo e funcionou tudo normalmente até final de janeiro, quando determinadas teclas: s, 0, 5, 6, ' , caps lock e mais algumas pararam e depois de alguns dias voltaram e pararam novamente. Decidi realizar a troca novamente, porém por um original usado de um modelo semelhante x552e, já que não encontrei para o meu modelo em funcionamento, mas esses modelos são iguais, e só muda o processador. Deu certo, funcionou normalmente, porém, após 2 semanas, as mesmas teclas que pararam no anterior que tinha trocado, também pararam nesse. Exatamente as mesmas teclas!
Já realizei diversos procedimentos: drivers, comando no regedit, testei na BIOS, testei com outro SSD, cortei um pouquinho da ponta do flat, limpei a entrada do flat... Fora os diversos procedimentos de comunidades e fóruns...
Com um teclado usb externo funciona, e com o original dele funciona... Porém com os dois que foram trocados não funcionam e, se eu trocar novamente, irá funcionar e possivelmente também irá parar as mesmas teclas, depois! Iria levar em algum técnico, mas ele vai dizer para trocar o teclado! E eu já gastei quase 250 reais com esses dois teclados.
Será que é algum conflito de software, hardware ou modelo ? Alguém já presenciou algo parecido ?
Do meu modelo semelhante, só encontrei dois para vender, e um não funciona e o outro não tem garantia se o teclado está funcionando. Não sei como funciona a dinâmica do teclado com a placa-mãe e o reconhecimento dela! Se precisa ser realmente original ? Já que diversas pessoas trocam por um genérico e funciona normalmente...
Estava hesitando em comprar esse sem garantia que é do mesmo modelo e original usado ou se levo em um técnico e explico, porém com certeza dirá que o problema é no teclado!
Não sei o que fazer... É possível realizar algo ? 
0

Como montar essa peça da parafusadeira Black Decker cd121k

Olá, eu abri minha parafusadeira velha pra limpar e quando fui fechar um fio escapou, tive que tirar a peça toda que tem os fios soldados que fazem parte da peça que muda a rotação para sentido horário ou anti horário e pra piorar saiu umas pecinhas na hora de desmontar e agora não sei como monta, fiquei o dia todo tentando e não consegui. Não achei nenhum vídeo na internet, preciso de uma ajuda urgente. Anexo do postAnexo do postAnexo do post
0

erro de compilação procedimento muito grande (vba excel)

Boa tarde pessoal estou com problema em um codigo vba algo poderia me ajudar?

Sub DiagramaProdução1A()
'
' novo diagrama produção
'

On Error GoTo TE

Application.ScreenUpdating = False

    i = 12
    j = 3

    counter1 = 14
   
   
    Do While counter1 <> 0
   
Cells(i, j).Select
While Not Cells(i, j).Text = ""  ' continua enquanto linha não estiver em branco
   
   
    ' Teste de resistividade
           
    If Cells(i + 1, j + 129).Text = "33" Then
       
  ActiveSheet.Shapes.Range(Array("CONTRAPESO&quot).Select
    Selection.Copy
    Cells(i - 2, j + 2).Select
    ActiveSheet.Paste
    Selection.ShapeRange.IncrementLeft 10.5750393701
    Selection.ShapeRange.IncrementTop 1.5750393701
    Else
    End If
   
   






   
    If Cells(i, j + 129).Text = "ESTAIADA" Then
   
 
   
   
   
   
   
'revisão
   
            If Cells(i - 2, j + 1).Text = "R" And Cells(i, j + 1).Text = "MBCR" Then
       
  ActiveSheet.Shapes.Range(Array("ObjectT&quot).Select
    Selection.Copy
    Cells(i - 2, j).Select
    ActiveSheet.Paste
      Selection.ShapeRange.IncrementLeft -1.4750393701

  Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
      Selection.ShapeRange.IncrementTop 1.4750393701

 
    PULAR = OK
    Else
   
        If Cells(i - 2, j + 1).Text = "R" Then
       
  ActiveSheet.Shapes.Range(Array("ObjectT&quot).Select
    Selection.Copy
    Cells(i - 2, j).Select
    ActiveSheet.Paste
    Selection.ShapeRange.IncrementLeft -1.4750393701

  Selection.ShapeRange.IncrementLeft -1.8750393701
  Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
      Selection.ShapeRange.IncrementTop 1.4750393701
   
 
    PULAR = OK
    Else
   


'montagem
   
    If Cells(i - 2, j + 1).Text = "M" And Cells(i, j + 1).Text = "MBCR" Then

       
       
  ActiveSheet.Shapes.Range(Array("ObjectTM&quot).Select
    Selection.Copy
    Cells(i - 2, j).Select
    ActiveSheet.Paste
      Selection.ShapeRange.IncrementLeft -1.4750393701

  Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
      Selection.ShapeRange.IncrementTop 1.4750393701
   
    PULAR = "OK"
    Else
    PULAR = "NOK"
   
    If Cells(i - 2, j + 1).Text = "M" Then

       
       
  ActiveSheet.Shapes.Range(Array("ObjectTM&quot).Select
    Selection.Copy
    Cells(i - 2, j).Select
    ActiveSheet.Paste
      Selection.ShapeRange.IncrementLeft -1.4750393701

  Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
      Selection.ShapeRange.IncrementTop 1.4750393701
     
    PULAR = "OK"
    Else
    PULAR = "NOK"
   
   
   
    'montagem incompleta
   
    If Cells(i - 2, j + 1).Text = "MI" Then

       
       
  ActiveSheet.Shapes.Range(Array("Object 11&quot).Select
    Selection.Copy
    Cells(i - 2, j).Select
    ActiveSheet.Paste
    Selection.ShapeRange.IncrementLeft -1.8750393701
    Selection.ShapeRange.IncrementLeft -1.8750393701
    Selection.ShapeRange.IncrementLeft -1.8750393701
    Selection.ShapeRange.IncrementLeft -1.8750393701
    Selection.ShapeRange.IncrementLeft -1.8750393701
    Selection.ShapeRange.IncrementLeft -1.8750393701
    Selection.ShapeRange.IncrementLeft -1.8750393701
    Selection.ShapeRange.IncrementLeft -1.8750393701
    Selection.ShapeRange.IncrementLeft -1.8750393701
    Selection.ShapeRange.IncrementLeft -1.8750393701

    Selection.ShapeRange.IncrementTop -1.8750393701
  Selection.ShapeRange.IncrementTop -1.8750393701
  Selection.ShapeRange.IncrementTop -1.8750393701
  Selection.ShapeRange.IncrementTop -1.8750393701
  Selection.ShapeRange.IncrementTop -1.8750393701
  Selection.ShapeRange.IncrementTop -1.8750393701
  Selection.ShapeRange.IncrementTop -1.8750393701
  Selection.ShapeRange.IncrementTop -1.8750393701
  Selection.ShapeRange.IncrementTop -1.8750393701
  Selection.ShapeRange.IncrementTop -1.8750393701
  Selection.ShapeRange.IncrementTop -1.8750393701
    PULAR = "OK"
    Else
    PULAR = "NOK"
   
    End If
    End If
    End If
    End If
    End If
   
   
    'EHS
    If j > 3 Then
   
    If Cells(i - 2, j - 3).Text = "G" Then
   
   
    ActiveSheet.Shapes.Range(Array("Freeform 127&quot).Select
    Selection.Copy
    Cells(i - 2, j - 3).Select
    ActiveSheet.Paste
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementLeft -1.8750393701
   
 
 
    Else
    End If
    Else
    End If
   
          'EHS vão vante
    If j > 3 Then
   

    If j = 108 Then
    If Cells(i - 2, j + 3) = "" And Cells(i + 2, j - 105).Text = "G" Then
   
   
   
    ActiveSheet.Shapes.Range(Array("Freeform 127&quot).Select
    Selection.Copy
    Cells(i - 2, j - 3).Select
    ActiveSheet.Paste
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementLeft -1.8750393701
   
 
  Else
    End If
    Else
    End If
    Else
    End If
   
'lançamento
   
   
If j > 3 Then
If Cells(i - 1, j - 3).Text = "L" Then
       
    ActiveSheet.Shapes.Range(Array("Freeform 128&quot).Select
    Selection.Copy
    Cells(i - 2, j - 3).Select
    ActiveSheet.Paste
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementLeft -1.8750393701
   
 

    Else
    End If
    Else
    End If
   
    'lançamento OPGW
   
   
If j > 3 Then
If Cells(i - 1, j - 2).Text = "OPGW-L" Then
       
    ActiveSheet.Shapes.Range(Array("Freeform 190&quot).Select
    Selection.Copy
    Cells(i - 2, j - 3).Select
    ActiveSheet.Paste
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementLeft -1.8750393701
   
 

    Else
    End If
    Else
    End If
   
    'F1
   
   
If Cells(i, j + 130).Text = "3" Then
   
  ActiveSheet.Shapes.Range(Array("Imagem 1688&quot).Select
    Selection.Copy
    Cells(i, j).Select
    ActiveSheet.Paste
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
      Selection.ShapeRange.IncrementTop 1.0914173228
      Selection.ShapeRange.IncrementTop 1.0914173228
        Selection.ShapeRange.IncrementTop 1.0914173228
        Selection.ShapeRange.IncrementTop 1.0914173228
    Else
    End If
 
      'F2
   
   
If Cells(i, j + 130).Text = "4" Then
   
  ActiveSheet.Shapes.Range(Array("Imagem 1689&quot).Select
    Selection.Copy
    Cells(i, j).Select
    ActiveSheet.Paste
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
      Selection.ShapeRange.IncrementTop 1.0914173228
      Selection.ShapeRange.IncrementTop 1.0914173228
      Selection.ShapeRange.IncrementTop 1.0914173228
        Selection.ShapeRange.IncrementTop 1.0914173228
          Selection.ShapeRange.IncrementTop 1.0914173228
        Selection.ShapeRange.IncrementTop 1.0914173228
        Selection.ShapeRange.IncrementTop 1.0914173228
    Else
    End If
 
 
 
   
    ' pré montagem
   
   
          If Cells(i - 2, j + 1).Text <> "R" And Cells(i - 2, j + 1).Text <> "M" And Cells(i - 2, j + 1).Text <> "MI" Then
   
    If Cells(i, j + 128).Text = "1" Then
   
  ActiveSheet.Shapes.Range(Array("Imagem 730&quot).Select
    Selection.Copy
    Cells(i, j).Select
    ActiveSheet.Paste
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Range("Y73&quot.Select
   
    End If
   
    End If
   
    ' pré montagem
   
   
          If Cells(i - 2, j + 1).Text <> "R" And Cells(i - 2, j + 1).Text <> "M" And Cells(i - 2, j + 1).Text <> "MI" Then
   
    If Cells(i, j + 128).Text = "2" Then
   
  ActiveSheet.Shapes.Range(Array("Imagem750&quot).Select
    Selection.Copy
    Cells(i, j).Select
    ActiveSheet.Paste
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Range("Y73&quot.Select
   
    End If
   
    End If
       
  If PULAR = "NOK" Then
 
  ActiveSheet.Shapes.Range(Array("Pizza 83&quot).Select
    Selection.Copy
    Cells(i - 2, j).Select
    ActiveSheet.Paste
       
    ' 1° quadrante
    ' 1° opção
    '
       

 
  If Cells(i - 2, j).Text = "F" Then
       
    'edita grafico
   
 
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(46, 205, 9)
        .Transparency = 0
        .Solid
    End With
    Else
   
 
   
   
    If Cells(i - 2, j).Text = "P" Then
       
    'edita grafico
   
   
  With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(147, 119, 103)
        .Transparency = 0
        .Solid
    End With
    Else
   
 
 
  If Cells(i - 2, j).Text = "0" Then
       
    'edita grafico
   
 
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 255, 255)
        .Transparency = 0
        .Solid
    End With
    Else

 
  If Cells(i - 2, j).Text = "MI" Then
       
    'edita grafico
   
 
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 255, 0)
        .Transparency = 0
        .Solid
    End With
    Else
   
   
    'sondagem & topografia
   
    If Cells(i - 2, j).Text = "ST" Then
       
    'edita grafico
   
 
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(112, 48, 160)
        .Transparency = 0
        .Solid
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent6
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = -0.25
        .Transparency = 0
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .Weight = 6
    End With
    Else
    End If
   
   
    'SONDAGEM
   
    If Cells(i - 2, j).Text = "SO" Then
       
    'edita grafico
   
  With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent6
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = -0.25
        .Transparency = 0
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .Weight = 6
    End With
   
    Else
    End If
   
   
   
    'TOPOGRAFIA
   
    If Cells(i - 2, j).Text = "TO" Then
       
    'edita grafico
  With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(112, 48, 160)
        .Transparency = 0
        .Solid
    End With
   
    Else
   
        'CONFERÊNCIA
   
    If Cells(i - 2, j).Text = "COF" Then
       
    'edita grafico
With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(0, 176, 240)
        .Transparency = 0
        .Solid
    End With
   
    Else
 
  End If
   
 
        End If
        End If
        End If
        End If
        End If
   
     
   
    '
    ' Inicio do 2° quadrante
    '
   
   
 
   
    ActiveSheet.Shapes.Range(Array("PIZZA 86&quot).Select
    Selection.Copy
    Cells(i - 2, j).Select
    ActiveSheet.Paste
   
    j = j + 1

 
   
    If Cells(i - 2, j).Text = "F" Then
       
    'edita grafico
   
   
  With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(46, 205, 9)
        .Transparency = 0
        .Solid
    End With
    Else
   
    '6² OPÇÃO
   
   
    If Cells(i - 2, j).Text = "P" Then
       
    'edita grafico
   
   
  With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(147, 119, 103)
        .Transparency = 0
        .Solid
    End With
    Else
   
    '5² OPÇÃO
   
   
    If Cells(i - 2, j).Text = "0" Then
       
    'edita grafico
   
      With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 255, 255)
        .Transparency = 0
        .Solid
    End With
    Else
   
            'sondagem & topografia
   
    If Cells(i - 2, j).Text = "ST" Then
       
    'edita grafico
   
 
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(112, 48, 160)
        .Transparency = 0
        .Solid
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent6
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = -0.25
        .Transparency = 0
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .Weight = 6
    End With
    Else
    End If
   
    'SONDAGEM
   
    If Cells(i - 2, j).Text = "SO" Then
       
    'edita grafico
   
  With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent6
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = -0.25
        .Transparency = 0
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .Weight = 6
    End With
   
    Else
    End If
   
   
    'TOPOGRAFIA
   
    If Cells(i - 2, j).Text = "TO" Then
       
    'edita grafico
  With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(112, 48, 160)
        .Transparency = 0
        .Solid
    End With
   
    Else
 
   
   
    'Conferência
   
    If Cells(i - 2, j).Text = "COF" Then
       
    'edita grafico
With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(0, 176, 240)
        .Transparency = 0
        .Solid
    End With
   
    Else
   
 
    End If
        End If
     
   
   
   
    End If
    End If
      End If
   
       
   
   
   
    j = j - 1
   
   
   


   
    ActiveSheet.Shapes.Range(Array("PIZZA 84&quot).Select
    Selection.Copy
    Cells(i - 2, j).Select
    ActiveSheet.Paste
   

   
    '
    ' Inicio do 3° quadrante
    '
   
     
   
 
   
   
    '5 opção
   
   
    If Cells(i - 1, j).Text = "F" Then
       
    'edita grafico
   
   
  With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(46, 205, 9)
        .Transparency = 0
        .Solid
    End With
    Else
   
    '6² OPÇÃO
   
   
    If Cells(i - 1, j).Text = "P" Then
       
    'edita grafico
   
   
  With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(147, 119, 103)
        .Transparency = 0
        .Solid
    End With
    Else
   
    '7 opção
   
   
    If Cells(i - 1, j).Text = "0" Then
       
    'edita grafico
   
   
  With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 255, 255)
        .Transparency = 0
        .Solid
    End With
    Else
   
        'sondagem & topografia
   
    If Cells(i - 2, j).Text = "ST" Then
       
    'edita grafico
   
 
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(112, 48, 160)
        .Transparency = 0
        .Solid
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent6
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = -0.25
        .Transparency = 0
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .Weight = 6
    End With
    Else
    End If
   
    'SONDAGEM
   
    If Cells(i - 2, j).Text = "SO" Then
       
    'edita grafico
   
  With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent6
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = -0.25
        .Transparency = 0
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .Weight = 6
    End With
   
    Else
   
    End If
   
    'TOPOGRAFIA
   
    If Cells(i - 2, j).Text = "TO" Then
       
    'edita grafico
  With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(112, 48, 160)
        .Transparency = 0
        .Solid
    End With
   
    Else
   
      'Conferência
   
    If Cells(i - 2, j).Text = "COF" Then
       
    'edita grafico
With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(0, 176, 240)
        .Transparency = 0
        .Solid
    End With
   
    Else
   
 
    End If
   
     
        End If
     
   
   
   
   
   
   
    End If
      End If
      End If
     
         
         
         
           
           
           

   
    ActiveSheet.Shapes.Range(Array("PIZZA 85&quot).Select
    Selection.Copy
    Cells(i - 2, j).Select
    ActiveSheet.Paste
 
   
      j = j + 1

   
    '
    ' Inicio do 4° quadrante
    '
   
     
   
 
    '1 opção
   
   
    If Cells(i - 1, j).Text = "F" Then
       
    'edita grafico
   
   
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(46, 205, 9)
        .Transparency = 0
        .Solid
    End With
    Else
   
    '2² OPÇÃO
   
   
    If Cells(i - 1, j).Text = "P" Then
       
    'edita grafico
   
   
  With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(147, 119, 103)
        .Transparency = 0
        .Solid
    End With
    Else
   
    '3² OPÇÃO
   
   
    If Cells(i - 1, j).Text = "0" Then
       
    'edita grafico
   
   
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 255, 255)
        .Transparency = 0
        .Solid
    End With

   
    Else
   
   
        'sondagem & topografia
   
    If Cells(i - 2, j).Text = "ST" Then
       
    'edita grafico
   
 
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(112, 48, 160)
        .Transparency = 0
        .Solid
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent6
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = -0.25
        .Transparency = 0
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .Weight = 6
    End With
    Else
    End If
    'SONDAGEM
   
    If Cells(i - 2, j).Text = "SO" Then
       
    'edita grafico
   
  With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent6
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = -0.25
        .Transparency = 0
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .Weight = 6
    End With
   
    Else
    End If
   
   
    'TOPOGRAFIA
   
    If Cells(i - 2, j).Text = "TO" Then
       
    'edita grafico
  With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(112, 48, 160)
        .Transparency = 0
        .Solid
    End With
   
    Else
      'Conferência
   
    If Cells(i - 2, j).Text = "COF" Then
       
    'edita grafico
With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(0, 176, 240)
        .Transparency = 0
        .Solid
    End With
   
    Else
    End If
   
 
   
        End If
   
     
   
 
   
 
    End If
      End If
      End If
     
          j = j - 1
     
      'mc1
     
          ActiveSheet.Shapes.Range(Array("Retângulo Arredondado 89&quot).Select
    Selection.Copy
    Cells(i - 2, j).Select
    ActiveSheet.Paste
   
    Selection.ShapeRange.IncrementLeft 25.272440944
Selection.ShapeRange.IncrementTop 33.036062991
 
   
   
   
   
   
 
If Cells(i - 2, j).Text = "G" Then
       
    'edita grafico
   
 
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(49, 197, 213)
        .Transparency = 0
        .Solid
    End With
    Else
   
 
   
    ' 2° opção
   
   
    If Cells(i - 2, j).Text = "L" Then
       
    'edita grafico
   
 
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(81, 88, 213)
        .Transparency = 0
        .Solid
    End With
    Else
   
    '3 opção
   
   
        If Cells(i - 2, j).Text = "R" Then
       
    'edita grafico
   
 
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(184, 88, 115)
        .Transparency = 0
        .Solid
    End With
    Else
   
'4° OPÇÃO
   
    If Cells(i - 2, j).Text = "M" Then
       
    'edita grafico
   
 
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(242, 50, 30)
        .Transparency = 0
        .Solid
    End With
   
    Else
   
        If Cells(i - 2, j).Text = "MI" Then
       
    'edita grafico
   
 
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 255, 0)
        .Transparency = 0
        .Solid
    End With
   
    Else
   
    '6² OPÇÃO
   
   
    If Cells(i + 1, j + 2).Text = "" Then
       
    'edita grafico
   
   
  With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 255, 255)
        .Transparency = 0
        .Solid
    End With
    Else
   

   
    ' 5° OPÇÃO
 
  If Cells(i + 1, j + 2).Text = "MC" Then
       
   
       
    'edita grafico
   
 
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(46, 205, 9)
        .Transparency = 0
        .Solid
    End With
    Else
   
   
   
     
        'sondagem & topografia
   
    If Cells(i - 2, j).Text = "ST" Then
       
    'edita grafico
   
 
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(112, 48, 160)
        .Transparency = 0
        .Solid
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent6
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = -0.25
        .Transparency = 0
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .Weight = 6
    End With
    Else
    End If
    'SONDAGEM
   
    If Cells(i - 2, j).Text = "SO" Then
       
    'edita grafico
   
  With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent6
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = -0.25
        .Transparency = 0
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .Weight = 6
    End With
   
    Else
    End If
   
   
    'TOPOGRAFIA
   
    If Cells(i - 2, j).Text = "TO" Then
       
    'edita grafico
  With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(112, 48, 160)
        .Transparency = 0
        .Solid
    End With
   
    Else
      'Conferência
   
    If Cells(i - 2, j).Text = "COF" Then
       
    'edita grafico
With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(0, 176, 240)
        .Transparency = 0
        .Solid
    End With
   
    Else
    End If
    End If
   
   
   
   
   
   
  ' 6° OPÇÃO
 
  If Cells(i + 1, j + 2).Text = "0" Then
       
    'edita grafico
   
 
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 255, 255)
        .Transparency = 0
        .Solid
    End With
   
   

    Else
   
 
 
   
        End If
   
 
   
       
        End If
        End If
        End If
        End If
        End If
        End If
 
               
       
       
       
       
       
   
   
   
'mc2
   
     
ActiveSheet.Shapes.Range(Array("Retângulo Arredondado 88&quot).Select
    Selection.Copy
    Cells(i - 2, j).Select
    ActiveSheet.Paste
   
    Selection.ShapeRange.IncrementLeft 52.572440944
  Selection.ShapeRange.IncrementTop 33.036062991

   
   
    If Cells(i - 2, j).Text = "G" Then
       
    'edita grafico
   
 
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(49, 197, 213)
        .Transparency = 0
        .Solid
    End With
    Else
   
    ' 2° opção
   
   
    If Cells(i - 2, j).Text = "L" Then
       
    'edita grafico
   
 
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(81, 88, 213)
        .Transparency = 0
        .Solid
    End With
    Else
   
    '3 opção
   
   
        If Cells(i - 2, j).Text = "R" Then
       
    'edita grafico
   
 
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(184, 88, 115)
        .Transparency = 0
        .Solid
    End With
    Else
   
'4° OPÇÃO
   
    If Cells(i - 2, j).Text = "M" Then
       
    'edita grafico
   
 
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(242, 50, 30)
        .Transparency = 0
        .Solid
    End With
   
    Else
   
        If Cells(i - 2, j).Text = "MI" Then
       
    'edita grafico
   
 
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 255, 0)
        .Transparency = 0
        .Solid
    End With
   
    Else
   
    '6² OPÇÃO
   
   
    If Cells(i, j + 2).Text = "" Then
       
    'edita grafico
   
   
  With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 255, 255)
        .Transparency = 0
        .Solid
    End With
    Else
   

   
    ' 5° OPÇÃO
 
  If Cells(i, j + 2).Text = "MC2" Then
       
    'edita grafico
   
 
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(46, 205, 9)
        .Transparency = 0
        .Solid
    End With
    Else
   
   
   
   
     
        'sondagem & topografia
   
    If Cells(i - 2, j).Text = "ST" Then
       
    'edita grafico
   
 
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(112, 48, 160)
        .Transparency = 0
        .Solid
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent6
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = -0.25
        .Transparency = 0
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .Weight = 6
    End With
    Else
    End If
    'SONDAGEM
   
    If Cells(i - 2, j).Text = "SO" Then
       
    'edita grafico
   
  With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent6
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = -0.25
        .Transparency = 0
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .Weight = 6
    End With
   
    Else
    End If
   
   
    'TOPOGRAFIA
   
    If Cells(i - 2, j).Text = "TO" Then
       
    'edita grafico
  With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(112, 48, 160)
        .Transparency = 0
        .Solid
    End With
   
    Else
      'Conferência
   
    If Cells(i - 2, j).Text = "cof" Then
       
    'edita grafico
With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(0, 176, 240)
        .Transparency = 0
        .Solid
    End With
   
    Else
    End If
    End If
   
    ' 6° OPÇÃO
 
  If Cells(i + 1, j + 140).Text = "0" Then
       
    'edita grafico
   
 
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 255, 255)
        .Transparency = 0
        .Solid
    End With
   
   

    Else
   
 
 
   
        End If
   
 
   
        End If
        End If
        End If
        End If
        End If
        End If
        End If
        End If
       
       
        'Caso a torre já esteja montada
        Else
        End If
       
        ' pendência de projeto
       
       
        If Cells(i + 1, j + 1).Text = "pp" Then
          ActiveSheet.Shapes.Range(Array("Fluxograma: Somador 4&quot).Select
        Selection.Copy
        Cells(i - 2, j).Select
        ActiveSheet.Paste
      Else
       
       
          ' Embargo sítio arqueológico
         
       
       
        If Cells(i + 1, j + 1).Text = "s" Then
        ActiveSheet.Shapes.Range(Array("Fluxograma: Somador 5&quot).Select
        Selection.Copy
      Cells(i - 2, j).Select
        ActiveSheet.Paste
      Else
     
     
        ' Embargo proprietário
       
       
        If Cells(i + 1, j + 1).Text = "p" Then
        ActiveSheet.Shapes.Range(Array("Fluxograma: Somador 9&quot).Select
        Selection.Copy
      Cells(i - 2, j).Select
        ActiveSheet.Paste
        End If
        End If
        End If
             
       
       
       
     
         
   
Else
                                                      ' Caso torre seja autoportante os dados serão implantado em uma forma quadrada





   
'revisão
   
   
        If Cells(i - 2, j + 1).Text = "R" Then
       
  ActiveSheet.Shapes.Range(Array("Object 10&quot).Select
    Selection.Copy
    Cells(i - 2, j).Select
    ActiveSheet.Paste
  Selection.ShapeRange.IncrementLeft -1.8750393701
  Selection.ShapeRange.IncrementLeft -1.8750393701
  Selection.ShapeRange.IncrementLeft -1.8750393701
  Selection.ShapeRange.IncrementLeft -1.8750393701
  Selection.ShapeRange.IncrementLeft -1.8750393701
  Selection.ShapeRange.IncrementLeft -1.8750393701
  Selection.ShapeRange.IncrementLeft -1.8750393701
  Selection.ShapeRange.IncrementLeft -1.8750393701
  Selection.ShapeRange.IncrementLeft -1.8750393701
  Selection.ShapeRange.IncrementLeft -1.8750393701
  Selection.ShapeRange.IncrementLeft -1.8750393701
  Selection.ShapeRange.IncrementLeft -1.8750393701
  Selection.ShapeRange.IncrementTop -1.8750393701
  Selection.ShapeRange.IncrementTop -1.8750393701
  Selection.ShapeRange.IncrementTop -1.8750393701
  Selection.ShapeRange.IncrementTop -1.8750393701
  Selection.ShapeRange.IncrementTop -1.8750393701
  Selection.ShapeRange.IncrementTop -1.8750393701
    PULAR = OK
    Else
   
'montagem
   
    If Cells(i - 2, j + 1).Text = "M" Then
       
       
  ActiveSheet.Shapes.Range(Array("Object 9&quot).Select
    Selection.Copy
    Cells(i - 2, j).Select
    ActiveSheet.Paste
  Selection.ShapeRange.IncrementLeft -1.8750393701
  Selection.ShapeRange.IncrementLeft -1.8750393701
  Selection.ShapeRange.IncrementLeft -1.8750393701
  Selection.ShapeRange.IncrementLeft -1.8750393701
  Selection.ShapeRange.IncrementLeft -1.8750393701
  Selection.ShapeRange.IncrementLeft -1.8750393701
  Selection.ShapeRange.IncrementLeft -1.8750393701
  Selection.ShapeRange.IncrementLeft -1.8750393701
  Selection.ShapeRange.IncrementLeft -1.8750393701
  Selection.ShapeRange.IncrementLeft -1.8750393701
  Selection.ShapeRange.IncrementLeft -1.8750393701
  Selection.ShapeRange.IncrementLeft -1.8750393701
  Selection.ShapeRange.IncrementTop -1.8750393701
  Selection.ShapeRange.IncrementTop -1.8750393701
  Selection.ShapeRange.IncrementTop -1.8750393701
  Selection.ShapeRange.IncrementTop -1.8750393701
  Selection.ShapeRange.IncrementTop -1.8750393701
  Selection.ShapeRange.IncrementTop -1.8750393701
    PULAR = "OK"
    Else
    PULAR = "NOK"
   
    'montagem incompleta
   
    If Cells(i - 2, j + 1).Text = "MI" Then
       
       
  ActiveSheet.Shapes.Range(Array("Object 12&quot).Select
    Selection.Copy
    Cells(i - 2, j).Select
    ActiveSheet.Paste
  Selection.ShapeRange.IncrementLeft -1.8750393701
  Selection.ShapeRange.IncrementLeft -1.8750393701
  Selection.ShapeRange.IncrementLeft -1.8750393701
  Selection.ShapeRange.IncrementLeft -1.8750393701
  Selection.ShapeRange.IncrementLeft -1.8750393701
  Selection.ShapeRange.IncrementLeft -1.8750393701
  Selection.ShapeRange.IncrementLeft -1.8750393701
  Selection.ShapeRange.IncrementLeft -1.8750393701
  Selection.ShapeRange.IncrementLeft -1.8750393701
  Selection.ShapeRange.IncrementLeft -1.8750393701
  Selection.ShapeRange.IncrementLeft -1.8750393701
  Selection.ShapeRange.IncrementLeft -1.8750393701
  Selection.ShapeRange.IncrementTop -1.8750393701
  Selection.ShapeRange.IncrementTop -1.8750393701
  Selection.ShapeRange.IncrementTop -1.8750393701
  Selection.ShapeRange.IncrementTop -1.8750393701
  Selection.ShapeRange.IncrementTop -1.8750393701
  Selection.ShapeRange.IncrementTop -1.8750393701
    PULAR = "OK"
    Else
    PULAR = "NOK"
   
    End If
   
    End If
    End If
 
 
          'grampeação
    If j > 3 Then
   
    If Cells(i - 2, j - 3).Text = "G" Then
   
   
    ActiveSheet.Shapes.Range(Array("Freeform 127&quot).Select
    Selection.Copy
    Cells(i - 2, j - 3).Select
    ActiveSheet.Paste
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementLeft -1.8750393701
   
 
 
    Else
    End If
    Else
    End If
   
    'EHS vão vante
    If j > 3 Then
   

    If j = 53 Then
    If Cells(i - 2, j + 3) = "" And Cells(i + 2, j - 50).Text = "G" Then
   
   
    ActiveSheet.Shapes.Range(Array("Freeform 127&quot).Select
    Selection.Copy
    Cells(i - 2, j - 3).Select
    ActiveSheet.Paste
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementLeft -1.8750393701
   
 
 
    Else
    End If
    Else
    End If
    Else
    End If
   
'lançamento
   
   
If j > 3 Then
If j > 3 And Cells(i - 1, j - 3).Text = "L" Then
       
    ActiveSheet.Shapes.Range(Array("Freeform 128&quot).Select
    Selection.Copy
    Cells(i - 2, j - 3).Select
    ActiveSheet.Paste
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementLeft -1.8750393701
   
 

    Else
    End If
    Else
    End If
   
    'lançamento OPGW
   
   
If j > 3 Then
If Cells(i - 1, j - 2).Text = "OPGW-L" Then
       
    ActiveSheet.Shapes.Range(Array("Freeform 190&quot).Select
    Selection.Copy
    Cells(i - 2, j - 3).Select
    ActiveSheet.Paste
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementLeft 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementTop 1.8750393701
    Selection.ShapeRange.IncrementLeft -1.8750393701
   
 

    Else
    End If
    Else
    End If
 
'F1
   
   
If Cells(i, j + 130).Text = "3" Then
   
  ActiveSheet.Shapes.Range(Array("Imagem 1688&quot).Select
    Selection.Copy
    Cells(i, j).Select
    ActiveSheet.Paste
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
      Selection.ShapeRange.IncrementTop 1.0914173228
      Selection.ShapeRange.IncrementTop 1.0914173228
        Selection.ShapeRange.IncrementTop 1.0914173228
        Selection.ShapeRange.IncrementTop 1.0914173228
    Else
    End If
 
      'F2
   
   
If Cells(i, j + 130).Text = "4" Then
   
  ActiveSheet.Shapes.Range(Array("Imagem 1689&quot).Select
    Selection.Copy
    Cells(i, j).Select
    ActiveSheet.Paste
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
      Selection.ShapeRange.IncrementTop 1.0914173228
      Selection.ShapeRange.IncrementTop 1.0914173228
      Selection.ShapeRange.IncrementTop 1.0914173228
        Selection.ShapeRange.IncrementTop 1.0914173228
        Selection.ShapeRange.IncrementTop 1.0914173228
        Selection.ShapeRange.IncrementTop 1.0914173228
        Selection.ShapeRange.IncrementTop 1.0914173228
    Else
    End If
   

' pré montagem
      If Cells(i - 2, j + 1).Text <> "R" And Cells(i - 2, j + 1).Text <> "M" And Cells(i - 2, j + 1).Text <> "MI" Then

   
    If Cells(i, j + 128).Text = "1" Then
   
ActiveSheet.Shapes.Range(Array("Picture 77&quot).Select
    Selection.Copy
    Cells(i, j).Select
 
      ActiveSheet.Paste
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Selection.ShapeRange.IncrementTop 1.0914173228
    Range("Y73&quot.Select
   
    End If
   
    End If
   
If PULAR = "NOK" Then


    ActiveSheet.Shapes.Range(Array("Rounded Rectangle 239&quot).Select
    Selection.Copy
    Cells(i - 2, j).Select
    DesprotegerPlanilha
    ActiveSheet.Paste
   
     
    ' 1° quadrante
 
    ' 5° OPÇÃO
 
  If Cells(i - 2, j).Text = "F" Then
       
    'edita grafico
   
 
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(46, 205, 9)
        .Transparency = 0
        .Solid
    End With
    Else
   
    '6² OPÇÃO
   
   
    If Cells(i - 2, j).Text = "P" Then
       
    'edita grafico
   
   
  With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(147, 119, 103)
        .Transparency = 0
        .Solid
    End With
    Else
   
   
   
    ' 6° OPÇÃO
 
  If Cells(i - 2, j).Text = "0" Then
       
    'edita grafico
   
 
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 255, 255)
        .Transparency = 0
        .Solid
    End With
    Else
       
    'sondagem & topografia
   
    If Cells(i - 2, j).Text = "ST" Then
       
    'edita grafico
   
 
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(112, 48, 160)
        .Transparency = 0
        .Solid
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent6
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = -0.25
        .Transparency = 0
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .Weight = 6
    End With
    Else
    End If
   
    'SONDAGEM
   
    If Cells(i - 2, j).Text = "SO" Then
       
    'edita grafico
   
  With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent6
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = -0.25
        .Transparency = 0
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .Weight = 6
    End With
   
    Else
    End If
   
   
    'TOPOGRAFIA
   
    If Cells(i - 2, j).Text = "TO" Then
       
    'edita grafico
  With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(112, 48, 160)
        .Transparency = 0
        .Solid
    End With
   
    Else
   
        'Conferência
       
    If Cells(i - 2, j).Text = "COF" Then
       
    'edita grafico
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(0, 176, 240)
        .Transparency = 0
        .Solid
    End With
   
    Else
   
   
    End If
   
   
 
   
   
        End If
         
 
   
        End If
        End If
        End If
     
   
    '
    ' Inicio do 2° quadrante
    '
   
    j = j + 1
   
   
    ActiveSheet.Shapes.Range(Array("Rounded Rectangle 240&quot).Select
    Selection.Copy
    Cells(i - 2, j).Select
    ActiveSheet.Paste
   
 

   
   
    '5² OPÇÃO
   
   
    If Cells(i - 2, j).Text = "F" Then
       
    'edita grafico
   
   
  With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(46, 205, 9)
        .Transparency = 0
        .Solid
    End With
    Else
   
    '6² OPÇÃO
   
   
    If Cells(i - 2, j).Text = "P" Then
       
    'edita grafico
   
   
  With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(147, 119, 103)
        .Transparency = 0
        .Solid
    End With
    Else
   
   
   
    '5² OPÇÃO
   
   
    If Cells(i - 2, j).Text = "0" Then
       
    'edita grafico
   
      With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 255, 255)
        .Transparency = 0
        .Solid
    End With
    Else
   
        '6² OPÇÃO
   
   
    If Cells(i - 2, j).Text = "MI" Then
       
    'edita grafico
   
      With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 255, 0)
        .Transparency = 0
        .Solid
    End With
    Else
   
      'sondagem & topografia
   
    If Cells(i - 2, j).Text = "ST" Then
       
    'edita grafico
   
 
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(112, 48, 160)
        .Transparency = 0
        .Solid
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent6
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = -0.25
        .Transparency = 0
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .Weight = 6
    End With
    Else
    End If
   
    'SONDAGEM
   
    If Cells(i - 2, j).Text = "SO" Then
       
    'edita grafico
   
  With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent6
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = -0.25
        .Transparency = 0
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .Weight = 6
    End With
   
    Else
    End If
   
   
    'TOPOGRAFIA
   
    If Cells(i - 2, j).Text = "TO" Then
       
    'edita grafico
  With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(112, 48, 160)
        .Transparency = 0
        .Solid
    End With
   
    Else
   
        'Conferência
   
    If Cells(i - 2, j).Text = "COF" Then
       
    'edita grafico
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(0, 176, 240)
        .Transparency = 0
        .Solid
    End With
   
    Else
    End If
 
   
     
        End If
        End If
        End If
        End If
        End If
   
     
       
   
   
   
    j = j - 1
   
   
   


   
    ActiveSheet.Shapes.Range(Array("Rounded Rectangle 241&quot).Select
    Selection.Copy
    Cells(i - 1, j).Select
    ActiveSheet.Paste
   

   
    '
    ' Inicio do 3° quadrante
    '
   
     
   
 
   
    '5 opção
   
   
    If Cells(i - 1, j).Text = "F" Then
       
    'edita grafico
   
   
  With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(46, 205, 9)
        .Transparency = 0
        .Solid
    End With
    Else
   
    '6² OPÇÃO
   
   
    If Cells(i - 1, j).Text = "P" Then
       
    'edita grafico
   
   
  With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(147, 119, 103)
        .Transparency = 0
        .Solid
    End With
    Else
   
   
    '6 opção
   
   
    If Cells(i - 1, j).Text = "0" Then
       
    'edita grafico
   
   
  With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 255, 255)
        .Transparency = 0
        .Solid
    End With
    Else
   
        '7 opção
   
   
   
        'sondagem & topografia
   
    If Cells(i - 2, j).Text = "ST" Then
       
    'edita grafico
   
 
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(112, 48, 160)
        .Transparency = 0
        .Solid
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent6
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = -0.25
        .Transparency = 0
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .Weight = 6
    End With
    Else
    End If
   
    'SONDAGEM
   
    If Cells(i - 2, j).Text = "SO" Then
       
    'edita grafico
   
  With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent6
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = -0.25
        .Transparency = 0
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .Weight = 6
    End With
   
    Else
    End If
   
   
    'TOPOGRAFIA
   
    If Cells(i - 2, j).Text = "TO" Then
       
    'edita grafico
  With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(112, 48, 160)
        .Transparency = 0
        .Solid
    End With
   
    Else
   
        'Conferência
   
    If Cells(i - 2, j).Text = "COF" Then
       
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(0, 176, 240)
        .Transparency = 0
        .Solid
    End With
   
    Else
    End If
 
   
 
        End If
   
   

    End If
      End If
      End If
     
         
         
         
           
           
           
    j = j + 1
           
   
    ActiveSheet.Shapes.Range(Array("Rounded Rectangle 242&quot).Select
    Selection.Copy
    Cells(i - 1, j).Select
    ActiveSheet.Paste
 
 

   
    '
    ' Inicio do 4° quadrante
    '
   
     
   
   
   
    '5 opção
   
   
    If Cells(i - 1, j).Text = "F" Then
       
    'edita grafico
   
   
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(46, 205, 9)
        .Transparency = 0
        .Solid
    End With
    Else
   
    '6² OPÇÃO
   
   
    If Cells(i - 1, j).Text = "P" Then
       
    'edita grafico
   
   
  With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(147, 119, 103)
        .Transparency = 0
        .Solid
    End With
    Else
   
   
    If Cells(i - 1, j).Text = "0" Then
       
    'edita grafico
   
   
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 255, 255)
        .Transparency = 0
        .Solid
    End With
       
    Else
       
          'sondagem & topografia
   
    If Cells(i - 2, j).Text = "ST" Then
       
    'edita grafico
   
 
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(112, 48, 160)
        .Transparency = 0
        .Solid
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent6
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = -0.25
        .Transparency = 0
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .Weight = 6
    End With
    Else
    End If
   
    'SONDAGEM
   
    If Cells(i - 2, j).Text = "SO" Then
       
    'edita grafico
   
  With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent6
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = -0.25
        .Transparency = 0
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .Weight = 6
    End With
   
    Else
    End If
   
   
    'TOPOGRAFIA
   
    If Cells(i - 2, j).Text = "TO" Then
       
    'edita grafico
  With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(112, 48, 160)
        .Transparency = 0
        .Solid
    End With
   
    Else
   
      'Conferência
   
    If Cells(i - 2, j).Text = "COF" Then
       
    'edita grafico
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(0, 176, 240)
        .Transparency = 0
        .Solid
    End With
   
    Else
   
  End If
   
   
        End If
     
     
   
 
    End If
      End If
      End If
      j = j - 1
     
     
     
     
      'caso a torre já  estejá montada
     
      Else
      End If
         
Cells(i, j).Select

         
          ' pendência de projeto
       
       
        If Cells(i + 1, j + 1).Text = "pp" Then
          ActiveSheet.Shapes.Range(Array("Fluxograma: Somador 4&quot).Select
        Selection.Copy
        Cells(i - 2, j).Select
        ActiveSheet.Paste
      Else
       
       
          ' Embargo sítio arqueológico
         
       
       
        If Cells(i + 1, j + 1).Text = "s" Then
        ActiveSheet.Shapes.Range(Array("Fluxograma: Somador 5&quot).Select
        Selection.Copy
      Cells(i - 2, j).Select
        ActiveSheet.Paste
      Else
     
     
        ' Embargo proprietário
       
       
        If Cells(i + 1, j + 1).Text = "p" Then
        ActiveSheet.Shapes.Range(Array("Fluxograma: Somador 9&quot).Select
        Selection.Copy
      Cells(i - 2, j).Select
        ActiveSheet.Paste
        End If
        Cells(i + 1, j + 1).Select
        End If
        End If

       
   

 
       
        End If
       
        j = j + 3
       
        Wend
     
               
        i = i + 4
Cells(i, j).Select
j = 3
       
       
        counter1 = counter1 - 1
        Loop
TE:  'Tratar erro
End Sub
0

Computador não liga em casa

Bom dia!
Usei o meu computador na noite anterior, quando liguei ele no dia seguinte a noite não deu nenhum sinal, mas durante o dia houve tempestades com raios e trovoadas. eu levei o meu gabinete para o meu trabalho, liguei na tomada de lá e funcionou perfeitamente dando vídeo, trouxe pra casa e novamente não ligou. 
eu utilizo o filtro de linha da iclamper pra ligar, minha fonte é uma gamemax600, a placa mãe é uma A520m e o processador Ryzen 5 3600.
preciso de um help, estou sem saída já.

O que vocês acham que pode ser? quais testes eu posso fazer em casa, já testei ligar sem memória e bateria, não deu sinal, testei ligar em outras tomadas da casa, nada também.
0

Jogo fecha sozinho

ola a todos gostaria de fazer uma pergunta pois eu estou com um problema tenho uma placa de Vídeo gt730 4gb 128bits DDR3 com Interface PCI-Express 2.0 x16 na placa-mãe de Interface PCI-Express 1.0 e ao eu inicia o jogo ele roda algums minutos e fecha so o jogo sozinho so o jogo o computador fica focionando normal so fecha no jogo com resolucao baixa ou auta fecha o jogo, sendo que eu ja tirei a placa de Vídeo e abri o jogo so na placa-mãe e rodo normal n fecha n, o que pode ser vcs pode me ajude, sera que e o Interface PCI-Express da placa-mãe que tem que ser igual a da placa de Vídeo?

                               meu computador e um
PLACA-MÃE PC KRONNUS 1155 DDR3 Q67H2-AM 2ª GERAÇ ACER M4610
Intel(R) Core(TM) i5-2500 CPU @ 3.30GHz   3.30 GHz
16 gb memória RAM 
placade Vídeo, GeForce GT 730 4gb 128bits DDR3, PCI-Express 2.0 x16
fonte de alimentação Atx 400w
0

Water Cooler Não liga o Display com infos de temperaturas

Boa noite pessoal, faz tempo que não posto por aqui.
Bom, o drama é o seguinte:

- Comprei um Water Cooler Mancer Mystic G1 ARGB, 360mm, instalei tudo certinho, bomba no CPU Fan, Leds das fans na D_LED2 e o led do display no D_LED1.
- Tudo funcionando corretamente, liguei o PC os LEDs OK, Bomba OK, Temps Baixissimas como de se esperar, porém o Display liga aparece o número 88 na inicialização e depois de uns 5 segundos desliga, apenas o número, o LED a sua volta fica funcional.
- Fiz o teste com o cabo direto na placa mãe, com o cabo SATA.
- Esse Water Cooler tem um cabo USB 2.0, que está ligado no painel da placa mãe, só tem 1.

Config na assinatura!

Link do water cooler: 
https://mancer.com.br/p/water-cooler-mancer-mystic-g1-argb-360mm/?attribute_pa_cor=branco
© 1999-2024 Hardware.com.br. Todos os direitos reservados.
Imagem do Modal