Pesquisar na Comunidade

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.,

Boa noite podem ajudar-me a criar uma função em VBA que me permita fazer média dos n maiores valores de uma lista ? Por exemplo se tiver a lista (2, 5, 7, 2, 3, 4) e n=3 é feita a média dos 3 maiores valores, 4, 5, 7

Boa noite. Pretendo criar uma macro que faça o seguinte: - pesquisar um determinado valor na coluna "A" de uma planilha e, caso o encontre, pesquisar outro valor apenas nas células da linha do valor encontrado na coluna A. A primeira parte consigo fazer sem problema. Não sei é como fazer a segunda (apenas consigo procurar em toda a planilha, o que não me interessa). Só por curiosidade, pretendo que a macro, caso não encontre o valor da coluna A, adicione o valor pretendido nessa coluna, na célula imediatamente abaixo da última preenchida. Segue-se o códgo: Private Sub addcrimes_Click() Dim sourceXL As Excel.Application Dim MANUAL As Excel.Workbook Dim sourceSheet As Excel.Worksheet Set sourceXL = Excel.Application Set MANUAL = sourceXL.Workbooks.Open("C:\PROGRAMA\BDADOS.xlsm") Set sourceSheet = MANUAL.Sheets("Bananas") linha = macasbox linha1 = bananasbox1.Value MANUAL.Activate totalregistos = Sheets("Bananas").UsedRange.Rows.Count Sheets("Bananas").Select With sourceSheet.Range("A1:A5000") If macasbox = "" Then Application.Visible = True MsgBox ("Por favor, insira um valor e volte a tentar") macasbox .SetFocus macasbox .BackColor = vbYellow MANUAL.Save MANUAL.Close Application.Visible = False Exit Sub Else Application.Visible = True nuipcbox.BackColor = vbWhite Set c = .Find(linha, LookIn:=xlValues) If Not c Is Nothing Then c.Select Do ActiveCell.Offset(0, 1).Select Loop Until ActiveCell = "" ActiveCell = Me.bananasbox1 Me.bananasbox1= Null End If End If If c Is Nothing Then Cells(totalregistos + 1, "A") = Me.macasbox Cells(totalregistos + 1, "B") = Me.bananasbox1 End If End With MANUAL.Save MANUAL.Close Application.Visible = False Obrigado! Cumprimentos

Pessoal estou desenvolvendo um sistema e queria o seguinte: Um combobox que me traz uma lista igual um treeview exemplo: 1 Financeiro 1.1 Aluguel 1.2 Salario 2 Despesas 2.1 Manutenção de equipamento 2.2 Como faço isso em vb.net????? eu dei uma olhada mais só encontrei isso em asp ou c# porem estava muito complexo para eu entender. Alguem pode me dar uma ajuda? Esses dados eu estarei trazendo do banco de dados. Os número só usei como exemplo para ficar melhor para entender.

Bom dia. Eu criei um aplicativo em vba Excel que será usado em computadores distintos. O problema disto é que o UserForm é grande, o que faz com que nos monitores mais pequenos não se consiga utilizá-lo adequadamente. Assim, eu tenho procurado por um código que permita ajustar o tamanho do Userform e respetivo conteúdo à resolução do monitor. Andei à procura na internet e encontrei alguma coisa, mas nenhum dos códigos que encontrei está preparado para 32 e 64 bit. Este pareceu-me interessante: Option Explicit 'Function to get screen resolution Private Declare Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long 'Functions to get DPI Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hDC As Long, ByVal nIndex As Long) As Long Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hDC As Long) As Long Private Const LOGPIXELSX = 88 'Pixels/inch in X Private Const POINTS_PER_INCH As Long = 72 'A point is defined as 1/72 inches 'Return DPI Public Function PointsPerPixel() As Double Dim hDC As Long Dim lDotsPerInch As Long hDC = GetDC(0) lDotsPerInch = GetDeviceCaps(hDC, LOGPIXELSX) PointsPerPixel = POINTS_PER_INCH / lDotsPerInch ReleaseDC 0, hDC End Function 'Resize when Userform Initialize Private Sub UserForm_Initialize() Dim w As Long, h As Long w = GetSystemMetrics32(0) ' Screen Resolution width in points h = GetSystemMetrics32(1) ' Screen Resolution height in points With Me .StartUpPosition = 1 .Width = w * PointsPerPixel * 0.85 'Userform width= Width in Resolution * DPI * 85% .Height = h * PointsPerPixel * 0.85 'Userform height= Height in Resolution * DPI * 85% End With End Sub Será que alguém me pode ajudar a torná-lo compatível com vba7? Ou então, poderiam propor-me um código alternativo? Cumprimentos e obrigado!

