Autoexcel VBA @autoexcelvba-blog - Tumblr Blog

Excluindo informações duplicados com VBA

Olá Pessoal,

Este post vai ser bem direto, sem muitas explicações, eu gostaria de compartilhar com vocês mesmo sobre esse script, vale ressaltar que ele apenas irá excluir duplicados de cada coluna por vez.

segue script

Public Sub Excluir_Linhas_Duplicadas()

Dim Col As Integer Dim r As Long Dim C As Range Dim N As Long Dim V As Variant Dim Rng As Range

On Error GoTo PossivelErro Application.ScreenUpdating = False Application.Calculation = xlCalculationManual

Col = ActiveCell.Column

If Selection.Rows.Count > 1 Then Set Rng = Selection Else Set Rng = ActiveSheet.UsedRange.Rows End If

N = 0 For r = Rng.Rows.Count To 1 Step -1 V = Rng.Cells(r, 1).Value If Application.WorksheetFunction.CountIf(Rng.Columns(1), V) > 1 Then Rng.Rows(r).EntireRow.Delete N = N + 1 End If Next r

PossivelErro:

Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic

End Sub

Link para site: http://www.autoexcel.com.br

Loop para copiar células no excel

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:

http://www.autoexcel.com.br

#autoexcel #excel #vba #excel vba #criando macros #macros #macros vba excel #estudando vba #dicas de vba

Configurando a página para impressão com Excel VBA

Olá tudo bem ?

Está macro abaixo irá configurar sua planilha em quais pontos irão ser disponibilizados para vocês imprimirem seu documento.

é bem simples, não é ?

'Esta macro configura uma pagina no excel ao executa-la visualizar impressão!

Sub Configura_Pagina() With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "Editado em : &D" .CenterFooter = "Pagina : &P / &N" .RightFooter = "Origem : &F - &A" End With End Sub

Qualquer dúvida estou á disposição

Link para o site:

http://www.autoexcel.com.br

#pdf vba #vba excel #excel #microsoft excel #vba #apredendo vba #autoexcel

O uso da função GoTo do Excel VBA

É um desvio incondicional para uma linha especificada dentro de uma função VBA. Estrutura

GoTo [label]

O argumento [label] obrigatório pode ser qualquer rótulo de linha ou número de linha.

rótulo de linha

Utilizado para identificar uma única linha de código. Um rótulo de linha pode ser qualquer combinação de caracteres que inicie com uma letra e termine com dois-pontos (:). Os rótulos de linha não diferenciam maiúsculas de minúsculas e devem iniciar na primeira coluna. número de linha

Utilizado para identificar uma única linha de código. Um número de linha pode ser qualquer combinação de dígitos que seja exclusiva dentro do módulo no qual é utilizado. Os números de linha devem iniciar na primeira coluna.

Exemplo

Abaixo segue um trecho de código que refleto o uso do Goto:

Public Sub TesteGoto() MsgBox "Inicio da função" GoTo Rotulo2 Rotulo1: MsgBox "Executando Rotulo1" GoTo Saida Rotulo2: MsgBox "Executando Rotulo2" GoTo Rotulo1 Saida: MsgBox "Fim da função" End Sub

Link para acesso ai site:

http://www.autoexcel.com.br

#goTo #Excel Vba #vba #vba editor #studying vba #autoexcel #office excel #vba excel #microsoft excel

Removendo Cache do IE com VBA ( somente IE )

Olá amigos,

Como vão ?,Vamos falar sobre cache no IE Demorei para colocar os próximos posts por que eu estou muito atarefado com outras demandas, mas estou colhendo o máximo de informação para ensinar a vocês muito mais que o Excel pode fazer.

Você sábia que dar para você limpar o histórico do Excel sem abrir o Internet Explorer ?

Pois é, você deve apenas executar esta macro.

Sub Delete_IE_Cache() ' Isso irá remover o Cache da Internet Explorer Shell "RunDll32.exe InetCpl.Cpl, ClearMyTracksByProcess 11" End Sub

Legal não é mesmo ? Isso é bem simples de ser implementado, caso dê algum tipo de erro por favor não deixe de entrar em contato.

Aproveite e compartilhe conhecimento !

Obrigado

link do site abaixo:

http://www.autoexcel.com.br

#vba #excel #excel programming #studying #microsoft #estudando office #autoexcel

Array – join function – VBA EXCEL

Olá Pessoal,

Array JOIN é uma função, que retorna uma String que contém um número especificado de substrings em uma matriz. Esta é uma função exata oposta do método Split.

Sintaxe: Join(List[,delimiter]) - Lista, um parâmetro Obrigatório.

Um Array que contém as substrings que devem ser unidas.

- Delimitador, um parâmetro opcional.

O caractere, que usado como um delimitador ao retornar a seqüência de caracteres.

O delimitador padrão é Espaço.

Sub joinArr() 'Join usando espaços

a = array("vermelho ","amarelo ","azul ")

b = join(a) msgbox("O valor de b" & " é :" & b) 'Join usando $

b = join(a,"$")

msgbox("O Resultado do Join depois do Delimitador é : " & b)

End Sub

Fácil né pessoal ? não tem segredo a utilização do JOIN, muito utilizado para diferenciar os delimitadores nos arrays utilizado em seu programa. Qualquer dúvida estou à disposição galera, forte abraço !

link do site abaixo:

http://www.autoexcel.com.br

#vba #exce #vba programming #vba microsoft #excel #macros #automatização #excel automatico #planilhas #plans #procv

Array – filter function – vba excel

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)

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:

http://www.autoexcel.com.br

#excel #vba #vba programming #vba excel #autoexcel #microsoft #office excel

Utilizando variáveis no excel VBA

Olá amigos,

Tudo bem ?, Neste post eu vou mostrar alguns tipos de variáveis para você poder trabalhar no VBA.

Variável é um local de memória nomeado usado para armazenar um valor que pode ser alterado durante a execução do script. A seguir estão as regras básicas para nomear uma variável.

1º Você deve usar uma letra como o primeiro caractere.

2º Você não pode usar um espaço, ponto (.), Ponto de exclamação (!) Ou os caracteres @, &, $, # no nome.

3º O nome não pode ter mais de 255 caracteres.

4º Não é possível usar palavras-chave reservadas do Visual Basic como nome de variável.

Segue um exemplo de como você deve declarar variável:

Private Sub demo_click() Dim password As String password = "Admin#1"

Dim num As Integer num = 1234

Dim BirthDay As Date BirthDay = #15/02/2015#

MsgBox "Minha senha é " & password & Chr(10) & "O valor do número é " & num & Chr(10) & "o dia do meu aniversário é " & BirthDay End Sub

link do site abaixo:

http://www.autoexcel.com.br

#excel #vba #vba programming #microsoft #aprendendo vba #dicas vba #vba excel

Trending Blogs

Recently Viewed Blogs

Autoexcel VBA