Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções
Esse macro do Aplicativo Microsoft Excel VBA, contém duas instruções Loops sendo uma aninha a espera da ação
do primeiro Loop, em Colunas e Linhas. O macro percorre toda a tabela e preenche o interior da célula com cores
Aleatórias até encontrar a célula vazia, emite uma mensagem sobre o endereço da célula vazia, e sai do for.
Essa planilha foi uma solicitação do Antonio: Então amigo Antônio Segue ai sua planilha. Fique com Deus e Bons Estudos. Expedito Marcondes
solicitação de ajuda do Amigo Antonio
"Meu amigo Marcondes, preciso de sua ajuda para fazer um Loop,
'pois estou enfrentando dificuldade. Leia abaixo o que eu preciso.
'Tenho um intervalo de 50 linhas e 20 colunas.
'Eu preciso que "If" na linha 1 da coluna 1 se o valor for
'diferente de "" (em branco) , e na mesma linha 1 da coluna 20,
'a linha for em braco, saia do Loop e emita uma mensagem.'Vou seguir tentando até receber sua resposta.
'circular até encontrar uma celula em branco na linha 1"
'//========' este macro localiza uma célula em branco em uma determinada
'area pre-determinada, ao localizar a area em branco sai do loop e conclui
'a tarefa com uma mensagem indicando o local da célula em branco
'http://www.microsoftexcel.com.br
'contato@saberexcel.com.br
'- - - - - - - - - - - - - - - - - - -'
Sub sbx_circular_numeros()
Dim vLin As Long '//======' Long porque retornará somente o NÚMERO da linha, como são poucas linhas poderia se Single
Dim vLin2 As Long
[d].ClearFormats
[d].Font.Size = 8
For vLin = 1 To 21 'para as colunas
For vLin2,= 1 To Cells(Rows.Count, "A").End(xlUp).Row
Cells(vLin2, vLin).Interior.ColorIndex = Int((Rnd * 55) + 1) '// ======' para cores aleatórias(interior célula)
If Cells(vLin2,, vLin) = "" Then
MsgBox "Célula em Branco [ " & Cells(vLin2,, vLin).Address & " ] à direita do Numero: [ " & _
Cells(vLin2, vLin).Offset(0, -1).Value & " ] em Branco", vbInformation, _
"Escola Saberexcel VBA Estudos®"
End
Exit For
End If
Next vLin2
Next vLin
End Sub
'- - - - - - - - - - - - - - - - - - -'
'//=====' prezados aqui uma maneira simples de copiar o conteúdo de uma outra folha de planilha (Nomeando Células)
'observe que voces poderão fazer um Range dinâmico para copiar, bem simples e funcional.
Sub sbx_copiar_teste()
[a].Copy [b]
[d].Font.Size = 8
End Sub
'- - - - - - - - - - - - - - - - - - '
Sub sbx_visitar_nosso_site()
Dim Resposta As String
Resposta = MsgBox("deseja conectar com nosso site ?", vbYesNo + vbQuestion, "Saberexcel - site das macros")
If Resposta = vbYes Then
ThisWorkbook.FollowHyperlink "http://www.microsoftexcel.com.br/", , True
End If
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.
Baixe o exemplo de planilha contendo os macros acima;Excel vba planilha loops ate celula vazia lin col (134.47 KB)
