Search the Community
Showing results for tags 'vba'.
-
ola, estou com dificulades e espero que alguem possa me ajudar, estou trabalhando com o primavera, e precisava criar alerta no VBA para o sistema, ( alertas quando o prazo de um documento, vencer, prazo de contratos, prazo de creditos). a funcionalidade de criacao de alertas que aparecem no sistema nao derao certo, entao pensei em criar a partir de codigos VBA, mas ai esta a dificuldade.
-
Boas,O meu problema é o seguinte, em excel, eu tenho uma tabela dinâmica com diversos dados, o que eu quero é que quando verificar que na coluna "nome" está vazio, envie um email para mim a informar. If IsNull (Nome) Or Nome = " " then ... EndIf Thanks
-
Variável para somar quantidade de horas trabalhada
Cyberlacs posted a topic in Visual Basic for Applications (VBA)
Amigos estou desenvolvendo uma rotina em VBA para uma planilha Excel e cheguei a um problemas em relação a somar horas, quando a variável totalHoras recebe valores como no exemplo totalHoras = 24:00 + 2:00 a variável imprime na célula ( 01/01/1900 02:00:00 ) gostaria de saber como solucionar este problema Já tentei formatar a célula com NumberFormat e não dá certo: totHora = totHora + calcHora wrLinha.Cells(lin, col + 2).NumberFormat = "hh:mm" wrLinha.Cells(lin, col + 2).Value = calcHora -
[Resolvido] Escrever para uma célula
João Garcia posted a topic in Visual Basic for Applications (VBA)
Boa tarde eu tenho o registo de matriculas de carros numa coluna, sob a forma: Viat. ##-##-XX. No programa, escreve-se apenas a matricula (##-##-XX) numa caixa de texto, visto que esta varia de carro para carro, e depois esta é adicionada a uma nova célula. No entanto não consigo adicionar o Viat. antes da matricula, sem o escrever na caixa de texto. Gostava de saber se há algum modo de adicionar automaticamente, na mesma célula, o Viat. sempre que é adicionada uma nova matricula (escrever dois textos diferentes para a mesma célula). obrigado -
Boas pessoal. Estou a iniciar-me em VBA, principalmente com os motores Primavera, e tenho 1 dúvida, se alguém me conseguir ajudar. "Aplicacao.BSO.Comercial.Vendas.AnulaDocumento" Alguém sabe como usar esta funcionalidade? Obrigado desde já, Cumpz
-
DRAG DROP ListBox/ListView escolher a linha do DROP
badjooras posted a topic in Visual Basic for Applications (VBA)
Boas Pessoal, sou novo por aqui, depois de muita pesquisa, não consigo encontrar informação relevante ao DRAG DROP em ListBox ou ListView que permita escolher a linha onde querem fazer o DROP. Vou tentar explicar melhor, no programa que estou a desenvolver, pretendo mover dados de uma lista para outra com a função DRAG DROP, mas pretendo que o item fique na linha onde deixo ficar o rato no DROP. Exemplo: A1 A2 B1 B2 C1 C2 D1 D2 E1 E2 F1 F2 G1 G2 Se "pegar" no item C1 e o largar entre C2 e D2 a list mude para: A1 -
Minimizar do formulário
Guilherme Marcone Ferreira posted a topic in Visual Basic for Applications (VBA)
Boa tarde a todos! Preciso saber o momento que o usuário clicou no minimizar do formulário. Como fazer isso? ATENÇÃO: não confundir com a propriedade WindowState que informa o status da janela Grato -
Boa tarde, alguém me pode ajudar, como anexar um documento gerado pela aplicação através de um botão de enviar email? Neste caso gera uma factura, ou seja a factura nº 1 e deve de ser anexa quando clico enviar email. A factura é guardada automaticamente na pasta de documentos. Obrigada Dora Gomes
-
[VB\MySQL] Um simples inserir dados
AndreVSerafim posted a topic in Visual Basic for Applications (VBA)
Boas malta, Alguém pode me ajudar o porque de estar a dar o erro MySqlException was unhandled? O SQL está tão simples como o código ser a chave primaria e configurado como varchar (100) assim como o campo nome e dia. Imports MySql.Data.MySqlClient Public Class conn Public VarConec As String Public Sub New() Dim servidor As String Dim usuario As String Dim password As String Dim basedados As String servidor = "localhost" usuario = "root" password = "" basedados = "teste" VarConec = "server=" & servidor & "; user id=" & usuario -
Estou usando a apostila do vb6 e nele consta um projeto de Biblioteca, agora travei na parte do fomulário do cadastro de livros, foi criado um combobox referente a tabela editora e categoria mas não estou conseguindo puxar, segue o código: Private Sub txtCodLivro_LostFocus() 'variável que será usada para manipular o Banco de Dados Dim cnnComando As New ADODB.Command 'variável que recebe os dados do Banco de Dados e Grava no BD de volta Dim rsSelecao As New ADODB.Recordset Dim vCod As Long Dim i As Integer On Error GoTo errSelecao 'caso ocorra erro vai pra outro comando abaixo
-
[Resolvido] Preciso de uma Ajuda Básica...
Prica posted a topic in Visual Basic for Applications (VBA)
Boa noite, Antes de mais não sei se estou a perguntar no sitio certo, mas aqui vai, eu sou aluno do 12ºano, tenho aplicações informáticas e neste período aprendi o básico dos básicos de Visual Basic (usamos a versão de 2010...), e como sinceramente gosto de aprender mais do que o professor ensina comecei a fazer uma calculadora do género da calculadora presente no windows 10, a parte do código em si, já o tenho pensado e não devo ter grandes problemas, mas num menu existente no programa em que abro dentro de um panel uma form ocorre algo que não consigo resolver... Como podem ver nas imag -
Apagar 1 unico valor da base de dados?
HIGKILLER posted a topic in Visual Basic for Applications (VBA)
Basicamente, 1 tabela, 5 campos, desejava apagar o 4º campo conforme conveniente, com = New OleDbCommand("Delete din From Cliente WHERE ID=@ID", con) con.Open() com.Parameters.AddWithValue("@ID", DataGridView1.Item(0, x).Value) com.ExecuteNonQuery() con.Close() -
Bom dia! Tenho um banco de dados com contactos na qual deve ser atualizado com novos contactos sempre que houver um evento. A contacto obtido no novo evento pode já está no banco de dados ou ter alterado alguma informação pessoal ou ser realmente informação nova. Para diferenciar quem está ou não, resolvi pesquisar pelo e-mail. O que pode acontecer: Se o e-mail não está na lista = pinta a rosa a linha do novo contacto que não está na lista. Se já existe o e-mail, digo para ele checar nome da pessoa, empresa e função. Se algumas das informações não são iguais, mando
-
Erro para MSGBOX de datagridview (string converter)
HIGKILLER posted a topic in Visual Basic for Applications (VBA)
Dim x = DataGridView1.CurrentRow.Index Dim u = DataGridView1.Item(3, x) Dim con As OleDbConnection Dim com As OleDbCommand con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Orlando\Desktop\family butchers\clientes.accdb") com = New OleDbCommand("SELECT mail into @z From Cliente WHERE ID = 11", con) MsgBox(com) Basicamente o que estou a tentar fazer é que uma celula do datagrid view, tentei ir buscar diretamente ao datagridview, agora tentei ir buscar a base de dados, o que esta la dentro é "500 libras de porco" esta definido como texto na base -
Private Sub din_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles din.Click Dim x = DataGridView1.CurrentRow.Index Dim y = DataGridView1.Item(1, x).Value Dim u = DataGridView1.Item(2, x).Value Dim z = DataGridView1.Item(3, x).Value nome.Text = y tele.Text = u mail.Text = z Dim con As OleDbConnection Dim com As OleDbCommand ' com = New OleDbCommand("insert into cliente (Nome, bi) values(@Nome,@bi)", con) con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Sour
-
Este é a função que tenho Public Function IsValidContrib(ByVal contrib As String) As Boolean Dim s As Long Dim i As Integer Dim checkDigit As Integer Dim dblDivisao As Integer IsValidContrib = False checkDigit = 0 dblDivisao = 0 If Len(contrib) = 9 And IsNumeric(contrib) = True Then If (Mid(contrib, 1, (1)) = 1 Or Mid(contrib, 1, (1)) = 2 Or Mid(contrib, 1, (1)) = 5 Or Mid(contrib, 1, (1)) = 6 Or Mid(contrib, 1, (1)) = 8 Or Mid(contrib, 1, (1)) = 9) Then For i = 1 To 8 checkDigit = checkDigit + (Mid(contrib, i, (1)) * (10 - i)) Next checkDigit = 11 -
-
Bom dia, Estou com dificuldades no código para a leitura de horas. É o seguinte, tenho uma coluna com várias horas e preciso de as ler. Por exemplo, <Coluna 11> 08:20:30 08:54:14 09:10:45 ... E preciso de algo deste genero: h_inicial = Format(Time, "08:00:00") h_final = Format(Time, "16:00:00") h1_inicial = Format(Time, "16:00:00") h1_final = Format(Time, "00:00:00") h2_inicial = Format(Time, "00:00:00") h2_final = Format(Time, "08:00:00") For i = 2 To lastrow If Cells(i, 11) > h_inicial And Cells(i, 11) <= h_final Then Cells(i
-
Bom dia pessoal, Estou neste momento a desenvolver a minha PAP que é um software de gestão para a biblioteca da minha escola. Criei o login e gostava de colocar uma mensagem após a entrada a dizer "Bem-vindo (e aparecer a seguir o nome que tinha sido colocado no nome de utilizador inserido no login)". Cumprimentos, Carlos Almeida.
-
Em VBA do Excel como é que se verifica se um array dinâmico do tipo string está vazio?
diogo_sousa posted a topic in Visual Basic for Applications (VBA)
Bom dia, Criei um Array Dinâmico do tipo string. Como é que eu posso verificar se o Array já tem valores ou ainda não tem valor nenhum? E como é que eu retiro os valores todos ao Array? Obrigado -
Fazer com que código funcione no Excel
José luis leal posted a topic in Visual Basic for Applications (VBA)
A todo o Pessoal do do Fórum um bom dia, um bom fim de semana Prolongado! O que me leva a novamente estar a chatear-vos é o seguinte, tenho um código que está num ficheiro access e que precisava colocar a funcionar no Excel. Dava para dar uma ajuda? desde já um muito obrigado e um bom fim de semana de Páscoa. Option Explicit Public Function DuracaoTarefa(dtInicio As Date, dtFim As Date) As Integer '.................................................................... ' Nome: DuracaoTarefa ' Entradas: dtInicio As Date ' dtFim As Date ' Saída: Integer (Minutos) ' Autor: Arvin Meyer ' Da -
Analise à amostragem para estudo de capabilidade?
Hugu posted a topic in Visual Basic for Applications (VBA)
Tenho uma amostragens de valores e procuro fazer um estudo de capabilidade, mas pretendia pegar na amostragem e procurar automaticamente (via script VBA ou alguma macro para o excell) de maneira a indicar quais as amostras que mais influenciam para uma má capabilidade? ou alguem me consegue explicar como conseguir perceber qual a amostragem que posso retirar do estudo da capabilidade? obrigado -
Bom dia, É possível criar um ciclo For i=3 To "encontrar linha formatada " ?? Cumprimentos
-
Mover dados da última coluna de cada linha - Excel
fana81 posted a topic in Visual Basic for Applications (VBA)
Olá a todos. Gostaria de obter ajuda, se for possível. Tenho uma lista em Excel com cerca de 300 linhas. Os dados foram importados de um PDF. Cada linha tem o nome completo da pessoa e à frente a classificação do teste. Isto tudo numa coluna apenas. Como o objetivo é ordenar pelo resultado obtido no teste fiz o seguinte: Separei os dados de cada linha, que estavam apenas numa coluna, em várias colunas cada uma delas contendo um nome. Acontece que como os nomes são de tamanhos diferentes, o valor da classificação aparece em colunas diferentes em cada linha. Pergunto qual a melhor solução -
Bom dia, Sei que não é o local indicado mas preciso de ajuda em relação à condição If no excel. Preciso do seguinte: - Se os valores da coluna forem inferiores a 300 (H5<300), quero "Menor"; - Se os valores estiverem entre 300(igual) e 340(igual) (300<=H5<=340), quero "Entre"; - Se os valores forem superiores a 340 (H5>340), quero "Mais". Já tentei de todas as maneiras e não consegui, alguma ajuda? Obrigada!
-
Multiplicar apostas num gerador tipo totoloto
noyus posted a topic in Visual Basic for Applications (VBA)
Boas a todos e desde já um obrigado pela futura ajuda, Estou a realizar um exercício em que consiste realizar um programa que envolve arrays onde tenho de gerar 5 números não repetitivos no género do totoloto. A minha dúvida é a seguinte: Tenho que fazer um multiplicador do nº de apostas que me permita realizar mais que uma aposta para me apresentar mais conjuntos de 5 números aleatórios. Ou seja, se fazer uma aposta, aparece-me 5 números numa textbox e 1 número definido como o número da sorte numa textbox à parte. O que pretendo é que, por exemplo, caso meto o valor do nº de apostas como "2
