none
Armazenar informação do intervalo de células RRS feed

  • Pergunta

  • Tenho uma planilha em que o codigo VBA busca informação para poder rodar.

    Exemplo.

    Sheet1 tem o código VBA, e a Sheet2 tem alguns parâmetros para que o VBA da sheet 1 rode

    Sheet2

    MOTOR

    1.0 gasolina

    1.0 flex

    2.0 gasolina

    2.0 flex

    Nã Sheet1 o VBA tá da seguinte forma:

    Se linha/coluna A1 da Sheet2 igual a 1.0 gasolina – o VBA roda o comando

    Se linha/coluna A2 da Sheet2 igual a 1.0 flex – o VBA roda o comando

    Se linha/coluna A1 da Sheet2 igual a 2.0 gasolina – o VBA roda o comando

    Se linha/coluna A3 da Sheet2 igual a 1.0 flex – o VBA roda o comando

    O que eu queria se for possível é fazer uma forma de não ter todos estes SE por linha da Sheet2. Quero algo mais compacto onde em um unico SE ou em um loop ele verificar todas estas células da Sheet2 e fazer o comando conforme cada motor.

    terça-feira, 13 de agosto de 2013 17:17

Respostas

  • Não há muito o que fazer no seu caso:

    Sub fMain()
        With Worksheets("Sheet2")
            If .Range("A1") = "1.0 gasolina" _
            Or .Range("A2") = "1.0 flex" _
            Or .Range("A1") = "2.0 gasolina" _
            Or .Range("A3") = "1.0 flex" Then
                'roda o comando
            End If
        End With
    End Sub


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

    terça-feira, 13 de agosto de 2013 23:36
    Moderador