Respostas interessantes marcadas com a tag

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 ...
danieltakeshi's user avatar
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 ...
Sérgio Sereno's user avatar
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: ...
eBilk's user avatar
  • 31
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 ...
Marco's user avatar
  • 664
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 ...
Evert's user avatar
  • 2.017
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 ...
Jefferson Quesado's user avatar
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 ...
Gabriel Belini's user avatar
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 ...
MarceloPBG's user avatar
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 ...
danieltakeshi's user avatar
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)....
virtualdvid's user avatar
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 ...
Antonio C. da Silva Júnior's user avatar
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
Antonio Santos's user avatar
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 = ...
Hudson Komuro's user avatar
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 = ...
luis Fernando's user avatar
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 ...
SportaCub's user avatar
  • 146
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 &...
mago's user avatar
  • 46
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 ...
danieltakeshi's user avatar
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"
Heitor Scalabrini's user avatar
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....
Ricardo Pontual's user avatar
  • 22,7mil
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 = ...
andrepaulo's user avatar
  • 1.665
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() '...
Evert's user avatar
  • 2.017
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 ...
Evert's user avatar
  • 2.017
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 ....
danieltakeshi's user avatar
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 ...
danieltakeshi's user avatar
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,...
Evert's user avatar
  • 2.017
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 ...
Evert's user avatar
  • 2.017
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 ...
danieltakeshi's user avatar
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 ...
danieltakeshi's user avatar
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 ...
danieltakeshi's user avatar
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 ...
danieltakeshi's user avatar

Only top scored, non community-wiki answers of a minimum length are eligible