none
Dúvida Application.WorksheetFunction.If RRS feed

  • Pergunta

  • Pessoal, estou tentando execuitar essa macro, porém dá erro(onde está em negrito).O que eu posso fazer?

    Sub teste()
          For Each Cell In Workbooks("Arquivo.xlsm").Sheets("Planilha").Range("A6:A12").SpecialCells(xlCellTypeConstants)
            Cell.Offset(0, 16).Value = Application.WorksheetFunction.If(Cell.Offset(0, 14).Value > 25, "Crítico", "Falso")
          Next

    End Sub

    O erro dito é:

    Erro em tempo de execução '438':

    "O objeto não aceita essa propriedade ou método"

    quarta-feira, 25 de julho de 2012 13:05

Respostas

  • Cell deve ser um objeto do tipo Range, certo?

    Qual linha que está dando erro? O negrito não saiu aqui.

    Se for na For...Each, pode ser que não há nenhum célula que seja uma constante no intervalo A6:A12. O método SpecialCells falha nessa situação.


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    quarta-feira, 25 de julho de 2012 21:15
    Moderador