Viva pessoal, Desculpem estar a abrir um topico por uma questão tão basica :mad:, mas após muita pesquisa sigo sem conseguir resolver o problema. Então é assim, tenho um UserForm com um formulario, acontece que numa das textbox é introduzido um valor numerico (a maior parte das vezes é uma valor negativo), que quando copiado para celula Range("G8").Select ActiveCell.FormulaR1C1 = TextBox3.Value ele é reconhecido como texto, quando na coluna todos o valores estão formatados como contabilidade, e como tal, o excel não faz as contas devidas. Coloquei este codigo mas tambem não me resolveu a situação Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean) Me.TextBox3.Value = Format((TextBox3.Value), "currency") Como posso resolver isso??

Boa noite. Pretendo carregar num Userform um dos ficheiros de imagem existentes num dirétorio, com base na informação introduzida numa textbox desse userform. E.g.: Tenho os ficheiros 1.jpeg; 2.jpeg; 3.jpeg. Se na textbo1 digitar 1, no campo de imagem do userform abre-se o jpeg 1.jpeg. Obrigado Cumprimentos.

Boas pessoal Tenho uma aplicação em VB6 em que seleciono numa listbox um determinado "Artigo", se der o click em cima de um Artigo (sendo "em cima" clickar no nome do artigo) assume o Index correcto. Se clickar ligeiramente ao lado do nome do Artigo assume o Index 0 e com a rapidez de execução do trabalho o operador seleciona erradamente o Artigo. A ideia seria, se o cursor não estiver em cima das letras do Artigo, não assume Index por defeito nenhum. Testei o evento Lost_Focus mas sem sucesso. Conseguem ajudar-me?

Bom dia. Estou a criar uma macro em excel que me permite abrir e editar um documento word: " Private Sub CommandButton11_Click() Dim appWORD As WORD.Application Dim DOC As WORD.Document Set appWORD = New WORD.Application appWORD.Visible = True Set DOC = appWORD.Documents.Open("C:\Users\miguel.martins\Desktop\PJM\PJM\Novos Modelos\Meus\Correspondência\Geral - Modelos\010 Ofício - Modelo1.doc") appWORD.ActivateIf Dir("C:\Users\miguel.martins\Desktop\PJM\PJM\Novos Modelos\Meus\Correspondência\Geral - Modelos\010 Ofício - Modelo1 - Cópia.doc") <> "" Then Kill "C:\Users\miguel.martins\Desktop\PJM\PJM\Novos Modelos\Meus\Correspondência\Geral - Modelos\010 Ofício - Modelo1 - Cópia.doc" End If DOC.SaveAs ("C:\Users\miguel.martins\Desktop\PJM\PJM\Novos Modelos\Meus\Correspondência\Geral - Modelos\010 Ofício - Modelo1 - Cópia.doc") " O problema é que se eu clicar no botão da macro uma segunda vez sem fechar o documento aberto, o Word pergunta-me se pretendo abrir uma cópia de leitura, uma vez que o documento original já se encontra aberto. Se eu não selecionar nenhuma opção e fechar essa janela no "x", o meu programa dá erro. Que comando posso inserir para permitir (ou impedir) execuções consecutivas da mesma macro, para que este conflito não ocorra? Antes de mais, muito obrigado! Cumprimentos.

Boa tarde. Eu criei um formulário em Excel para onde gostaria de importar dados provenientes de uma planilha excel. Mais concretamente, pretendo importar vários dados de uma dada linha da planilha para os diversos campos do formulário. Para dizer ao programa que linha pretendo importar, crirei um campo, onde o número da linha deverá ser inserido. O código para importar os dados para os campos do formulário eu já o tenho. O que eu não sei é como dizer ao programa para importar os dados constantes na linha pretendida (indicada pelo valor introduzido no campo do formulário criado para esse fim). Obrigado pela ajuda. Cumprimentos

