Ir para o conteúdo

Pesquisar na Comunidade

A mostrar resultados para tags ''vba''.



Mais opções de pesquisa

  • Pesquisa por Tags

    Introduza as tags separadas por vírgulas.
  • Pesquisar por Autor

Tipo de Conteúdo


Fórum

  • Bem-vindos ao Portugal-a-Programar
    • Sugestões, Críticas ou Dúvidas relativas ao P@P
    • Acerca do P@P
  • Comunidade a Trabalhar
    • Wiki P@P
    • Apresentação de Projectos de Programação
    • Downloads
  • Revista PROGRAMAR
    • Revista PROGRAMAR
  • Desenvolvimento Geral
    • C
    • C++
    • Java
    • Haskell
    • Pascal
    • Python
    • Bases de Dados
    • Visual Basic Clássico
    • Visual Basic for Applications (VBA)
    • Dispositivos Móveis
    • Outras Linguagens
  • Desenvolvimento Orientado para Web
    • PHP
    • HTML
    • CSS
    • Javascript
    • Outras Linguagens de WebDevelopment
    • Desenvolvimento Web
  • Desenvolvimento .NET
    • C#
    • Visual Basic .NET
    • ASP.NET
    • WPF & SilverLight
  • Software e Sistemas Operativos
    • Software de Produtividade
    • Sistemas Operativos
    • SharePoint
    • Apresentação de Software
  • Informática Extra-Programação
    • Interfaces Visuais
    • Computação Gráfica
    • Algoritmia e Lógica
    • Segurança e Redes
    • Hardware
    • Electrónica
    • Automação Industrial
    • Dúvidas e Discussão de Programação
    • Notícias de Tecnologia
  • Outras Áreas
    • Matemática
    • Dúvidas Gerais
    • Discussão Geral
    • Eventos
    • Anúncios de Emprego
    • Tutoriais
    • Snippets / Armazém de Código
  • Arquivo Morto
    • Projectos Descontinuados
    • System Empires

Blogs

  • Blog dos Moderadores
  • Eventos
  • Notícias de Tecnologia
  • Blog do Staff
  • Revista PROGRAMAR
  • Projectos
  • Wiki

Categorias

  • Revista PROGRAMAR
  • Tutoriais
  • Textos Académicos
  • Exercícios Académicos
    • Exercícios c/ Solução
    • Exercícios s/ Solução
  • Bibliotecas e Aplicações
  • Outros

Procurar resultados em...

Pesquisar conteúdos que contêm...


Data de Publicação

  • Início

    Fim


Última Actualização

  • Início

    Fim


Filtrar por número de...

1280 resultados

  1. RafaelFranckilin

    Refresh no registro do windows

    Pessoal, eu estou fazendo algumas alterações no registro do windows e gostaria de saber como eu posso fazer o windows ler novamente o registro e aplicar as novas configurações. Agradeço desde já por qualquer ajuda.
  2. 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
  3. thalessperandio

    Erro ao editar cadastro

    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
  4. 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
  5. 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?
  6. Wellington Junior

    Copia apenas números

    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
  7. Ricardo Jorge A. Dias

    Caminho relativo

    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
  8. 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
  9. DiogoD.Oliveira

    Varias Páginas numa fatura

    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.
  10. 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
  11. Claudio Jesus

    Primavera (VBA - Impressão)

    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.
  12. 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
  13. 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
  14. 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.,
  15. DanielaSilva

    VBA

    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
  16. 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
  17. 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.
  18. 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!
  19. 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??
  20. 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.
  21. 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?
  22. 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.
  23. 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
  24. 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
  25. 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
×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.