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

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

Saberexcel - o site das macros
Essas macros do Aplicativo Microsoft Excel VBA, inserem uma autonumeração reptindo os passos de arrastar e soltar.
Observe como inserir uma autonumeração a partir de uma macro gravada no GM(Gravador de Macros).
Neste exemplo eu peguei uma macro gravada, fiz uma pequena depuração para que fique melhor um pouquinho e abaixo inserí o modo correto de fazer uma macro para essa finalidade.
.
Na verdade essa macro é a mesma coisa de você digitar: 1 na célula(A1), 2 na célula(A2), selecionar(A1:A2), achar o ponto cruz escuro e arrastar os números até a linha desejada.

Em nosso Curso Completo Microsoft Excel VBA - o Caderno_1 aborda o assunto sobre o Gravador de Macros - a importancia de deter esse conhecimento. que é muito importante no aprendizado MS Excel VBA - 70% do aprendizado.

Se voce quiser praticar como gravar uma macro, acione o gravador de macros, na célula(A1) însira o número 1, na célula(A2) número 2, em seguida
selecione as células (A1:A2), ache o ponto cruz (escuro) na parte inferior direita da borda e arraste até a linha desejada, poderá em seguida,
selecionar a célula (B1), ao executar a macro, será selecionado a célula(b1). Espero que isso possa lhe ser útil.



Sub macro_gravada_sem_depuracao()
'
' Macro Gravada 20/07/2010 por Saberexcel
'
'
Range("A1").Select
ActiveCell.FormulaR1C1 = "1"
Range("A2").Select
ActiveCell.FormulaR1C1 = "2"
Range("A1:A2").Select
Selection.AutoFill Destination:=Range("A1:A20"), Type:=xlFillDefault
Range("b1").Select

End Sub

depurando a macro e melhorando a qualidade no caso de fórmulas deverá manter o FormulaR1C1, do contrario não há necessidade,
observe que a macro seleciona a célula primeiro para depois enviar o valor, poderá fazer isso diretamente usando Range.Propriedade Value

Sub melhorando_um_pouquinho()
Range("A1").Value = "1"
Range("A2").Value = "2"
Range("A1:A2").AutoFill Destination:=Range("A1:A20"), Type:=xlFillDefault
Range("A1:A10").Select
End Sub

Sub maneira_correta()
With Cells(1, 1)
.Value = 1
.Resize(20).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1, Stop:=20
End With
End Sub

Sub limpar_teste()
[A1:A100].ClearContents
End Sub


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel




Baixe o exemplo de planilha contendo as macros acima




Publicidade:
Compre com segurança, garantia e ótimos preços nas lojas SubMarino.

SaberExcel o Site das Macros
Macro do Aplicativo Microsoft Excel VBA, concatena valores da coluna(A) e Coluna(B) em uma terceira coluna(C).
observe que usei a Função SET para referenciar (Setar) as Colunas

Option Explicit
Option Base 1

Sub Concatena_dados_de_duas_colunas()

Dim vaColuna1 As Variant, vaColuna2 As Variant, vaDados() As Variant
Dim wsPlan As Worksheet
Dim rnColuna1 As Range, rnColuna2 As Range, rnDados As Range
Dim iNumero As Long

Set wsPlan = Worksheets("Plan1")
Set rnColuna1 = wsPlan.Range("A2", Range("A65536").End(xlUp))
Set rnColuna2 = wsPlan.Range("B2", Range("B65536").End(xlUp))

vaColuna1 = rnColuna1.Value
vaColuna2 = rnColuna2.Value

ReDim vaDados(1 To UBound(vaColuna1))

For iNumero = 1 To UBound(vaColuna1)
vaDados(iNumero) = vaColuna1(iNumero, 1) & " " & vaColuna2(iNumero, 1)
Next iNumero

Set rnDados = wsPlan.Range("C2", Range("C" & UBound(vaColuna1) + 1))
rnDados.Value = Application.Transpose(vaDados)

End Sub

Sub limpar()
Range("c1:C10").ClearContents
End Sub



Aprenda sobre Aplicativo Microsoft Excel VBA SaberExcel

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.