Boa noite, Criei uma planilha com alguns códigos em VBA, alguns UserForms e alguns códigos para ocultar todo o Excel (de maneira a exibir apenas os UserForms) e mandei a duas pessoas. Umas das pessoas conseguiu abrir normalmente, a outra não conseguiu abrir a planilha. Então eu retirei os códigos para ocultar o Excel, criei 1 botão na planilha para exibir o UserForm principal, e dois botões para rodar alguns códigos, porém, a pessoa ainda não consegue abrir a planilha. Segundo a pessoa, quando ela tenta abrir o arquivo da minha planilha dá uma mensagem de erro dizendo que o espaço em disco é insuficiente (vou disponibilizar a imagem no google drive); e quando a pessoa tenta abrir o Excel, e então abrir o meu arquivo, o Excel fica carregando eternamente e não abre nunca a planilha. Já aconteceu isso com alguém? Alguém sabe me dizer o porque? Vou disponibilizar a planilha no Google Drive para o caso de alguém sentir vontade de tentar abrir planilha. https://drive.google.com/drive/folders/1fYJ_Cht04R30R1RUbz-FCJgrZBBbebt3

Bom dia TEnho alguma experiencia em VBA e gostaria de saber se é dificil fazer o interface com o ERP Primavera Express, que acho que é a versao gratuita. a minha duvida é se existe algum tipo de limitaçao ness versao do Primavera no que diz respeito á utilizaçao de VBA ? Caso algum colega trabalhe com o Primavera, e tenha interesse em criar algumas rotinas de codigo para implementar no seu sistema, gostaria de participar, para dessa forma saber se é dificil esta tarefa Obrigado

Olá pessoal, bom dia Necessito de uma ajuda de você. Estou criando um formulário no word e em quatro campos desse formulário o usuário necessitará inseri quatro imagens, ou seja, uma imagem em cada campo do formulário. Estou tentando através do controle ActiveX (Imagem) fazer isso, gostaria de uma ajuda ou um tutorial, de como na hora que clicar sobre (imagem) direcione o usuário para a pasta meus documentos e que essa imagem quando inserida no formulário fique compactada. Seja que tem algum lugar pra baixar um modelo ? Desde já obrigado pela ajuda.

boas amigos necessitava de uma pequena ajuda para desbloquear... Então é o seguinte, access vba eu tenho de definir num form uma variável dependente de algumas selecções... if text.value = 12 then ST = "If Not HasValue(Forms!co.Tema) Or Not HasValue(Forms!co.cxlogin) Then" else ST = "If Not HasValue(Forms!co.Assunto) Or Not HasValue(Forms!co.Destino) Or Not HasValue(Forms!co.cxlogin) Then" end if depois necessito de integrar essa variável num if noutro lado ST 'aqui queria "injectar" o texto da variável else end if a variável ST foi declarada Option Compare Database public ST as string para poder chama-la de qualquer form ou sub... só não sei como dizer para "injectar" o texto...

como posso fazer um programa no visual basic com o ciclo for, com o design: 1º indique o número_________ 2º indique o numero de multiplos que quer somar___________ 3º Resultado__________

olá pessoal como posso fazer uma macro que ao clicar no botão ele me abrisse um livro de excel numa determinada localização depois copiasse desde a célula A1 ate H20 e me colasse os valores copiados noutro livro e por fim fechasse o livro que abriu não sei se me estou a fazer entender. Obrigado

Boa tarde ppl, O que aqui me trás é uma duvida basica, mas já dei voltas e voltas e não estou a conseguir resolver. Basicamente quero implemetar uma listbox que mediante a selecção do seu conteudo preencha um array com diferente conteudo. No exemplo que ponha seria suposto aparecer uma caixa de texto no entanto obtenho o erro "Run-time error '424': object required" Sub ListBox7_Change() With Listbox7 If .Selected(0) Then MsgBox ("ZeZeZeZe") End If End With End Sub

Bom Dia, Sendo novo no Portal e não conhecendo as regras do mesmo, espero por isso não estar a quebrar as regras mas gostaria de contactar com alguém com experiência em Access / VBA para desenvolvimento em Microsoft Access mas com base de dados em ambiente remoto ( Cloud Amazon ) para controle de produção da minha empresa. Já existe desenvolvimento feito por mim e a base de dados já existe, estando em funcionamento mas com "n" funcionalidades necessárias não implementadas, devido à minha limitação e desconhecimento do programa/linguagem. Eventuais interessados por favor enviem email para mario.ferreira.mails@gmail.com Aos administradores do forúm, caso este tópico seja "introsivo" as minhas desculpas e queiram por favor eliminar o mesmo. Obrigado

