Home Excel - Dicas Microsoft Excel VBA Excel VBA - Loops Excel vba planilha loops ate celula vazia lin col

Excel vba planilha loops ate celula vazia lin col

E-mail Imprimir PDF
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
'[email protected]
'- - - - - - - - - - - - - - - - - - -'
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)
Última atualização em Qui, 13 de Dezembro de 2012 18:14  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

PROMOÇÃO DIDÁTICOS SABEREXCEL



Adquira já o Acesso Imediato
à Area de Membros

Compra Grantida --- Entrega Imediata

Aprenda Excel VBA com Simplicidade de 
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.

'-------------------------------------'
Entrega Imediata:
+  500 Video Aulas MS Excel VBA
+  35.000 Planilhas Excel e VBA
+  Coleção 25.000 Macros MS Excel VBA
+  141 Planilhas Instruções Loops
+  341 Planilhas WorksheetFunctions(VBA)
+    04 Módulos Como Fazer Excel VBA
+  Curso Completo MS Excel VBA
+  Planilhas Inteligentes


Pesquisa Google SaberExcel

Publicidade Google

<script type="text/javascript"><!--

google_ad_client = "ca-pub-2317234650173689";

/* retangulo 336 x 280 */

google_ad_slot = "0315083363";

google_ad_width = 336;

google_ad_height = 280;

//-->

</script>

<script type="text/javascript"

src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

</script>

Publicidade

RSFirewallProtected


Google Associados

Depoimentos

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA