Eu tenho uma planilha que tem duas partes e quero verificar se ambas possuem dados.
Se a Parte 1 e a Parte 2 possuírem dados, o código pinta a linha correspondente de amarelo.
Caso apenas umas das partes possuírem dados, o código não faz nada.
Problema:
Se a Parte 1 tem dados e a parte 2 não tem, ele funciona.
Se ambas as partes tem, ele também funciona pintando de amarelo.
Agora, se apenas a parte 2 tem dados, ele pinta de amarelo mesmo assim.
Este é meu código:
Private Sub CommandButton1_Click()
Dim ws As Worksheet
Set ws = Worksheets("Plan1")
Dim i, j, largura, linha As Integer
Dim parte1, parte2 As Boolean
parte1 = False
parte2 = False
largura = 22
linha = 2
For i = 2 To 40
parte1 = False
parte2 = False
For j = 11 To largura 'Conta do 11 até 22 (Referência a posição da coluna)
'verifica as colunas da Parte 1
If ws.Cells(i, j).Value <> "" Then
parte1 = True
End If
If j > 16 Then 'Inicia a verificação das colunas referentes a Parte 2
If ws.Cells(i, j).Value <> "" Then
parte2 = True
End If
End If
'Verifica se ambas as partes possuem dados, se sim, pinta a linha toda de amarelo
If parte1 = True Then
If parte2 = True Then
ws.Cells(i, j).EntireRow.Interior.ColorIndex = 6
End If
End If
Next j
Next i
End Sub
Este é o resultado desse código:
Esse é o resultado que eu queria:
Algo lógico nesse código está errado, mas não consigo ver.
Ifs
. Se estão verificando as colunas corretas. Percorra seu código passo a passo com a tecla F8 e verificará o que ocorre no seu código...