Search the Community
Showing results for tags 'vba'.
-
Boa tarde tenho o seguinte problema: Tenho 2 tabelas: Tabela1 com datas; Tabela2 com datas e valores; Tenho o (SOMA.SE Data da Tabela2;Data Tabela1;VALORES) numa celula da tabela 1; Em VBA tenho o seguinte código: Folha4.Range("C7").Value = WorksheetFunction.SumIf(("R:R"), "B7", ("U:U")) Mas dá-me um erro que não percebo qual seja. Alguém me consegue ajudar?
-
Executar uma macro quando o valor de uma célula se altera
Candido posted a topic in Visual Basic for Applications (VBA)
Oi pessoal estou com um problema que não consigo resolver. O que eu queria fazer era o seguinte: Sempre que o valor constante linha 16 for igual ao valor da linha 9, a macro executasse automaticamente, ou seja, enviando um e-mail com a informação, segue eu precisasse digitar o valor na linha. Obs.: A linha 9 é uma fórmula, ou seja, não digito o valor. Na linha 16, o valor é digitado e quando o valor da linha 9 (que é fórmula) atingir automaticamente o valor da linha 16, o e-mail é disparado. Segue abaixo a macro que de estou tentando resolver o problema: -
Copiar dados entre pastas de um livro excel
Nuno Pinheiro posted a topic in Visual Basic for Applications (VBA)
Boa tarde, Precisava da vossa ajuda, se fosse possível, para o seguinte : Tenho um livro excel com 3 folhas (cadorc, orcamento e Sheet 1). Queria copiar dados da folha orçamento para a Sheet1. O meu problema é que por cada novo orçamento os dados da folha orcamento são apagados. Queria que a Sheet1 fosse a base de dados de todos os orçamentos , ou seja , queria copiar os dados para esta sem apagar os anteriores. Tenho uma rotina que ,embora lenta, faz a copia. Problema é qua apaga os dados anteriores, isso não queria!!! -
Tranferência De Dados entre Livros
Afonso Mira posted a topic in Visual Basic for Applications (VBA)
Boa tarde tenho o seguinte esquema: Folha Excel com Dados ----- Excel com Macro ----- Folha Excel recebe Dados Precisava de passar os dados da 1º folha para a 2º quando abro o Excel que contêm a macro. Alguém me poderia dar uma ideia do código que vou precisar? Obrigado!😄 Abraços, Afonso Mira. -
Verificar se a célula contem ou não string
Afonso Mira posted a topic in Visual Basic for Applications (VBA)
Boas Estou com algumas dificuldades em fazer um código para ver se a célula contem ou não uma string alguém me poderia ajudar. Obrigado, Afonso Mira -
Necessito de uma ajudinha... Necessito criar uma macro para criação de um gráfico cuja BD pode ser numa range variável, ou seja tanto pode ser da "A1:B20" como da "A21:B28". Neste momento pelo que consegui pesquisar na internet tenho mais ou menos isto: Dim rng As Range Set rng = Application.InputBox(Prompt:="Selecione a área do gráfico", Type:=8) Worksheets("sheet1").Activate ActiveSheet.Shapes.AddChart.Select ActiveChart.ChartType = xlLine ActiveChart.SetSourceData Source:=Range("rng") Range("A2").Select Consigo selecionar uma area no excel mas não faz rigorosamente nada e qu
-
Exportar pdf em Excel 2016 - Data com problemas
david.inacio posted a topic in Visual Basic for Applications (VBA)
Boa noite. Tenho um ficheiro que criei no excel 2010 e que gera um pdf a partir do nome original do ficheiro, adicionando a data obtida a partir da céluda A2, como prefixo. Este ficheiro sempre correu bem até actualizar o pc para o excel2016. Deixou de gerar o pdf e dá sempre erro no VBA for Applications, na função cujo código passo a apresentar: Worksheets("Envio Cliente").Activate Dim data2 As String pdfName = ActiveSheet.Name data2 = ActiveSheet.Range("A2").Value pdfName = "_Mapa de Contagem" MsgBox data2 ChDir ActiveWorkbook.Path & "\" fileSaveName = da -
Trabalho numa multinacional, onde temos Excel em Inglês e em Português. A função EOMONTH funciona bem no inglês e quando se abre no português é automaticamente convertida para FIMMES. O Problema é quando se volta a abrir o ficheiro no Excel inglês, a conversão não acontece e fica a dar aquele erro de função #NAME? Já alguém passou por isso? Alguma ideia?
-
Como consigo programar estes botões que são criados dinamicamente ? Ou informação sobre criação de botões dinâmicos Private Sub compra_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.Width = pagina_inicial.Width - 1 Me.Height = pagina_inicial.Height - 1 Dim objConexao As SqlClient.SqlConnection objConexao = New SqlClient.SqlConnection() objConexao.Open() '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
-
Boa tarde amigos, gostava de saber o que e como faço para que o excel envie um e-mail quando estiver a 5 dias de atingir a data de validade do meu produto. Não consigo achar tutoriais na internet. O meu programa avisa quando faltam 5 dias para a inspeção de uma viatura. Mas gostava que ele avisasse por e-mail. http://www.mediafire.com/file/3ca2f4s4e2phtk2/Alerta_de_Inspe%C3%A7%C3%B5es.xlsm/file
-
Boa noite, Estou a começar a mexer no VBA, contudo não tenho qualquer tipo de bases. E neste momento pelo pouco que entendo, estou a precisar de criar uma macro que a sua linha de codigo faça com que ao clicar no botao criado a numeraçao seja automatica aumentado um numero ao numero que ja la estava. Sendo mais especifico, criei um documento(fatura) e precisava de fazer um botao que ao clicar limpa-se o documento escrito e aumenta-se o numero da fatura, para escrever a fatura seguinte. Deste modo, precisar de programar algo que me fizesse isso da numeraçao automatica e da gravação,
-
Preenchimento ao escrever um nome
Gabriel Darin verga posted a topic in Visual Basic for Applications (VBA)
Boa Tarde, Estou tentando criar um código que, ao colar um nome na coluna D, percorra a coluna D e procura esse valor nas celulas anteriores, depois copie os valores das celulas da mesma linha da celula encontrada para a linha que está o nome que eu colei inicialmente. Por exemplo, eu digito o nome "João" na celula D100, o programa procura o nome da celula D1 até a ultima celula. Supondo que ele encontrou o nome na celula D35, ele copia a celula I35 e P35 e cola nas celulas I100 e P100 Aqui está o que eu tentei, mas não tive sucesso: Dim UltCel As Range Dim lastcel As Range Di -
Elabore um algoritmo que dado um número de três algarismos n=CDU (C é o algarismo das centenas, D das dezenas e U das unidades), retorne um número m constituído pelos algarismos de n em ordem inversa, isto é, m=UDC. Por exemplo, para n=123, m=321. Alguem me pode ajudar a realizar este exercicio ?
-
Tenho um VBA no Excel, entretanto o comando salva os lançamentos como texto, então não é possível aplicar qualquer fórmula. Já fiz algumas tentativas e pesquisa mas todas foram fracassadas, segue os códigos: Private Sub CommandButton_gravar_Click() Dim valor As Currency Dim data As Date valor = TextBox_valor data = TextBox_data Range("b11").Select If Range("b12").Value <> "" Then Selection.End(xlDown).Select End If ActiveCell.Offset(1, 0).Select Selection.Value = TextBox_data ActiveCell.Offset(0, 1).Select Selection.Value = ComboBox_categoria ActiveCell.Offset(0, 1).Select Selection.
-
Boa tarde Sou novo neste forum e agradeço desde já qualquer ajuda que me possam dispensar. Tenho uma planilha (Peninsula 2011) com 43 colunas (A até BK) e com 5905 linhas. O que pretendo é que quando for inserido qualquer valor numerico na celula C todas as celulas a partir daí e na mesma linha fiquem bloqueadas. Por exemplo, ao inserir o valor 5500 na celula C5, bloquear tudo da D5 até à BK5 para evitar futura alteração de dados. Muito obrigado pela atenção.
-
Formulário de Pesquisa VBA Filtro automático
Tiago Grego Miguel posted a topic in Visual Basic for Applications (VBA)
Boa noite, desde já aviso que percebo muito pouco de visual basic e ando a tentar executar umas macro no excel para facilitar o trabalho. Neste momento tenho uma base de preços numa sheet do excel e criei um formulário com um listbox e duas caixas de texto para realizar procura automática. O problema que tenho, é que a procura apenas de cinge à primeira palavra do campo onde procura, nunca vai procurar a combinação de caracteres ás restantes palavras. Não sei se me fiz entender, mas vou deixar aqui o código para ver se alguém me consegue ajudar. Obrigado desde já. Sub FILTRO() O -
Boa noite, Estou usando parte do codigo abaixo para enviar e-mails de forma automatica pelo excel, mas quero que o inicial do range que no memento é A6 seja mutavel de acordo com o valor especifico de uma celula, Set IntervaloMailing = WrkS.Range("A6:A7") Por exemplo: Se a celula que eu vou usar como referencia estiver com o valor A5 Esta parte codigo ficaria: Set IntervaloMailing = WrkS.Range("A5:A7") ou seja o primeiro valor do range precisa mudar de acordo com o valor que for digitavel na minha celular de referencia que neste caso poderia ser a primeira c
-
Amigos, boa tarde. Estou criando um formulario de pesquisa na qual ao colocar o codigo de meu produto é exibido o valor que o tenho em estoque fisico, contabil, relacao, para isso criei quatro textbox onde o ultimo soma esses valores de forma automatica ficando com essa formatação: txt_soma.text = Val(txt_qtdcontabilinformada.text) + Val(txt_entrada.text) - Val(txt_qtdestoque.text) - Val(txt_saida.text). O que acontece é que se o txt_qtdestoque for negativo em vez do valor diminuir ele soma, exemplo: txt_qtdcontabilinformada for = 10 txt_qtdestoque for = -186 txt_
-
Comparar dados e trazer resultado
FABRICIO SILVA posted a topic in Visual Basic for Applications (VBA)
Olá Pessoal, Boa Tarde. Tenho uma planilha que tem mais de uma "aba" preciso de informações se consigo fazer através de VBA, o seguinte: Que ele faço o comparativo entre essas "abas" e me traga a informação consolidado tipo "aba 1" Tem a informação nome e telefone "aba 2" Tem a informação nome e telefone e e-mail Queria que as informações fosse cruzadas e fosse trazido a informação completa (Nome, telefone e e-mail), em outra "aba". Será que é possível -
Executar uma macro quando o valor de uma célula se altera
sagostinho posted a topic in Visual Basic for Applications (VBA)
Oi pessoal estou com um problema que não consigo resolver pois os meus conhecimentos de vba ainda são muitos poucos tenho este código que me executa uma macro sempre que uma célula altera mas o problema aqui é que eu tenho de digitar o 1 na célula caso contrário não executa a macro. Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, Range("A1")) Is Nothing Then Select Case Target Case 1 Call macro1 Case Else End Select End If A -
Bom dia pessoal, estou com muito dificuldade em realizar um código no vba, preciso que me traga apenas os números de uma coluna com número e palavras. Alguém poderia me ajudar? Exemplo: Coluna 1 Coluna 2 2014 2014 carro 2014896 2014896 6598742 moto 6598742 Avião
-
Ola preciso de ajuda preciso criar um form com restrição de datas. tenho dois campos (data inicial e final), preciso que ao colocar as datas ele retorne todos os produtos que deram baixa nesse período. a dificuldade esta na criação dessa restrição.
-
Olá!, Minha programação é preencher um formulário, onde os valores cadastrado vão para o Access e também aparece no programa, porém, quando vou editar aparece dando o seguinte erro "Me.ClientesBindingSource.EndEdit()" com a mensagem "System.Data.ConstraintException: 'A coluna 'cod_cli' está restrita a conter valores exclusivos. O valor '2' já existe.'" Segue a linha de programação: Private Sub btnEditar_Click(sender As Object, e As EventArgs) Handles btnEditar.Click Me.Validate() Me.ClientesBindingSource.EndEdit() Me.ClientesDataSet.AcceptChanges()
-
Boa tarde sou novo por estas bandas e no VB, gostaria de uma ajuda. Tenho o exe e queria chamá-lo que qq parte seja do C: ou D: ou de um DVD, qual é o comando que devo utilizar? Obrigado
-
Copiar determinadas células para local simétrico dentro da mesma folha
Jose Manuel Diniz posted a topic in Visual Basic for Applications (VBA)
Ola boa noite. Eu sou novo no VBA mas acho muito interessante e tenho feito algumas coisas, com base em informações que vou recolhendo aqui e ali, apenas em termos ludicos e para aprendizagem.. No caso presente, eu gostaria de copiar através de programação ou macros, dados de varias células, desde que estas contivessem valores, para determinadas posições dentro dessa mesma folha, sem ter que recorrer ao copy paste, portanto de uma forma automática.. Concretizando, suponhamos que tenho um "quadrado" de 9 células horizontais por 9 células verticais (portanto 81 células). Ao preencher u