#autoexcel

Olá pessoal, nesse post vou ensinar de mandeira bem simples como fazer um LOOP no VBA, ou seja uma repetição de comandos que ajuda muito à automatizar processos dentro de suas macros, neste caso esta irá copia as células, aproveite este código para você inserir registros, apagar, ou até mesmo automatizar copia informações com este poderoso comando.

'esta macro copia celulas da coluna A e cola na Coluna B 'de 10 em 10

Sub Copia_celula() For i = 10 To 100 Step 11 'todas as 11 linhas Range("A" & i).Select Selection.Copy ' se aqui quiser pode trocar por selection.cut Range("B" & i).PasteSpecial

Next i 'incrementar End Sub

Link para site:

O que é um array Filter ?

Uma função de filtro, que retorna uma matriz baseada em zero que contém um subconjunto de uma matriz de seqüência de caracteres com base em um critério de filtro específico.

Sintaxe: Filter(inputstrings,value[,include[,compare]])

Até agora está complexo entender né ? se você entendeu parabéns ! rs

Mas vamos ao que interessa, veja muito bem este exemplo e tente compreender sobre o funcionamento detsa função do array FILTER, muito importante a utilização do mesmo.

Sub filterArr()

Dim a,b,c,d as Variant

a = array("Red","Blue","Yellow")

b = Filter(a,"B")

c = Filter(a,"e")

d = Filter(a,"Y")

For each x in b msgbox("O resultado do Filter 1: " & x)

Next For each y in c msgbox("O resultado do filter 3: " & y)

Next For each z in d msgbox("o resultado do filter 3: " & z)

Next

End Sub

Pessoal não tem muito o que falar neste post, mas pratiquem bastante. Qualquer dúvida que tiverem por favor não deixem de comentar. 

muito Obrigado

link do site abaixo: