6
votos
Aceito
Macro email range + assinatura
#Código
Sub Envia_Email()
'Seleciona o intervalo de células na planilha ativa.
Application.DisplayAlerts = False 'desabilite o alerta
Sheets("Base filtrada").Select
...
4
votos
Como fazer uma .dll no VBA?
Não é possivel criar DLL's com VBA, isso só é possivel com o visual basic (vb6) o que não recomendo à data. Por isso a sua unica solução para isolar o seu código é através de um projecto .NET.
Para ...
3
votos
AutoFill - Como selecionar a segunda linha
Não tenho bem certeza que compreendi sua questão, mas se vc quer deixar a o range variável, de acordo com o o resultado do seu filtro, vc pode substituir:
Destination:=Range("C2:C329")
por:
...
3
votos
Aceito
AutoFilter Excel VBA
Porque o Excel está interpretando o valor em Criteria1 como um número e os valores da coluna C como texto.
Tente alterar a fórmula da coluna C para =VALUE(LEFT(C7, 4)) ou caso seja o Excel em ...
3
votos
Aceito
Qual função do excel devo usar?
Uma das formas de resolver isso seria o seguinte código (vba) em sua planilha (Worksheet_Change):
Private Sub Worksheet_Change(ByVal Target As Range)
Dim celNome As String ' Célula onde deseja ...
3
votos
Dividir uma planilha em varias planilhas
Observação: essa pergunta tem como objetivo uma resposta em Python, mas creio que essa resposta em bash possa trazer novos ares e, também, serve como curiosidade
Para fazer um tratamento textual ...
3
votos
Dividir uma planilha em varias planilhas
Tente usar a função readlines para manipulação de arquivos:
file = open('entrada.txt', 'r')
lines = file.readlines()
nfile = 0 # Numero para organizar os arquivos a serem criados, sera incrementado ...
3
votos
Aceito
Acessar Site Por Loggin
Tente o seguinte código:
Private Sub AcessarSite()
Dim driver As InternetExplorer
Dim elem As HTMLBaseElement
Dim url As String
url = "https://www.newspace.com.br/pan/"
Set ...
3
votos
Aceito
MANUSEIO DO EXPLORER ATRAVÉS DE VBA
Código
Você pode realizar isto com este código:
'Declara função Sleep
#If VBA7 Then
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) 'For 64 Bit Systems
#Else
...
3
votos
Aceito
Contador para inserir linha em branco a cada 5 células iguais
Você está perto, fiz algumas modificações para conseguir as interações que você quer:
Sub Divide5_Click()
Dim Lst As Long
Dim n As Long
Dim i As Integer
Lst = Range("A" & Rows.Count).End(xlUp)....
3
votos
Aceito
Erro: Tipos Incompatíveis
Leandro,
Além da inversão conforme o colega acima sinalizou, tem outro problema no seu código. Quando o PROCV não localiza o valor procurado, ele retorna um #N/D e isto está causando o erro de ...
3
votos
Falha no método SELECT da classe RANGE
Você não precisa selecionar a Sheets("SINTESE_LOCAL") nem a célula "D1".
Troque o código da sua Macro1 por:
Sub Macro1()
Sheets("SINTESE_LOCAL").Range("D1").Value= "L"
End Sub
3
votos
Aceito
Abrir planilha Excel e copiar os Dados em VBS
Tente isso:
Path = "C:\Users\user_name\Documents\excell\planilha1.xlsx"
Set objexl = CreateObject("Excel.application")
objexl.Visible = True
Set objwkb = objexl.Workbooks.Open(Path)
Set objsht = ...
3
votos
Extrair dados do SAP através do Excel
Tente excluir essa linha,
Set SapGuiAuto = GetObject("SAPGUI") 'Utiliza o objeto da interface gráfica do SAP
Sub testar()
Dim objExcel
Dim objSheet, intRow, aux, Log
Set objExcel = ...
3
votos
Aceito
Registrar dado em celula de uma tabela excel vba
Me parece que você tem um problema dentro do seu for loop . Eu suponho que a ideia era iterar as linhas da matriz de baixo para cima, procurando o número da viagem correspondente.
Isto não ocorre ...
3
votos
Aceito
VBA Posição de array de Variant para String
No VB.NET você pode utilizar LINQ para fazer isso, mas como está usando VBA você pode simplesmente fazer um loop e concatenar a string. No seu exemplo, acho que seria o seguinte:
strFile = strFile &...
3
votos
Aceito
Verificar com REGEX VBA se telefone é fixo ou móvel (verificando 3º número no regex)
Problema RegEx
O problema da sua Expressão Regular é que ela não valida, por exemplo se um número fixo começar com 4? Muitos telefones comerciais começam com 4, principalmente em São Paulo, que ...
3
votos
Aceito
Incluir o valor de uma variável dentro de uma outra string
Utilize o concatenador &. Faça o seguinte:
Dim name As String
Set name = "Bruno"
ActiveWorkbook.SaveAs Filename:= _"\Colegio\compartilhamentos\secretaria\aluno - " & name & ".xlsx"
2
votos
Como concatenar ou utilizar o & comercial com data e texto?
Você pode formatar a data em uma variável e depois atribuir o valor na célula:
Dim data As String
data = Format(Date, "dd/mm")
data = texto1 & "/" & data & "/" & texto2
ActiveCell....
2
votos
Contar o número de itens selecionados numa ListBox
Acredito que esse código deva te ajudar.
Dim intIndex As Integer
Dim intCount As Integer
With ListBox1
For intIndex = 0 To .ListCount - 1
If .Selected(intIndex) Then intCount = ...
2
votos
Aceito
Uma Macro para executar todos os Módulos?
Todos os módulos, funções e subs são interligados no Excel, poderia ter cada sub independente e ter uma outra função para rodar tudo em sequência, assim:
Sub um()
'código [...]
End Sub
Sub dois()
'...
2
votos
Renomear Arquivo PDF
Veja se da forma como está te atende, fiz pequenos ajustes na sua fórmula onde coloquei comentário.
Para listar os arquivos de determinada pasta na coluna "A":
Sub listarArquivos()
Dim MyFolder As ...
2
votos
Aceito
Como alterar um célula de "Geral" para "Número" e adicionar vírgula?
Para formatar, a Propriedade Range.NumberFormat é utilizada.
Dim rng As Range
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Planilha1")
Set rng = ws.Range("B:B", "E:E")
With rng
....
2
votos
Aceito
Como separar String de edital no Excel
Para resolver o problema fui estudar RegEx (Regular Expression), mas como estava aprendendo, não consegui criar uma Expressão complexa que resolvesse o problema. Então fui no obter a resposta no SO ...
2
votos
Aceito
VBA+Excel. Erro no código (tipo incompatível de argumento Byref) em Função
Para corrigir esse erro basta usar ByVal na declaração das variáveis em sua função, porém existem outros dois pontos que creio que precisar corrigir em seu código, segue correções:
Dim a, b, c, delta,...
2
votos
Pegar nome das abas em uma planilha fechada
Sempre sugiro que ao fazer referência a uma planilha externa utilize o CodeName ao invés do Name, que o usuário pode alterar facilmente. Assim você terá o controle de onde está buscando os dados e se ...
2
votos
Pegar nome das abas em uma planilha fechada
Você pode declarar o worksheet de duas maneiras que possibilitam a mudança de nome das abas.
Worksheets(1) ou Sheets(1), em que utiliza o número de index da planilha, por exemplo:
Dim ws As ...
2
votos
Aceito
Imagem com intervalo de tempo - Excel
Agendador
Use este código VBA para agendar tarefas no horário desejado:
Private Sub Workbook_Open()
'-- Roda os Subs ou funções no horário agendado.
'Deve ser colodado em EstaPastadeTrabalho
...
2
votos
Copiar e colar célula quando for alterada
Inserir código de Evento
Utilizar o evento Worksheet_Change, em que este deverá ser colocado dentro da planilha em que os dados se encontram.
Por Exemplo, no meu caso foi em Planilha1:
Código para ...
2
votos
Aceito
VBA - Maximo de caracteres no dropdown-list
Referindo a esta resposta do SO Global: Maximum drop-down list/formula length in Excel
O passo-a-passo será explicado a seguir:
Criar Planilha com Dados de Validação
Primeiro uma planilha deve ser ...
Only top scored, non community-wiki answers of a minimum length are eligible
Tags relacionadas
excel-vba × 369vba × 276
excel × 178
macro × 26
visual-basic-6 × 11
excel-userform × 10
selenium-webdriver × 6
internet-explorer × 6
html × 5
userform × 5
python × 4
sql × 4
web-scraping × 4
word × 4
listbox × 4
outlook × 4
planilha × 4
banco-de-dados × 3
loop × 3
envio-de-email × 3
ms-access × 3
automatização × 3
vbscript × 3
fórmula × 3
office × 3