Search the Community
Showing results for tags 'vba'.
-
Origem: Aplicações que permitem usar VBA
-
boa tarde forum, á uns tempos tomei o gosto por criar um formulário excel vba , com ajuda da net, la consegui criar um ficheiro com formulário excel vba, mas agora queria me aventurar no ficheiro mas com Base dados Access. ja vi vários filmes, procurei na net e ate ja fiz download de alguns ficheiros com base de dados para tentar adaptar os códigos ao meu formulário, mas estou com erros que me estão a dar dores de cabeça passo a explicar: tinha uma conexão ao banco de dados simples, mas os vários ficheiros que fazia download vinham com outro código para conexão, por isso como nã
-
Exercício Escreva um algoritmo que leia um valor inicial A e uma razão R e imprima uma sequência em P.G. contendo n termos
-
Problemas com Pesquisar com filtros de pesquisa em VBA
Pedro_Gomes posted a topic in Visual Basic Clássico
Sou estudante de Programação e nunca tinha usado VBA e tenho de entregar um trabalho, mas nunca tive formação nesta linguagem, e estou a ter problemas no programa na parte de Pesquisar registros com filtros, já tentei ao máximo fazer seguindo tutoriais na internet, vídeo aulas e fórum mas está sempre a dar erro e não consigo resolver. Fico muito agradecido se alguém me conseguir ajudar. Link do Programa: https://drive.google.com/file/d/1qBprlBRX8eg8wRoK2_Yy_UZ3pfisrzWj/view?usp=sharing -
Bom dia. Estou a desenvolver um programa em Visual Basic 2019 com ligação a uma base de dados MySQL. Em fase de testes a base de dados é local e no código uso a seguinte linha: Public con As New MySqlConnection("server=localhost; userid=root; password=; database=vasco_gil; port=;") Na altura de entregar ao cliente, foi-me pedido para que os dados do servidor não podem ser introduzidos no código (por motivos de segurança), mas sim através de uma opção no ecrâ principal com uma área para definir os parâmetros de servidor, utilizador e password. Alguém pode ajudar-me com uma
-
Boa tarde, Gostaria de ajuda a obrigar que um utilizador quando preenche uma determinada célula tem que obrigatoriamente preencher outra. Exemplo: Se o utilizador disser que está inscrito tem que obrigatoriamente preencher a célula que corresponde à data de inscrição. Obrigado. Cumps
-
Dificuldade com a Estrutura For Each e If em uma macro Excel
Ariane posted a topic in Visual Basic for Applications (VBA)
Olá tenho uma tarefa, de macro em Excel, para resolver que me ocupa a cabeça já há vários dias... Já fiz e refiz , até achei um código nesta plataforma que me auxiliou muito. Porém, estou com um problema em uma estrutura de repetição nesse código. Vou deixar aqui o exercício, bem como a minha tentativa , na esperança que alguém me possa direcionar no caminho, sinto que estou perto mas alguma coisa falha.. //Exercício Fazer uma macro que possa garantir o preenchimento automático de um dado específico na planilha. Esse dado, que será preenchido automaticamente, depende de ou -
Como formatar número numa célula ativa?
Gleyson posted a topic in Visual Basic for Applications (VBA)
Olá, programadores em Excel VBA. Minha dúvida é como formatar uma célula ativa, sem que seja necessário escolher um período inteiro. A fórmula abaixo mostra isso, mas eu não quero um período inteiro fixo [A1:A10]. Eu preciso apenas que esse comando seja feito somente na célula ativa, independente onde a seleção esteja. Esse é o comando que preciso mudar: For Each cell In [A1:A10] If cell > "" Then numero = Str(cell.Value) cell.Activate ActiveCell.FormulaR1C1 = numero Else End If Next E aí? Tem como tirar a seleção [A1:A10] e trocar por algo do -
Aplicação para Word que permita escrever números por extenso?
N3on posted a topic in Visual Basic for Applications (VBA)
Boas pessoal, alguém sabe de uma aplicação para Word que permita escrever números por extenso? -
Não consigo filtrar Data AZ porque TxtBoxData transforma em texto
Gleyson posted a topic in Visual Basic for Applications (VBA)
Conforme a tabela abaixo, preciso Filtrar em ordem alfabética AZ a Coluna DATA. Mas o TxtBoxData sempre lança nas células datas em formato de texto e assim fica impossível o Excel filtrar a partir da data mais recente até a mais antiga. Não adianta formatar "dd/mm/yyyy" por que depois que são lançadas pelo TxtBoxData se transformam em texto (nunca em número). Como resolver esse problema? DATA 02/01/2001 05/04/2000 22/02/2002 22/08/1892 12/12/1500 -
Olá, programadores em VBA Excel! Minha necessidade existe quando preciso realizar uma somatória automática e flexível. Vejam que na TABELA 01 os valores são lançados aleatoriamente, mas na TABELA 02 ficam separados grupos por SETOR e somados automaticamente. Mas este é um modelo que eu não consegui fazer. Alguém pode me ajudar? TABELA 01 TAEBLA 02 NOME SETOR VENDA -------> NOME SETOR VENDA José Vendas 100,00 José Ve
-
Olá, programadores em VBA Excel! Minha necessidade existe quando preciso realizar uma somatória automática e flexível. Vejam que na TABELA 01 os valores são lançados aleatoriamente, mas na TABELA 02 ficam separados por SETOR e somados automaticamente. Mas este é um modelo que eu não consegui fazer. Alguém pode me ajudar? TABELA 01 TAEBLA 02 NOME SETOR VENDA -------> NOME SETOR VENDA José Vendas 100,00 José Vendas
-
Dúvida na utilização de "optionbutton" em userform
Alpha_civil posted a topic in Visual Basic for Applications (VBA)
Boa tarde. Sou recente no fórum e inexperiente no que diz respeito à programação utilizando VBA. Estou a criar uma "userform" que me permita inserir numa folha de Excel um determinado número de dados. A minha dúvida é: Criei dois "optionbutton" para a seguinte situação: Formato de uma placa: 0 quadrada ou 0 redonda O que eu pretendia era (caso seja possível) se eu seleccionar a opção quadrada, aparecer na userform duas labels e respetivas textbox para introduzir valores de largura e comprimento, caso seleccione redonda aparecer uma label e respetiva textbox para introdução do diâmetro. -
Boas pessoal, eu sou novo nestas andanças e precisava da vossa ajuda. Precisava de uma macro que me fizesse o copiar e o colar de uma zona defenida, copiar os valores do modulo 1 até ao modulo 2 e assim sucessivamente até ao modulo 6. eu ja consegui fazer uma macro que me consegue copiar e colar, so que ja defeni essa zona, se houver colocação de mais uma linha altera me tudo. A 1 modulo 1 2 1564 3 235 4 3468 5 modulo 2 6 567 7 809 cumprimentos Fabio Sá
-
Sou autodidata e curiosa por natureza, estou criando uma planilha de controle de estoque e movimentação porém toda com formulário, pois minha intenção é que a planilha fique invisível no final. Ela já está praticamente pronta, porém está acontecendo um problema que estou quebrando a cabeça, mas não consigo identificar o porque dele. Quando eu preencho o rowsource da ListBox de pesquisa de produtos. E vou rodar o Formulário Inicial de Estoque e Movimentação, ao clicar em Movimentar Estoque, acontece um erro de tempo de execução '-2147467259 (800004005)': Erro não especificado. Ao clicar
-
Comando para abrir documento do word
Paulo zuf posted a topic in Visual Basic for Applications (VBA)
Olá, num file excel, estou a criar uma macro para abrir um file word. Porém, o file word é um relatório que utiliza dados do excel e tem uma macro que é executada no início e que vai gerar um relatório por aluno. Quando executo o file word, a macro gera os relatórios, mas quando o inicio a partir do excel, ele não importa os dados para gerar os relatórios. O código que estou a utilizar é este (com pesquisa aqui no fórum): Sub word() Set wordapp = CreateObject("word.Application") wordapp.documents.Open "D:\\autoaval_sem_new_new.docm" wordapp.Visible = True En -
Imprimir dados da listview
Antonio Augusto Crovador posted a topic in Visual Basic for Applications (VBA)
boa tarde amigos, estou tentando imprimir mais não estou tendo exito, alguem pode ajudar-me ? Function Imprimir() If lv.ListItems.Count = 0 Then MsgBox "Não há dados para ser impresso.", vbInformation, "AVISO" Else Dim i%, LVWidth%, NewTab%, j% Dim itmX As ListItem Dim ContaLinha% LVWidth = 0 For i = 1 To lv.ColumnHeaders.Count LVWidth = LVWidth + lv.ColumnHeaders(i).Width Next NewTab = 0 'imprime o cabeçalho For i = 1 To lv.ColumnHeaders.Count NewTab = NewTab + CInt(lv.ColumnHeaders(i).Width * Printer.ScaleWidth / LVWidth) Pri -
Bom dia! Pessoal, preciso de ajudar nesse formato de carregamento. as linha 11, 12 e 13 preciso que seja no formato de número, porem está carregando como texto o que impede de formulas, alguém consegue ajudar? .Cells(linha, 1) = Format(Sheets(I).Cells(Lin, 1), "DD/MM/YYYY") .Cells(linha, 2) = Sheets(I).Cells(Lin, 2) .Cells(linha, 3) = Sheets(I).Cells(Lin, 3) .Cells(linha, 4) = Sheets(I).Cells(Lin, 4) .Cells(linha, 5) = Sheets(I).Cells(Lin, 5) .Cells(linha, 6) = Sheets(I).Cells(Lin, 6) .Cells(linha, 7) = Sheets(I).Cells(Lin, 7) .Cells(linha, 8) = Sheets(I).Cells(Lin, 8) .Cells(lin
-
Boa tarde, Tenho 1 tabela em access na qual tem 2 campos, num tem o ID e no outro nomes ID Nomes 1 Ana 2 Maria 1 Silvia 2 Cristina Queria que ficasse assim ID Nomes 1 Ana, Silvia 2 Maria, Cristina Alguém pode-me ajudar arranjar q solução. Podem dar-me informação de quais campos deveriam constar? Public Function ConcatRelated(strField As String, _ strTable As String, _ Optional strWhere As String, _ Optional strOrder
-
Run-time Error -2147417848 (80010108)
PCRISPIM posted a topic in Visual Basic for Applications (VBA)
Olá! Pretendo que ao colar um valor na célula A2 a célula A3 assuma a data do sistema, e assim sucessivamente ao longo de todas as duas colunas. Ao tentar colocar este pequeno código numa folha de Excel: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row >= 2 Then Cells(Target.Row, 2) = Data End If End Sub Surge-me sempre o erro de: Run-Time Error -2147417848 (80010108) Uma das soluções indicadas que descobri é o "congelar/fixar" umas linhas, mas não resultou. Obrigado desde já. (URL Imagem/erro:https://www.dropbox.com/s/nsklvq -
Conexão SQL - ConnectionTimeout e CommandTimeout
paulosemblano posted a topic in Visual Basic for Applications (VBA)
No Excel faço uma conexão SQL em uma pasta de trabalho com outra pasta de trabalho, conforme código abaixo. Antes verifico se o arquivo existe ou se está aberto em rede. Minha pergunta é: como e onde utilizo as propriedades ConnectionTimeout e CommandTimeout? Se a conexão cair antes do tempo, como faço para verificar e onde insiro a verificação? E se preciso verificar, antes de abrir a conexão, se a mesma está em aberto, pois outras pastas de trabalho também retornam via SQL os dados da mesma pasta de trabalho de origem: fiquei na dúvida se a conexão para os dados de origem -
Erro a passar código de Visual Basic 2019 para Visual Basic 2010
Tomas Duarte posted a topic in Visual Basic for Applications (VBA)
Ola, alguém me poderia ajudar estou a passar um programa de visual Basic 2019 para Visual Basic 2010 Criei uma class e coloquei la dentro um modulo e está me a dar erro no seguinte codigo: Dim bs As New BindingSource bs.DataSource = dtFATURA bs.Filter = "ID_ENTREGA =" & FATURA xlivro.Range("B5").Value = FATURA xlivro.Range("B6").Value = DATA xlivro.Range("B8").Value = CLIENTE xlivro.Range("B7").Value = MORADA For Each view As DataRowView In bs Dim row = view.Row CODIGO = row("CODIGO") -
VBA Excel Aceder Ficheiros DBF
FernandoPereira posted a topic in Visual Basic for Applications (VBA)
Boa noite, Tenho ficheiros Excel com macros que acedem a ficheiros DBF para obter informação. Para isso utilizo o OLEDB do Visual Fox Pro. Mas não funciona nas versões 64 bits. E ainda não arranjei solução. Alguém sabe como posso, a partir de um Excel, ligar a ficheiros DBF em 64 bits? -
Colorir Células Automáticamente + Contar Células Coloridas
Filipe Ferreira posted a topic in Visual Basic for Applications (VBA)
Caros Colegas, Desde já parabéns pelo vosso excelente forum. Preciso de uma ajuda de excel se for possível sff. - Tenho um Excel que tem uma Lista de Nomes + 12 Células com Números, do lado direito tem mais uma tabela com os números que saem por semana. https://ibb.co/7gvn5Nv 1º A Ideia aqui, era, sempre que eu introduzisse na tabela direita determinados números, a tabela do lado esquerdo vai ficando colorida se em cada linha tiver o número correspondente. 2º Numa coluna ao lado dos 12 Número chamada "Contagem", ter a contagem das células que estão a cor, ou seja, se -
Não consigo executar o msgbox
luam das chagas soares posted a topic in Visual Basic for Applications (VBA)
fala galera sou novo aqui , nao entendo muito sobre o VBA no exel mas estou com um problema nao cosigo fazer o msgbox da minha planilha disparar quando um valor de uma celula é maior do que a outra parametros Sub alerta() If Range("T3").Value >= Range("N3").Value Then MsgBox "mensagem de teste", vbExclamation, "ALERTA" Else End If End Sub mas ela nao executa, e nem menos dispara quando o valor da celula T3 é maior ou igual ao valor da celula N3 me ajudem por gentileza, nao consegui resolver esse problema