Pesquisar na Comunidade

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

Boas pessoal! Sou novo no forum, e estou a busca de uma solução para impressão no Primavera. Criei no menu do utilizador um form para coletar filtros do relatório, para depois rodar as rotinas de criação de viewers e posterior visualização e impressão. já criei também o relatório no Crystal Report, que está funcionando perfeitamente. Minha duvida é como utilizar os comandos vba do primavera para visualizar a impressão e posteriormente iprimir? Tentei os seguintes comandos: Aplicacao.PSO.Mapas.Inicializar ("\\srv02\primavera\SG900\Mapas\LP\NOVOS") Aplicacao.PSO.Mapas.ImprimeListagem ("\\srv02\primavera\SG900\Mapas\LP\NOVOS\CPEM002") Neste caso está sempre ocorrendo erro Runtime error '401' Erro na impressão. Can't show non-modal from when modal from is displayed. Será que alguém poderia me ajudar a solucionar este problema? Cptos.

Bom dia! Esta macro funciona para arquivo de texto. Estou precisando de uma macro que faça o mesmo entre dois arquivos do Excel sem necessidade de abrir o arquivo de origem. Sub TesteVáriasColunas() Dim Arquivo As String Dim Conteudo As String Dim AuxLin, AuxCol As Long Dim Delimitador As String Dim Vetor AuxLin = 1 Delimitador = ";" Open "C:\Dados\PEN DRIVE ESCOLAS\1EXCEL AVANÇADO\CURSO EXCEL AVANÇADO – 40 HORAS - TABELA DINÂMICA - POWER QUERY\CAPÍTULO II - ACESSO A BANCO DE DADOS\PEDIDOS 1997.txt" For Input As #1 Do While Not EOF(1) Line Input #1, Conteudo Vetor = Split(Conteudo, Delimitador) For AuxCol = LBound(Vetor) To UBound(Vetor) Planilha1.Cells(AuxLin, AuxCol + 1).Value = Vetor(AuxCol) Next AuxCol AuxLin = AuxLin + 1 Loop Close #1 End Sub

Bom dia! Tenho a macro abaixo que verificar se o arquivo está em aberto e funciona corretamente. Minha dúvida é se a macro funciona se o arquivo a verificar está na rede e foi aberto em outro computador. Sub AbrirArqPrestações() Dim strPath As Variant Dim NomeArquivo As Variant Dim Posição As Variant strPath = "C:\Users\Paulo.Semblano\Desktop\Teste Conexão.xlsm" Posição = InStrRev(strPath, "\", , vbTextCompare) NomeArquivo = Mid(strPath, Posição + 1, Len(strPath) - Posição) If Dir(strPath) = vbNullString Then strCheck = False Else strCheck = True End If If strCheck Then If IsFileOpen("C:\Users\Paulo.Semblano\Desktop\Teste Conexão.xlsm") Then MsgBox "O arquivo se encontra em aberto!" Workbooks(NomeArquivo).Activate Else Workbooks.Open (strPath) Worksheets("Planilha4").Activate End If Else 'Mensagem = MsgBox("O arquivo " & strPath & " não foi encontrado!", vbInformation) Mensagem = MsgBox("O arquivo " & NomeArquivo & " não foi encontrado!", vbInformation) End If End Sub Function IsFileOpen(filename As String) 'Verificar se o arquivo está em aberto Dim FileNum As Integer, errnum As Integer On Error Resume Next FileNum = FreeFile() Open filename For Input Lock Read As #FileNum Close FileNum errnum = Err On Error GoTo 0 Select Case errnum Case 0 IsFileOpen = False Case 70 IsFileOpen = True Case Else Error errnum End Select End Function

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 uma determinada célula dentro desse "quadrado", com números de 1 a 9, obrigatoriamente ela iria copiar em outro "quadrado", esse mesmo valor, mas na posição correspondente. Suponhamos o jogo do sudoku. Ao preencher o valor 3 por exemplo na célula c21 ela replicaria esse valor automaticamente no outro quadrado, ou seja na posição c6,, ou por exemplo o valor no k21 copiaria para k6 e assim por diante, mas só copiaria, se no quadrado composto pelas células c21 ate k29 contivessem valor. O "quadrado" origem seria composto pelas células c21 ate k29 e o "quadrado" destino seria c6 a k14, em que c21 corresponderia a d6;,d21.a d6; e21 a e6 ate k21 a k6, depois novamente c22 a c7, etc ate ao final k29 a k14. Será que é possível, alguém pode me dar uma ajuda, é que eu tenho visto algumas formas de copiar, mas nao consigo por a funcionar correctamente. Muito obrigado Se calhar não fui muito explicito na minha exposição. Claro que eu posso fazer uma macro em que copio todo o tal "quadrado" e "colo" sobre o outro quadrado. Mas isso é muito simples. E o meu objectivo não é esse. O meu objectivo é ao preencher determinada célula, dentro do 1.º "quadrado", automaticamente ser replicado o valor preenchido na célula correspondente dentro do outro quadrado, sendo que esta ultima célula encontrar-se-ia numa posição simétrica. O exemplo que dei do jogo do Sudoku é perfeitamente elucidativo. Suponhamos que temos dois quadrados, compostos por 81 quadriculas do jogo do Sudoku. Ao preencher uma quadricula especifica no 1 quadrado, automaticamente seria preenchida a quadricula correspondente no outro quadrado, esta quadricula correspondente teria a ver com a posição da linha e da coluna.,