Excel vba planilha loops ate celula vazia lin col

Qui, 13 de Dezembro de 2012 17:39 Expedito Marcondes
Imprimir
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)
Tags:
Última atualização em Qui, 13 de Dezembro de 2012 18:14