Conexão remota Excel 2013 entre dois arquivos do Excel. Guia Dados grupo Obter Dados Externos ícone Conexões Existentes. Aqui escolho o arquivo de origem e retorno como Relatório de tabela Dinâmica. O modo de retorna não importa, pois o incômodo é o mesmo. Atualizando o arquivo que recebe a conexão, o arquivo de origem só abre em modo de leitura, não permitindo edição. Pesquisas exaustivas pela internet não apresentam solução, inclusive de alterar na conexão: Mode=Share Deny Write para outra opção. Jet OLEDB:Database Locking Mode=1 resolveria a solução, mas ao alterar tanto quando faz a conexão ou depois de pronta, vola para zero. Alguma solução? E podem me informar se o Microsoft Query (esse sim não tem este tipo de problema) funciona no Excel 2013, Excel 2016 e Excel 365? O Microsoft Query está para ser descontinuado?

Boa tarde Tem uma folha em exel com referencias na coluna A. Preciso que uma macro me pesquise num formulario de uma pagina web e me devolva o ou os input values que o form devolveu . Sou muito novo nisto e não sei como o fazer, no entanto tenho um codigo que ja vai ter á pagina que prentendo, so preciso que ela me coloque pode ser numa folha nova na coluna A o valor de um input. Gostava que pesquisasse todas as referencias na qua estão na coluna A. O que prentendo da pagina é é o seguinte elemento document.getElementsByTagName("INPUT").value; document.getElementById("detailarticle") O codigo que tenho Sub Redirect() Dim IE As Object Dim doc As Object Set IE = CreateObject("InternetExplorer.Application") With IE .Visible = True .Navigate "http://00.000.0.00/CCDISP.HTM?WSYD_EVENT=CCCOMM13&CTCSES=3319461#ancre" Do Until .ReadyState = 4: DoEvents: Loop With .Document.forms("CCREFE11") .elements("INREFE").Value = Range("A2") .submit End With Do Until .ReadyState = 4: DoEvents: Loop Do While .Busy: DoEvents: Loop End With End Sub Alguem me pode dar uma ajuda por favor Obrigado

Boas, à muito que por aqui não vinha, mas a vida dá volta e tive necessidade de voltar a desenvolver uma pequena aplicação em VBA e tou com uma dúvida para a qual gostava de a opinião de alguém mais batido no assunto, fiz uma aplicação utilizando um Windows Forms e um dataset, algo simples, a questão é a seguinte, necessito saber como posso fazer um backup dessa aplicação para quando necessitar reinstala-la, repor os dados anteriormente lá gravados?? Apenas isso, agradeço desde já a possivel ajuda. Cumprimentos.

Boa tarde comunidade, Ando a tentar trabalhar com o VBA no Excel de modo a tentar aplicar esse conhecimento na minha tese de mestrado, mas estou com algumas dúvidas. Eu estou a tentar criar uma função em VBA que preencha células consoante um determinado valor. Na imagem seguinte tenho dois quadros, um com valores nos vértices e outro todo preenchido pelo valor 1. O quadro da esquerda, representa uma câmara de vigilância, que está na célula B1. No quadro da direita é suposto aparecer a área de cobertura dessa mesma câmara. A área da câmara ocupa 10 células. O código que tenho é o seguinte: Sub Limpar() Range("G5:J8") = "" End Sub Sub Executar() If Cells(5, "B").Value = 1 Then Preencher End Sub Sub Preencher() Dim contador As Integer contador = 10 Do While contador > 0 Range("G5:J8") = 1 contador = contador - 1 Loop End Sub E o seu resultado é este: Como podem ver a minha função preenche tudo, e o objectivo era só preencher 10 células. O que pretendia era algo parecido ao que está na imagem seguinte: Alguém sabe como fazer em VBA para no quadro da direita apresentar só o número de células preenchidas pela área da câmara? Que neste caso deveriam aparecer 10 células preenchidas. Eu sei que o meu código preenche o quadro todo, mas não era isso que eu estava a tentar, eu queria era preencher quadrícula a quadrícula até que perfizesse as 10 quadrículas correspondentes à área da câmara da célula B5. Se eu conseguir para uma câmara, provavelmente conseguirei para outras câmaras de áreas diferentes e colocadas em vértices diferentes. Obrigado para quem me ajudar.