Adicionado em: | 06/02/2012 |
Modificado em: | 06/02/2012 |
Tamanho: | Vazio |
Downloads: | 1187 |
Escola Saberexcel VBA Estudos - Treinamentos com Macros, Fórmulas e Funções
Esse macro do Aplicativo Microsoft Excel VBA(visual Basic application) busca em determinada área de células pela primeira ocorrencia de célula
com interior verde claro, retorna o endereço da célula, desloca uma linha a direita e e também insere a cor verde
Esse exemplo de planiha faz parte de Assine nosso Modulo 2012 - Boletins Treinamentos VBA
Assine agora mesmo nosso Módulo 2012 - Contendo os Boletins Mensais.
Assine nosso Modulo 2012 - Boletins Treinamentos VBA
INSTRUÇÃO: DO..UNTIL...LOOP
Sub Loop_do_until_loop_encontrar_celula_verde_brilhante()
Dim vContador 'Declaração de uma variável
vNumLin = Row 'variável
With Selection
Range("c5:c20").Select
vNumLin = Selection.Rows.Count 'Número de linhas dentro da região selecionada
End With
vContador = 0 'atribuindo o valor zero a variável contador
Range("c6").Select 'iniciando pela célula c6 para efeturar a busca
Do Until Selection.Interior.ColorIndex = 4 'faça o loop enquanto não for da cor verde brilhante
ActiveCell.Offset(1, 0).Select 'desloque apenas uma linha abaixo por vez
If vContador > vNumLin - 3 Then Exit Sub 'Numero de loops limitado a 15 até achar a célula interior verde brilhante.
'localiza a célula verde brilhante e sai do loop mostrando a mensagem e copia célula para uma celula à direita
vContador = vContador + 1 'adicionando um ao contador
Loop
MsgBox "Selecionada célula de cor verde brilhante [" & ActiveCell.AddressLocal & " ] vamos copiar a célula para direita"
'Deslocar uma célula a direita
Selection.Copy
Selection.Offset(0, 3).Insert Shift:=xlToRight
Application.CutCopyMode = False
End Sub
'- - - - - - - - - - - - - - - -
Sub limpar_teste()
[F6:F20].Clear
[G1].Select
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.
Adicionado em: | 06/02/2012 |
Modificado em: | 06/02/2012 |
Tamanho: | Vazio |
Downloads: | 2083 |
Escola Saberexcel VBA Estudos - Treinamento com Macros, Fórmulas e Funções
Esse macro do Aplicativo Microsoft Excel VBA(visual Basic Application), com a Instrução [Do... Loop ... Until], faz uma verificação em determinada área de células (Intervalo de células), busca por determinada Palavra 'Exata', e retorna o endereço da célula onde esta localizada, auxiliada por um objeto InptBox.
Este Arquivo faz parte de Nosso Modulo 2012 - (Boletim_01_Treinamento Instruções_Loops VBA)
Assine já tenha acesso aos Boletins 2012,
ASSINE JÁ: Treinamento Excel VBA - Modulos_2012 e Boletins Treinamentos Microsoft Excel VBA
(já foi classificado como trabalho nota 10 pelos usuários/desenvolvedores)
dificilmente encontrará na internet um trabalho completo como este, tratando de todas as instruções Loops.
INSTRUÇÃO DO...LO OP...UNTIL
Essa instrução loop verifica a palavra digitada para busca em determinado intervalo de células
o macro retorna o endereço e o valor da célula onde foi encontrada.
observe que o macro insere sua busca em duas colunas (N e O) com finalidade também idática.
retornando os valores para a folha de planilha
Sub Loop_do_loop_until_localizar_palavras_area()
Dim PrimeiraCelula As String, vCelulas As Range 'Declaração de variáveis
vbusca = InputBox("Digite a palavra para busca", "Escola SaberExcel VBA Estudos®") 'Caixa de diálogo - entrada de dados
Range("C6:F10").Select 'Intervalo de células para realização da busca
Set vCelulas = Selection.Find(vbusca) 'Faça a busca da palavra dentro da seleção
If Not vCelulas Is Nothing Then 'faça se as células não estiverem vazias
PrimeiraCelula = vCelulas.Address 'Variável
Do 'faça o seguinte
'caso a inputbox estiver em branco.
If vbusca = "" Then
MsgBox ("Digite uma palavra para busca"), vbInformation, "Saberexcel - o site das macros"
Exit Sub
End If
MsgBox "A palavra [ " & vbusca & " ] está na célula [ " & vCelulas.Address & " ] " & _
"Palavra: [ " & vCelulas.Value & " ]", vbInformation, "Escola Saberexcel VBA Estudos®"
[N65000].End(xlUp).Offset(1, 0).Value = vCelulas.Value
[N65000].End(xlUp).Offset(0, 1).Value = vCelulas.Address
Set vCelulas = Selection.FindNext(vCelulas) 'faça a busca na região especificada
Loop Until vCelulas.Address = PrimeiraCelula 'faça o loop até que o endereço da célula seja igual à primeira célula
End If
End Sub
Sub visualizar_macro()
Dim Resposta As String
Resposta = MsgBox("deseja visualizar(tela ou vbe)?" & vbCrLf & " se SIM = Tela" & vbCrLf & " se NAO = VBE", _
vbYesNo, "Escola Saberexcel VBA Estudos®")
If Resposta = 6 Then
ActiveSheet.Shapes.Range(Array("macro")).Select
Selection.Verb Verb:=xlPrimary
Else
Application.Goto reference:="Loop_do_loop_until_localizar_palavras_area"
End If
End Sub
Assine já nosso Excel VBA - Modulos_2012 e Boletins Treinamentos Microsoft Excel VBA
ASSINE MODULO 2012 - Boletin_01 - Treinamento com Instruções Loops (141 Planilhas)
Adicionado em: | 19/03/2011 |
Modificado em: | 19/03/2011 |
Tamanho: | Vazio |
Downloads: | 1476 |
Saberexcel - site das macros
Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), contém dois Loop(s) For...Next, que insere um contador na coluna(A) e também contador que auto-incrementa linha e coluna. Espero que o exemplo lhe seja útil. Fique com Deus, Expedito Marcondes.
Sub Contador_linha_coluna()
Dim vLinha As Long
Dim vColuna As Long
Cells(5, 5) = "Aprenda VBA"
Cells(6, 5) = "Praticando - produtos didáticos Saberexcel"
For vLinha = 1 To 10
Cells(vLinha, 1) = vLinha
Next vLinha
For vColuna = 1 To 10
Cells(12, vColuna) = vColuna
Next vColuna
End Sub
Sub limpar_teste()
[sbx].ClearContents
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Adicionado em: | 10/01/2011 |
Modificado em: | 10/01/2011 |
Tamanho: | Vazio |
Downloads: | 771 |
Saberexcel - Site das Macros
Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), contém um Laço (Loop) que concatena os valores de duas colunas, neste caso optamos por concatenar (juntar) dados das coluna(C) e Coluna(D). Observe que o Loop ocorrerá enquanto houver dados na célula ativa, isto é, ao atingir a linha em branco sai do loop e finaliza o macro.
Sub Concatenar_colunas()
Do While ActiveCell <> "" 'faz um loop enquanto a célula ativa estiver vazia.
ActiveCell.Offset(0, 1).FormulaR1C1 = ActiveCell.Offset(0, -1) & " " & ActiveCell.Offset(0, 0)
ActiveCell.Offset(1, 0).Select
Loop
[C28].Value = "Dados concatenados...."
End Sub
Sub copiar_para_teste()
'[dados].Copy Plan1.[C1] 'forma simplres de copiar dados (nomeei range dados)
[dados].Copy [destino] 'forma simples de copiar dados ( range nomeada 'dados' e 'destino' em planilhas diferentes
[C28].Value = "Dados Copiados para o teste de concatenação - SELECIONE CELULA(D1 ou D2, e execute a macro)"
End Sub
Sub limpar()
[C1:E25].ClearContents
[C28].Value = "Não se esqueça de copiar(MACRO) os dados para o teste!!"
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application),com produtos didáticos Saberexcel
Adicionado em: | 01/12/2010 |
Modificado em: | 01/12/2010 |
Tamanho: | Vazio |
Downloads: | 623 |
Essa macro do Aplicativo Microsoft Excel VBA, retornam as letras do alfabeto na coluna(A), e insere na coluna (B) os números correspondentes a as letras, auxiliados pela propriedade offset (desloc)
Sub Letras_numeros()
Dim vLetras(25) As String
Set x = Range("A1")
Range("A:B").ClearContents
x.Select
For n = 0 To 25
vLetras(n) = Chr(n + 65)
MsgBox "Letra [ " & vLetras(n) & "] Numero [" & n + 1 & "]"
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(1, 0).Value = vLetras(n)
ActiveCell.Offset(1, 1).Value = n + 1
Next n
x.Select
x.Offset(1, 0).Value = "LETRAS"
x.Offset(1, 1).Value = "NUMEROS"
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel
Adquira já o Acesso Imediato
à Area de Membros
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
<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>
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