Excel VBA Planilha comparar verifica ocorrências células numero 1 e vazias VBA

Escola Saberexcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções

Este Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application),

CONTAR OCORRÊNCIAS NÚMEROS E CELULAS VAZIAS

contar numero de ocorrência de células vazias

Para realização dos testes use os botões, e também poderá inserir o número na col(B) ou apagar para ver o resultado do testes.’o macro vai numerar as ocorrências em branco e não vazias nas referidas colunas(D) e também Coluna(F)
‘Obserque que mudamos a cor da fonte, interior e também das bordas das células. Bons Estudos,
Fique com Deus, Expedito Marcondes.

Sub sbx_somar_ocorrencias()
Dim wNum, vNum, vLin As Integer
vNum = 0: bNum = 0
For i = 2 To Cells(Rows.Count, “b”).End(xlUp).Row
If Cells(i, “b”).Value = “” Then
bNum = bNum + 1
Cells(i, “f”).Value = bNum
Cells(i, “f”).Font.ColorIndex = 3
Cells(i, “f”).Interior.ColorIndex = 35
Cells(i, “f”).Borders.LineStyle = xlContinuous
Cells(i, “f”).Borders.ColorIndex = 5
Else
vNum = vNum + 1
Cells(i, “d”).Value = vNum
Cells(i, “d”).Font.ColorIndex = 5
Cells(i, “d”).Interior.ColorIndex = 6
Cells(i, “d”).Borders.LineStyle = xlContinuous
Cells(i, “d”).Borders.ColorIndex = 3
End If
Next i
[g1].Select
End Sub

‘///===========’limpar planilha teste

Sub sbx_somar_ocorrencias_limpar()
x = Cells(Rows.Count, “b”).End(xlUp).Row + 1
Range(Cells(2, “d”), Cells(x, “f”)).Clear
Range([j6], [j7]).ClearContents
End Sub

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos
Escola Saberexcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções.

Adquira Já nosso Material didático na Promoção: