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
'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)
Ú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

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje3995
mod_vvisit_counterOntem5059
mod_vvisit_counterEsta Semana23501
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês37230
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10460059
Aprenda MS Excel VBA

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