Ler duas colunas e apresentar msgbox

[ANGELODELL]

Olá,

Meu nível é bem básico e estou com dificuldades e fazer uma função. Tentei usar a função isnull mas não deu certo..

Eu preciso que o excel leia:

Se as células O5 ATÉ O130 tiverem algum valor maior ou menor que 0 e na coluna Q5 até Q130 estiver em branco, ele de uma alerta em msgbox.

Alguém consegue me ajudar por favor?

[vanfer]

Clique com o botão direito do mouse na aba da planilha que você deseja executar o MSG

Cole o codigo abaixo na pagina em branco que irá aparecer

para executar a rotina basta clicar em qualquer celula da coluna "O"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim z As Integer
Dim v As Integer
    z = 0: v = 0
    If Target.Column = 15 Then
    For i = 5 To 130
        If Cells(i, 15) = 0 Then z = z + 1
        If Cells(i, 17) = "" Then v = v + 1
    Next i
    If z > 0 And v > 0 Then
        sTxt = "Encontrados (" + CStr(z) + ") zeros na coluna 'O' e (" + CStr(v) + ") células vazias na coluna 'Q')"
        MsgBox (sTxt)
    End If
    End If
End Sub

Editado Julho 24, 2017 por vanfer