Pesquisar na Comunidade

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, o problema é que não entendo nada do assunto e tudo que procurei não me serviu de muito. Obrigado pela atenção, Vitor Costa

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 Dim Nome As String Dim Area As String Dim Nome2 As String Range("A37").Select Selection.End(xlUp).Select 'Loop principal 'percorrer os nomes Do While ActiveCell.Value <> "CLIENTE" 'guardar o nome Nome = ActiveCell.Value Set UltCel = ActiveCell Range("A1").Select 'repetição Do While ActiveCell <> "CLIENTE" Nome2 = ActiveCell.Value Set lastcel = ActiveCell If Nome2 = Nome Then 'If ActiveCell.Offset(0, 1).Value <> "" Then ActiveCell.Offset(0, 2) = Nome 'End If End If ActiveCell.Offset(1, 0).Select Loop Exit Do UltCel.Offset(-1, 0).Select Loop

Boa tarde, Estou a ter este erro mas não sei a razão: Private Sub btn_abredesenhos_Click(sender As System.Object, e As System.EventArgs) Handles btn_abredesenhos.Click Dim doc = XDocument.Load("cl.xml") Dim folderToFind = "ov" + TextBox_ov.Text Dim paths = doc.Descendants("dir").Where(Function(dir) String.Equals(folderToFind, CStr(dir.Attribute("name")), StringComparison.OrdinalIgnoreCase)).[Select](Function(dir) dir.AncestorsAndSelf().[Select](Function(el) CStr(el.Attribute("name"))).Reverse().Aggregate(String.Empty, Path.Combine)) For Each path As String In paths Process.Start(New ProcessStartInfo With { .FileName = path, .UseShellExecute = True, .Verb = "open" }) Next End Sub Error 1 Overload resolution failed because no accessible 'Select' can be called with these arguments: Extension method 'Public Function Select(Of TResult)(selector As System.Func(Of System.Xml.Linq.XElement, Integer, TResult)) As System.Collections.Generic.IEnumerable(Of TResult)' defined in 'System.Linq.Enumerable': Nested function does not have a signature that is compatible with delegate 'System.Func(Of System.Xml.Linq.XElement, Integer, TResult)'. Extension method 'Public Function Select(Of TResult)(selector As System.Func(Of System.Xml.Linq.XElement, Integer, TResult)) As System.Collections.Generic.IEnumerable(Of TResult)' defined in 'System.Linq.Enumerable': Data type(s) of the type parameter(s) cannot be inferred from these arguments. Specifying the data type(s) explicitly might correct this error. Extension method 'Public Function Select(Of TResult)(selector As System.Func(Of System.Xml.Linq.XElement, TResult)) As System.Collections.Generic.IEnumerable(Of TResult)' defined in 'System.Linq.Enumerable': Data type(s) of the type parameter(s) in extension method 'Public Function Aggregate(Of TAccumulate)(seed As TAccumulate, func As System.Func(Of TAccumulate, String, TAccumulate)) As TAccumulate' defined in 'System.Linq.Enumerable' cannot be inferred from these arguments. Specifying the data type(s) explicitly might correct this error. Extension method 'Public Function Select(Of TResult)(selector As System.Func(Of System.Xml.Linq.XElement, TResult)) As System.Collections.Generic.IEnumerable(Of TResult)' defined in 'System.Linq.Enumerable': Data type(s) of the type parameter(s) cannot be inferred from these arguments. Specifying the data type(s) explicitly might correct this error. Alguém sabe a razão? Obrigado

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 ?

