Pesquisar na Comunidade

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

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() Me.ClientesTableAdapter.UPDATE_CLI(txtCliente.Text, txtDesc.Text, txtArea.Text, txtSitu.Text, txtVisita.Text, txtOrcamento.Text, txtEntrega.Text, txtParceiros.Text, txtCod.Text) ' essa linha atualiza o grid view DataGridView1.DataSource = Me.ClientesTableAdapter.GetData() End Sub

Boa tarde pessoal,é muito bom poder ter contato com a comunidade de vocês. Antes de colocar minha dúvida aqui gostaria que soubessem que admiro muito a capacidade daqueles que conseguem desenvolver saídas para os problemas que para leigos como eu acham ser impossíveis. Parabéns. Já deixo meu agradecimento só pelo fato de gastarem o seu tempo lendo o post. Segue a dúvida e solicitação de ajuda. Tenho uma apresentação no power point que fica apresentando continuamente em uma tela, nesta apresentação contem gráficos e planilhas de desempenho. Gostaria de uma macro que atualizasse os vínculos automaticamente quando o slide 1 fosse exibido, assim a apresentação estaria sempre atualizada. Ela é exibida 24 horas por dia e atualizada varias vezes nesse intervalo, por isso não posso ficar atualizando manual. Seria possível?

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

O código abaixo funcionou corretamente até hoje e, de repente, passou a dar a mensagem "Erro em tempo de execução 13" "Tipos Incompatíveis. O erro ocorre na linha em negrito que contém a instrução Application.Match, a variável ChaveAdianta é tipo texto. Se alguém puder me ajudar, agradeço muitíssimo. Function GravalinhaAdianta() Dim Nova As Boolean, linha As Integer ChaveAdianta = Range("scr!tl8") linha = Application.Match(ChaveAdianta, Range("DAT1!ACA:ACA"), 0) If IsError(linha) Then linha = Range("DAT1!ACA1").End(xlDown).Row + 1 Nova = True End If Sheets("DAT1").Activate senha = Sheets("SCR").Cells(1, 1) ActiveSheet.Unprotect Password:=senha Range("DAT1!ACA" & linha) = Range("SCR!TL8") Range("DAT1!ACB" & linha) = Range("SCR!TL9") Range("DAT1!ACC" & linha) = Range("SCR!TL10") Range("DAT1!ACD" & linha) = Range("SCR!TL11") Range("DAT1!ACE" & linha) = Range("SCR!TL12") Range("DAT1!ACF" & linha) = Range("SCR!TL13") Range("DAT1!ACG" & linha) = Range("SCR!TL14") Range("DAT1!ACH" & linha) = Range("SCR!TL15") Range("DAT1!ACI" & linha) = Range("SCR!TL16") Range("DAT1!ACJ" & linha) = Range("SCR!TI9") Range("DAT1!ACK" & linha) = Range("SCR!TL17") Range("DAT1!ACL" & linha) = Range("SCR!TL10") & Range("SCR!TL9") If Nova Then Range("DAT1!ACS" & linha) = Now() Range("DAT1!ACT" & linha) = Now() Range("DAT1!ACU" & linha) = UsuarioRede Range("DAT1!ACV" & linha) = MaquinaRede OrdenaAdianta Sheets("SCR").Activate End Function

Boa Tarde, Estou a realizar uma programa e como forma de output estou a usar o PrintDocument, só que cheguei a um impasse. No caso se inserirem muitos artigos o PrintDocument fica desconfigurado. Em uma rapida pesquisa descobri que terei de usar o "HasMorePages", porem não consigo entender como o aplicar. Agradecia quem me pudesse ajudar. Atentamente, Diogo.

Tenho uma macro que salva na rede três planilhas de um arquivo em PDF. Faz um loop e verifica quais planilhas vai salvar em PDF, e salva corretamente. A macro trava ou dá erro quando a rede está ruim ou caiu, precisando utilizar a tecla ESC. Como verificar antes se a rede está ativa e operacional? Se a rede está mapeada como unidades, logicamente não achando é porque a rede está inativa ou o caminho não existe. Uso On Error Resume Next uma linha antes do salvamento em PDF, e logo após If Err.Number > 0 Dim CaminhoArq As String Dim NomeArq As String CaminhoArq = ActiveSheet.Range("F2").Value NomeArq = ActiveSheet.Range("F4").Value If Right(CaminhoArq, 1) <> "\" Then CaminhoArq = CaminhoArq & "\" On Error Resume Next ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=CaminhoArq & NomeArq & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False If Err.Number > 0 Then MsgBox "Caminho da pasta não existe!", vbExclamation, "AAAAA" Exit Sub End If Não existindo o caminho a mensagem de erro é imediata. Mas existindo o caminho e a rede estando inativa ou fraca, era para dar erro imediato e cair no IF Err.Number, mas o Excel trava e não responde, somente teclando ESC se consegue parar a macro. Um código que achei na Internet, que gostaria de saber se funciona tanto para rede como para internet. E continua o código somente se a rede estiver boa: estando ruim ou com algum problema ou inativa, para o código. Private Declare PtrSafe Function InternetGetConnectedStateEx Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long Public Function IsInternetConnected() As Boolean IsInternetConnected = InternetGetConnectedStateEx(0, "", 254, 0) End Function Sub TestandoConexão() If IsInternetConnected = True Then MsgBox "Continua o código" Else MsgBox "Código interrompido" End If End Sub