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

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

Esta macro do Aplicativo Microsoft Excel VBA, deleta os dados de uma determinada folha de planilha a partir de uma data específica, contém um Loop (laço) que verifica a próxima linha e deleta dados enquanto houver dados.

Sub procura_data_inicial_deleta_restante()
SABEREXCEL = InputBox("Digite a data no formato dd/mm/aaaa - " & Range("M5"), "Saberexcel - site das macros")
If SABEREXCEL <> "" Then

On Error Resume Next
[A:A].Find(What:=CDate(SABEREXCEL), LookIn:=xlValues).Select
ActiveCell.Offset(1, 0).Select

Do While IsEmpty(ActiveCell.Offset(0, 0)) = False 'faça enquanto houver dados na coluna(A)
ActiveCell.Value = ""
ActiveCell.Offset(0, 1).Value = ""
ActiveCell.Offset(1, 0).Select
Loop
If Err <> 0 Then MsgBox "Data nao encontrada!" 'se nao encontrar a data fornecida retorna msg

End If
End Sub

Sub copiar_valores_teste()
Range("M5:N28").Select
Selection.Copy
Range("A5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C1").Select
Application.CutCopyMode = False
Range("D3").Select
End Sub


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel





Publicidade:
Compre com qualidade, garantia e preços baixos nas lojas SubMarino

Saberexcel - o site das macros
Essa macro e função do Aplicativo Microsoft Excel VBA, com uma instrução For next, insere dados em determinadas linhas a partir de determinada célula, observem que usei para fins didáticos um contador que com auxilio da range.propriedade OffSet, insere um contador deslocando uma linha a direita. Baixe o exemplo de planilha no final da pagina. Espero que o exemplo possa lhe ser útil. Fique com Deus, Expedito Marcondes.

Function Retorna_Nome$()
Dim PrimeiroNome As String, UltimoNome As String, Departamento As String

PrimeiroNome = "Expedito"
UltimoNome = "Marcondes"
Departamento = "Desenvolvimento"

Retorna_Nome = "[" & PrimeiroNome & " ], [ " & UltimoNome & " ] Depto.[ " & Departamento & " ]"
End Function

Sub Loop_inserindo_dados_e_funcao()
[A3].Select
Contador = 0
For i = 1 To 10
ActiveCell.Value = "Conferido por: "
ActiveCell.Offset(0, 1).Value = Retorna_Nome$()
Contador = Contador + 1
ActiveCell.Offset(0, 2).Value = Contador
ActiveCell.Offset(1, 0).Select
Next i
End Sub

Sub limpar()
[A3:C14].ClearContents
End Sub


Aprenda tudo sobre o plicativo Microsoft Excel VBA com Saberexcel

Saberexcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, contém uma instrução Do...Loop (until) que insere determinados dados em um intervalo de linhas pre-determinado, neste caso usamos 300 linhas mas poderá ser 3000 ou 30000, optamos por inserir a palavra "Saberexcel". Também usei a range.propriedade OffSet, delocará uma coluna a direita e inserirá a frase "Aprendendo Macros VBA", logo seleciona a linha de baixo e continua o laço por 300 linhas abaixo. Em nosso Curso completo Microsoft Excel VBA, há uma materia que falamos sobre a renomeação os Módulos de modo que voce possa ver uma macro e já perceber a que módulo pertence, observe que renomeie o Modulo EX: SBTreinamento - então aproveito esses tres primeiro nomes para iniciar minhas macros, facilita muito quando trabalhamos com uma quantidade grande de macros e diversos módulos.

Sub SBT_Testando_instrucao_Do_Loop_Until()
Range("A1").Select

Do Until Selection.Row = 300 'determinando a quantidade de linhas a serem inseridas as palavras abaixo
Selection.Value = "Saberexcel"
Selection.Offset(1, 0).Select 'deslocando uma linha da célula ativa
Selection.Offset(0, 1).Value = "Aprendendo Macro" 'deslocando uma coluna da célula ativa
Selection.Offset(0, 2).Value = "Vou Aprender!!" 'deslocando duas colunas da célula ativa
Selection.Offset(0, 3).Value = "com Deus vou caminhando!" 'deslocando tres colunas a direita da célula ativa
Loop

Columns("A:D").AutoFit 'ajusta as colunas com o tamanho dados
Range("A1").Select

End Sub

Sub SBT_limpar()
[A2:D350].ClearContents 'limpando a área para o teste
[E1].Select
End Sub

Sub SBT_ver()
[Plan1].Shapes("sb").Visible = True
[Plan1].Shapes("sb1").Visible = True
End Sub

Sub SBT_oc()
[Plan1].Shapes("sb").Visible = False
[Plan1].Shapes("sb1").Visible = False
End Sub

Sub SBT_visualizar_macros_vbe()
Dim resposta As String
resposta = MsgBox("deseja visualizar macros no módulo VBE?", vbYesNo, "Saberexcel - site das macros")
If resposta = 6 Then
Application.Goto reference:="Testando_instrucao_Do_Loop_Until"
End If
End Sub


Aprenda sobre o Aplicativo Microsoft Excel VBA - Saberexcel




Baixe o exemplo de planilha contendo as macros acima




Publicidade:
Compre com segurança, baixos preços e garantia de qualidade nas lojas SubMarino