none
Preciso de ajuda com código vba RRS feed

  • Pergunta

  • Dá o seguinte erro nas partes sublinhadas...

    Error 1004 Method 'Range' of object '_Worksheet' failed

    Sub Teste()

        Dim linha As Integer

        Dim contador As Integer
        Dim escola, ano, regime As String

        escola = InputBox("Digite a Escola consultar", "ESCOLA")
        ano = InputBox("Digite o Ano consultar", "ANO")
        regime = InputBox("Digite o Regime consultar", "REGIME")
        For linha = 1 To 1000
        'MsgBox Range("A" & linha).Interior.Color 'Esta linha é só para determinar o ColorIndex da cor que pretende avaliar 12611584
            If Folha2.Range("H" & linha).Interior.ColorIndex = 41 And Folha2.Range("h" & linha) = escola And Folha2.Range("I" & linha) = ano And Folha2.Range("U" & linha) = regime Then contador = contador + 1

        Next

        MsgBox "Contagem: " & contador

        If escola = "Escola Básica Vasco Santana" And ano = "6ºano" And regime = "Articulado Básico" Then
        Folha3.Range(A4) = contador
        End If

        If escola = "Escola Básica Vasco Santana" And ano = "7ºano" And regime = "Articulado Básico" Then
        Folha3.Range(D4) = contador
        End If

        If escola = "Escola Básica Vasco Santana" And ano = "8ºano" And regime = "Articulado Básico" Then
        Folha3.Range(G4) = contador
        End If

        If escola = "Escola Básica Vasco Santana" And ano = "9ºano" And regime = "Articulado Básico" Then
        Folha3.Range(J4) = contador
        End If

        If escola = "Escola Básica Carlos Paredes" And ano = "6ºano" And regime = "Articulado Básico" Then
        Folha3.Range(A6) = contador
        End If

        If escola = "Escola Básica Carlos Paredes" And ano = "7ºano" And regime = "Articulado Básico" Then
        Folha3.Range(D6) = contador
        End If

        If escola = "Escola Básica Carlos Paredes" And ano = "8ºano" And regime = "Articulado Básico" Then
        Folha3.Range(G6) = contador
        End If

        If escola = "Escola Básica Carlos Paredes" And ano = "9ºano" And regime = "Articulado Básico" Then
        Folha3.Range(J6) = contador
        End If

        If escola = "Escola Básica dos Pombais" And ano = "6ºano" And regime = "Articulado Básico" Then
        Folha3.Range(A8) = contador
        End If

        If escola = "Escola Básica dos Pombais" And ano = "7ºano" And regime = "Articulado Básico" Then
        Folha3.Range(D8) = contador
        End If

        If escola = "Escola Básica dos Pombais" And ano = "8ºano" And regime = "Articulado Básico" Then
        Folha3.Range(G8) = contador
        End If

        If escola = "Escola Básica dos Pombais" And ano = "9ºano" And regime = "Articulado Básico" Then
        Folha3.Range(J8) = contador
        End If

      If regime = "Supletivo Básicos" Then
        Folha3.Range(E13) = contador
        End If

        If regime = "Iniciações" Then
        Folha3.Range(A13) = contador
        End If

        If regime = "Supletivo Secundário" Then
        Folha3.Range(I13) = contador
        End If




    End Sub

                          
    segunda-feira, 8 de junho de 2015 15:45

Respostas

  • O Endereço da célula precisa estar entre aspas

        Folha3.Range("E13") = contador

        Folha3.Range("A13") = contador

        Folha3.Range("I13") = contador

    • Sugerido como Resposta André Santo segunda-feira, 8 de junho de 2015 16:19
    • Marcado como Resposta Joao Barreto terça-feira, 16 de junho de 2015 11:55
    segunda-feira, 8 de junho de 2015 16:19