Início / computer / Perguntas / 1667164
Accepted
wyatt7613
Asked: 2021-08-03 15:35:54 +0800 CST

Excel VBA - Verificando o valor da célula em relação a outra célula

  • 772

Quero destacar uma linha de células nas colunas BK se essa parte tiver menos de 5 QOH (Coluna J). Também quero que ele destaque apenas a linha se a peça estiver no subinventário "W1" ou "OUTSIDE" (Coluna H).

Folha de Excel

Este é o código que tenho até agora:

'Highlights row if quantity on hand is 5 or less
Dim LastRow As Long, c As Range
Dim MyRange As Range
    LastRow = Cells(Cells.Rows.Count, "J").End(xlUp).Row
    Set MyRange = Range("J1:J" & LastRow)
With ActiveWorkbook.Worksheets("Sheet1")
    For Each c In MyRange
        If c <= 5 Then
            c.Select
            If ActiveCell.Offset(0, -2).Value = "W1" Or "OUTSIDE" Then 'Checks if part is in a specified subinventory
                Range("B" & ActiveCell.Row & ":K" & ActiveCell.Row).Interior.Color = vbYellow 'Highlists the row from columns B-K if QOH is less than 5
            End If
        End If
    Next
End With

Consegui destacar as linhas BK se o QOH for menor que 5. No entanto, o problema surge quando tento destacar apenas a linha se o subinventário for "W1" ou "OUTSIDE". Quando executo a macro, acabo recebendo o código de erro "Erro em tempo de execução '1004': Erro definido pelo aplicativo ou definido pelo objeto".

microsoft-excel vba

2 respostas

  1. Best Answer

    Tentar:

    If ActiveCell.Offset(0, -2).Value = "W1" Or ActiveCell.Offset(0, -2).Value = "OUTSIDE"

    Não faço VBA há muito tempo e atualmente não o tenho, mas:

    ActiveCell.Offset(0, -2).Value = "W1" Or "OUTSIDE"

    não parece correto para mim, pois '=' tem maior precedência do que o operador lógico 'Or', então isso está acontecendo:

    (ActiveCell.Offset(0, -2).Value = "W1") Or "OUTSIDE"

    O operador "Or" espera dois valores booleanos, e é daí que acho que vem o seu erro (você tem um booleano e uma string).

    • 1

  2. Depois de algumas tentativas e erros, consegui resolver.

    'Highlights row if quantity on hand is 5 or less
Dim LastRow As Long, c As Range
Dim MyRange As Range
    LastRow = Cells(Cells.Rows.Count, "J").End(xlUp).Row
    Set MyRange = Range("J1:J" & LastRow)
With ActiveWorkbook.Worksheets("Sheet1")
    For Each c In MyRange
        If c <= 5 Then
            c.Select
            If ActiveCell.Offset(0, -2) = "W1" Or ActiveCell.Offset(0, -2) = "OUTSIDE" And ActiveCell.Offset(0, -1) <> "MAJOR COMPONENT" Then 'Checks if part is in a specified subinventory
                Range("B" & ActiveCell.Row & ":K" & ActiveCell.Row).Interior.Color = vbYellow 'Highlists the row from columns B-K if QOH is less than 5
            End If
        End If
    Next
End With
    • 0

relate perguntas