none
Percorrer Celulas RRS feed

  • Pergunta

  • Olá Pessoal,

    Estou precisando fazer uma atualização na planilha quando ela for fechada.

    Eu preciso pegar os dados da celula AF até a celula U seria o inverso do codigo abaixo. 
     For C = Columns("U").Column To Columns("AF").Column
        Cells(19, C) = "Teste"
     Next
    Preciso pegar os valores de cada celula para fazer calculos de media e desvio padrão, tem como utilizar as formulas do excel dentro do vba ?


    Obrigado a todos.
    quarta-feira, 25 de novembro de 2009 13:57

Respostas

  • Olá Luiz,

    Estive a testar uma solução para o teu problema, e aqui vai:

     Dim c, d As Integer
     d = 0
     For c = Columns("AF").Column To Columns("U").Column Step -1
        Cells(19, c) = "Teste " + Str(d)
        d = d + 1
     Next

    A variavel d foi para se verificar a forma de percorrer as células de forma inversa.

    Quanto à segunda pergunta, que tal esta solução:
     Worksheets(1).Cells(12, 3) = Application.WorksheetFunction.Average(Worksheets(1).Range("C8:F8"))


    Até já,
    Luís Carlos
    • Marcado como Resposta Luiz F. Trinca sexta-feira, 27 de novembro de 2009 16:20
    quinta-feira, 26 de novembro de 2009 11:31