Boa Tarde, Eu tenho o seguinte código, onde crio 5 botões através de um ciclo e queria saber como é que consigo programa-los, eu tentei com o AddHandler mas ao tentar correr o programa dá-me os erros "Expression Expected" e "Charapter is not valid" nessa mesma linha de código "AddHandler b.Click, AddressOf HandleDynamicButtonclick". Dim b As New Button For i = 1 To 5 b.Name = "btn" & i b.Text = "btn" & i AddHandler b.Click, AddressOf HandleDynamicButtonclick b.Width = 79 b.Height = 50 MsgBox("ola butão" & i) b.Font = New Font("Perpetua", 12) FlowLayoutPanel1.Controls.Add(b) Next Private Sub HandleDynamicButtonclick(ByVal sender As Object, ByVal e As EventArgs) Dim btn As Button = DirectCast(sender, Button) If btn.Name = "botão1" Then MsgBox("Btn1 clicked") ElseIf btn.Name = "botão2" Then MsgBox("Btn2 Clicked") End If End Sub Podem me ajudar no que falta ou o que esta errado.

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.Value = TextBox_historico ActiveCell.Offset(0, 1).Select Selection.Value = ComboBox_movimento ActiveCell.Offset(0, 1).Select Selection.Value = TextBox_valor Unload UserForm_lançamento Também tentei fazer um teste após o lançamento para converter em numero mas não funcionou For Each cell In [f1:f50000] If cell > "" Then numero = (cell.Value) cell.Activate ActiveCell.FormulaR1C1 = numero Else End If Next Minha última tentativa em converter o texto foi adicionar a seguinte linha de código Selection.Value = TextBox_valor Selection.NumberFormat = "$#,##0.00"

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.

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() On Error GoTo Erro Dim linha, linhalist As Integer Dim valor_celula As String linhalist = 0 linha = 2 bdcdo.Clear 'ORCABDCDO.Select - Vinha com o código original, mas fazia saltar de folha. With ORCABDCDO While .Cells(linha, 1).Value <> "" valor_celula = .Cells(linha, 1).Value If UCase(Left(valor_celula, Len(codigo.Text))) = UCase(codigo.Text) Then valor_celula = .Cells(linha, 2).Value If UCase(Left(valor_celula, Len(design.Text))) = UCase(design.Text) Then Me.bdcdo.ColumnWidths = "60;200;40;60" With bdcdo .AddItem .List(linhalist, 0) = ORCABDCDO.Cells(linha, 1) .List(linhalist, 1) = ORCABDCDO.Cells(linha, 2) .List(linhalist, 2) = ORCABDCDO.Cells(linha, 3) .List(linhalist, 3) = Format(ORCABDCDO.Cells(linha, 4), "currency") End With linhalist = linhalist + 1 End If End If linha = linha + 1 Wend End With Exit Sub Erro: MsgBox "Erro!", vbCritical, "filtro" End Sub Private Sub codigo_Change() Call FILTRO End Sub Private Sub design_Change() Call FILTRO End Sub Private Sub UserForm_Click() End Sub

Fala pessoal, alguém poderia me ajudar, eu estou com um problema na minha caixa combobox, ela parou de funcionar. e eu também não consigo editar mais o eixo onde fica os valores dos gráficos, sempre que entro em "formatar" meu Excel trava e para de funcionar.

Boa tarde Eu estou com uma tabela, e nessa tabela eu usei a função endereço+corresp para me retornar o endereço referente a uma palavra chave especifica. agora eu preciso de um VBA para me levar a esse endereço que a função me retornou. Por gentileza alguém pode me ajudar?

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 celula da planilha Segue o codigo que eu estou usando Public WrkB As Workbook 'Cria variavel da Pasta de Trabalho Public WrkS As Worksheet 'Cria variavel da Planilha Public IntervaloMailing As Range 'Cria Variavel com o Intervalo do Mailing Public Celula As Range 'Cria Variavel com o registro do Mailing Public AppOutk As Outlook.Application 'Cria Variavel com a Aplicacao do Outlook Public MailOutk As Outlook.MailItem 'Cria Variavel com o objeto "Email" do Outlook Public Sub MandarEmail() Set WrkB = ThisWorkbook 'Define a pasta de Trabalho Set WrkS = WrkB.Sheets("Mailing") 'Define a Planilha com os dados Set IntervaloMailing = WrkS.Range("A7:A7") 'Define qual o intervalo do Mailing <<<< esta parte que preciso que seja variavel With WrkS .Select For Each Celula In IntervaloMailing Call CriaEmail 'Chama a Rotina para Criar o Email Next End With End Sub Atenciosamente Nate

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_soma o correto seria -176, porem o valor que é apresentado é 196. OBS: Ja tentei inverter os sinais negativos por positivos da função ms nao deu certo. Grato,

Boa noite sou novo aqui alguém pode me ajudar a Inserir dados filtrados no subformulário a partir de uma escolha em uma caixa de combinação

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

boa noite, Estou com uma consulta em um formulario onde contem um subformulario e gostaria de saber como criar o codigo vba, pois ja tentei em diferças maneiras e nao deu certo. Tenho uma Data inicial e uma final no formulario e gostaria que trouxesse todas as informaçoes da tabela ou consulta nesse intervalo. algem podeira ajudar-me?

