none
O codigo não esta escrevendo na célula. RRS feed

  • Pergunta

  • Private Sub ToggleButton2_Click()
    If [Chegeo] Then
       Sheets("Plan2").Range("I19:Q19").Text = "Não há objeção quanto ao georreferenciamento."
        If Not [Chegeo] Then
            Sheets("Plan2").Range("I19:Q19").Text = "O projeto precisa estar georreferenciado."
            If [CChkmm] Then
              Sheets("Plan2").Range("I18:Q18").Text = "Não há objeção quanto ao Km do Projeto."
                If Not [CChkmm] Then
                Sheets("Plan2").Range("I18:Q18").Text = "Verifique os Km de acordo com a restituição enviada."
                    If [p1000] Then
                     Sheets("Plan2").Range("I17:Q17").Text = "O projeto atende a dimenção da planta de situação."
                        If Not [p1000] Then
                         Sheets("Plan2").Range("I17:Q17").Text = "O projeto precisa conter 1000m antes e 1000m depois do acesso ."
                            End If
                        End If
                    End If
                End If
            End If
    End If
    Unload Me
    Plan2.Activate
    End Sub



    quinta-feira, 28 de março de 2019 09:51