Saberexcel - o site das Macros
Macro do Aplicativo Microsoft Excel VBA verfica as células vazias de um determinado intervalo de células (Range), e nestas células vazias insere uma palavra. Veja o exemplo de Planilha, baixe-a no final da pagina.


Sub Inserir_palavra_em_celulas_branco()

Dim vCelula As Range

For Each vCelula In Range("A1:D100")
If IsEmpty(vCelula) Then vCelula = "em branco": vCelula.Font.ColorIndex = 5 ' esses dois (:) pontos é o mesmo que próxima linha (Linha debaixo)
Next vCelula

End Sub

Sub Copiar_para_teste()
Sheets("Plan2").Range("A1:D100").Copy
Sheets("Plan1").Select
Range("A1").Select
ActiveSheet.Paste
Range("E1").Select
Application.CutCopyMode = False
Range("E6").Select
End Sub

Sub Limpar()
[A1:D100].ClearContents
[A1].Select
End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - SaberExcel





Publicidade
Compre com garantia, segurança e ótimos preços nas lojas SubMarino

Essas macros do Aplicativo Microsoft Excel VBA, inserem uma autonumeração em diferentes posições na folha de planilha, esses exemplos tem a finalidade didática. Espero que lhe sejam úteis em seu aprendizado. Fiquem com Deus, E_Marcondes

Public i As Integer
'insere uma autonumeração transversal descendente
Sub transversal()
For i = 1 To 10
Cells(i i ) = i
Next
End Sub

'insere contagem na linha 10 até coluna 10
Sub Linha_10()
For i = 1 To 10
Cells(10, i) = i
Next
End Sub

'insere contagem na linha 10 até coluna 10
Sub Linha1_1()
For i = 1 To 10
Cells(1, i ) = i
Next
End Sub

'insere contagem na coluna 1 a1:A10
Sub Coluna_1()
For i = 1 To 10
Cells(i , 1) = i
Next
End Sub

'insere contagem na linha 10 até coluna 10
Sub Coluna_10()
For i = 1 To 10
Cells(i , 10) = i
Next
End Sub


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel



Baixe o exemplo de planilha contendo os loops acima

Compre com segurança garantia e baixos preços. Lojas SubMarino