Olá, estou com muita dificuldade em realizar o preenchimento de uma ComboBox https://ibb.co/ePi4Q9 No caso eu queria que apos o preenchimento do TextBox com a data, a ComboBox fizesse uma pesquisa no Banco de Dados e retornasse todas as entradas para a data. Mais só consigo executar a ComboBox no evento UserForm_Initialize(). Se alguém puder me ajudar, agradeceria muito. Obrigado.

Olá, Sou ainda novo por aqui, mas já me ajudaram imenso. Sou um autodidata em informática, atualmente em VBA - Excel, pois estou a construir um documento automatizado que me ajudará muito no meu trabalho. Tenho um livro, com várias folhas. Através a macro abaixo, já consegui inserir uma imagem, na folha em uso e com as dimensões que pretendo. No entanto eu precisava que ao inserir esta imagem aqui, ela aparecesse noutras folhas, em células e dimensões diferentes. (em mais duas folhas diferentes e com diferentes dimensões). Será que há alguma forma de alterar o código, para que esse processo seja automático, ou terei de o repetir em cada uma das folhas? Obrigadão! Código: Sub Iserir_Logo_Departamento() Dim Pict Dim ImgFileFormat As String Dim Celula As String Celula = "logodepartamento" ' célula onde será inserido a imagem ImgFileFormat = "Image Files JPG (*.jpg),*.jpg, Image Files PNG (*.png),*.jpg, Image Files GIF (*.gif),*.gif, Image Files BMP (*.bmp),*.bmp" Pict = Application.GetOpenFilename(ImgFileFormat) If Pict = False Then End ActiveSheet.Shapes.AddPicture Pict, False, True, Range(Celula).Left, _ Range(Celula).Top, Range(Celula).Width * 3, Range(Celula).Height * 5 'largura da imagem = 3 colunas e altura= 5 linhas End Sub

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 Application.EnableEvents = True End Sub Sub macro1() MsgBox "macro1" End Sub O que eu queria fazer era o seguinte sempre que aparecesse 1 na célula A1 a macro executasse e não fosse preciso digitar esse 1.

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 feras do excel. venho novamente até vós pedir uma ajuda. essa ao meu ver é do nivel hard. tenho dois formularios o primeiro tem cinco textbox o segundo é um numpad com os botões do zero a nove, a virgula , o enter e um textbox que serve de visor onde posso ver os valores enquanto vou digitando. se no primeiro formulario eu clico no textbox1 ele vai ativar o formulario numpad. onde vou digitar o valor. ao dar enter ou fechar o numpad preciso que o valor seja inserido no textbox1. se no primeiro formulario eu clico no textbox2 ele vai ativar o formulario numpad. onde vou digitar o valor. ao dar enter ou fechar o numpad preciso que o valor seja inserido no textbox2. resumindo preciso encontrar uma maneira do formulario 2 saber qual textbox eu cliquei para inserir o valor ai. qualquer ajuda é bem vinda... gracias

Boa tarde, Preciso de uma macro que seja executada automaticamente, de acordo com o valor da célula "D11". Para tal, fiz o seguinte código (que está funcionando, mas não é executado automaticamente ao alterar a célula): Sub Exibir_Billing_Atual() ActiveSheet.Unprotect Password:="12345" If Range("D11").Value = "Projeto" Then Range("D17").Value = 0 Range("D17:D18").Select Selection.EntireRow.Hidden = True Range("D11").Select ElseIf Range("D11").Value = "Aditivo" Then Rows("17:18").Select Selection.EntireRow.Hidden = False Range("D17").Select End If ActiveSheet.Protect Password:="12345" End Sub Alguém poderia me ajudar?

Bom dia, estou com duvida no formulario. tenho uma opção de cadastro com option button esse material altera pedido? sim, não, se marcar sim, obrigar a preencher a textbox com nome do pedido anterior. como fazer isso?

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.

Bom dia! Estou a meio de um projecto e necessitava de ajuda a resolver uma questão que não estou a conseguir. No meu projecto tenho uma datagridview, sendo que, para os valores da segunda coluna quero executar um cálculo para cada linha. No entanto, dentro do ciclo for para executar cada linha tenho um outro ciclo cujos diversos valores são somados. Assim, isto faz com que quando é calculado o valor para a segunda linha da minha datagried o código some o valor da linha anterior e eu não quero que ocorra esta soma. Isto é, por exemplo o código que tenho actualmente dá me os seguintes resultados: 4, 8 e 13 e o que eu quero obter é 4, 4, 5. No fundo será o valor obtido para cada linha subtraido do valor da linha anterior, mas neste momento não consigo ter acesso a esse valor no meu código. Alguém tem uma sugestão? Seria muito grata se alguém me pudesse dar uma dica de como resolver isto, é a primeira vez que estou a programar e neste momento não tenho ideia de como resolver. Deixo abaixo algumas linhas do meu código para que possa ser mais perceptível o que estou a tentar dizer. For Each Linha In DataGrid_RHR.Rows RHR = Convert.ToDouble(Linha.Cells("Column2").Value) RHRW = RHR * 1000 'converter kW em W 'calcular a origem virtual origem_virtual = (-1.02 * d_fogo) + (0.00524 * (RHRW ^ 0.4)) 'calcular o comprimento da chama hf = (-1.02 * d_fogo) + (0.0148 * (RHRW ^ 0.4)) 'Calcular o fator de vista para a face 1 For j = 0 To limite Step 0.5 'calcular A temperatura da chama t_chama = 20 + (0.25 * ((0.8 * RHRW) ^ (2 / 3)) * ((j - origem_virtual) ^ (-(5 / 3)))) 'fator de vista dos cilindros y_fv = 0 r = d_fogo / 2 rij = r - ((0.5 * d_fogo * (hf - (hf - j))) / hf) 'verificado s = s_fv / rij 'VERIFICADO x = x_fv / rij 'verificado y = y_fv / rij ' isto estava mal h_fv = Math.Abs(z_coluna - j) 'verificado hh = h_fv / rij A = (x ^ 2) + (y ^ 2) + (s ^ 2) 'verificado B = (s ^ 2) + (x ^ 2) 'verificado C = (hh - y) ^ 2 'VERIFICADO equacao1 = (Math.Acos(((y ^ 2) - B + 1) / (A - 1))) + (Math.Acos((C - B + 1) / (C + B - 1))) equacao2 = y * (((A + 1) / ((((A - 1) ^ 2) + (4 * y ^ 2)) ^ 0.5)) * (Math.Acos((y ^ 2 - B + 1) / ((B ^ 0.5) * (A - 1))))) equacao3 = (C ^ 0.5) * ((C + B + 1) / (((((C + B - 1) ^ 2) + (4 * C)) ^ 0.5)) * (Math.Acos((C - B + 1) / ((B ^ 0.5) * (C + B - 1))))) equacao4 = hh * Math.Acos(1 / ((B) ^ (1 / 2))) fator_de_vista_1 = (s / B) - (((s / (2 * B * 3.14)) * (equacao1 - equacao2 - equacao3 + equacao4))) fv_anel = (hh_anel / 2) * ((((hh_anel ^ 2) + (rr2_anel ^ 2) + 1) / (Math.Sqrt((((hh_anel ^ 2) + (rr2_anel ^ 2) + 1) ^ 2) - (4 * (rr2_anel ^ 2))))) - (((hh_anel ^ 2) + (rr1_anel ^ 2) + 1) / (Math.Sqrt((((hh_anel ^ 2) + (rr1_anel ^ 2) + 1) ^ 2) - (4 * (rr1_anel ^ 2)))))) If j > z_coluna + 1.0E-23 Then fv_anel = 0 ' '6º calcular o fator de vista total (soma do fator de vista do cilindro e do anel) para a face 1 fv_total = fator_de_vista + fv_anel '7º calcular o fluxo absorvido pela face 1 fluxo_por_Segmento = (constante_de_stephan_Boltzmann * (((temperatura_chama + kelvin) ^ 4) * fv_total)) / 1000 somatorio_face_1 += fluxo_por_Segmento Next fluxo_absorvido_face_1 = emissividade_chama * somatorio_face_1 ' MessageBox.Show(fluxo_absorvido_face_1) Next

Olá. Pretendo aplicar uma senha dentro de uma macro em excel a autorizar a sua execução. Ou seja, ao clicar no botão da macro, pedirá que introduza uma senha para a mesma ser executada. Agradeço ajuda. FD