Pesquisar na Comunidade
Mostrando resultados para as tags ''vba''.
Encontrado 244 registros
-
Olá pessoal! Gostaria de pedir ajuda para concluir um UserForm... Estou fazendo um controle de Entrada no estoque. Preciso que através do formulário os usuários façam a entrada e a saída das matérias primas no estoque, em suas respectivas posições no porta pallet. Para entrada de materiais criei : - ComboBox Posições (com as posições do porta pallet) - ListBox Itens -TextBox Qtde. - TextBox + SpinButton Pallets - TextBox Data e Hora - ComboBox Colaboradores - ComandButton OK - ComandButton Limpar - ComandButton Cancelar O meu problema: Preciso criar um código para que os dados preenchidos no formulário alimente a linha onde está a POSIÇÃO escolhida na ComboBox. Os códigos das posições estão em uma planilha de dados... Me Ajudem por favor! Gratidão!
-
Solução em biometria facial para desenvolvedor delphi7 ,Vb.Net e Access VBA Khronos Tecnologia - Software/Aplicativo e consultoria em desenvolvimento biométrico Saiba mais em http://geovanny-oliveira16.wix.com/khronostecnologia Skype:Giovanny0113
-
Olá a todos! Tenho um user form que no procedimento "initialize" carrega algumas informações do access e se não retornar ao menos um registro fecha o formulário usando "unload Me". O problema que depois de fechar o formulário eu uso "exit sub" pois logo abaixo tem os tratamentos de erros. Quando o copilador (não sei se é assim que chama) chega no comando "Exit Sub" ocorre o seguinte erro: Erro em tempo de execução '91': A variável do objeto ou variável do bloco 'With' não foi definida Observação: Mesmo não usando Exit Sub, o erro ocorre no End Sub; Minha sub tem que ser finalizada em algum momento, certo? Então o que faço para contornar isso? Segue o trecho do código: 'Verifica se há registros If consulta.EOF Then Do While Not consulta.EOF Me.CboCurso.AddItem (consulta("nome")) 'Move para o próximo registro consulta.MoveNext Loop Else 'Exibe mensagem msg = MsgBox("Não existe cursos cadastrados! Quer cadastrar?.", vbQuestion + vbYesNo, "Atenção!") 'Abrir formulário AdmCursos 'If msg = vbYes Then FrmAdmCursos.Show 'Fecha conexão Call Desconecta 'Fecha o form Unload Me End If 'Encerra a sub Exit Sub '****TRATAMENTOS DE ERROS*** '... End sub Quem puder ajudar agradeço desde já!
-
Boa tarde, Pessoal. Preciso de uma ajuda. Tenho uma Query que traz uma série de dados de clientes em uma planilha. Gostaria de pesquisar um código de cliente utilizando VBA e que me retorne vários registros que contenham o mesmo código de cliente. Por exemplo: Tenho uma lista de itens comprados por um mesmo cliente: Cliente Orçamento VIN OS Qtde Item Valor Peça Valor Total de Peça NF Peça Valor de Mão de Obra NF Mão de obra TOTAL 2965 2730 9321FJKJ4DD627724 20640 1 62908-08 R$ 480,02 R$ 480,02 12345 R$ 94,50 13456 R$ 574,52 2965 2726 9324LFGJ2CD429529 20919 1 71682-06A R$ 201,07 R$ 201,07 12346 R$ 52,50 12356 R$ 253,57 2970 2725 9324HM2J0DD402295 21150 1 68926-07 R$ 136,63 R$ 136,63 12567 R$ 31,50 12678 R$ 168,13 2970 2724 9321KL5J3DD022017 21172 1 66000065 R$ 632,74 R$ 632,74 13579 R$ 52,50 13578 R$ 685,24 Gostaria de inserir o número do Cliente e então me retornasse apenas as informações das compras desse cliente, por exemplo: Ao digitar em um Userform o cliente 2965, preencher uma planilha apenas com as informações deste cliente. PS. A query fica na mesma planilha, apenas em uma outra aba. Muito obrigado pela ajuda. Caso tenham alguma dúvida, me informar, por favor. Vinicius Viana
-
Boa Tarde Amigos, Estou com uma Macro no VBA que necessito colocar um campo de data automaticamente, Segue abaixo a programação da Macro: Sub Macro1() ' ' Macro1 Macro ' ' Dim MyOlapp As Object, MeuItem As Object Set MyOlapp = CreateObject("Outlook.Application") Set MeuItem = MyOlapp.CreateItem(olMailItem) With MeuItem .Bcc = ("filipe@xxx.com.br) .Subject = "Relatório x (Ref " & Format(Date, "dd/mmm/yy") & (")") .HTMLBody = "<font size=3 color=1F497D face=calibri>Bom Dia<br >" .HTMLBody = .HTMLBody & "<font size=3 color=1F497D face=calibri><br >xxxx DATA:" .HTMLBody = .HTMLBody & "<font size=3 color=1F497D face=calibri><br > <html><body><font size=3 color=red><a href=www.Relatório. DATA.xlsx>www.Relatório DATA.xlsx</a></font></body></html>" .Attachments.Add ActiveWorkbook.FullName .Display End With End Sub Sou iniciante em HTML e VBA, Necessito que o email no final das contas fique mais ou menos assim: Relatório xxx ( DATA DE HOJE) Link: www.relatório/(DATA DE HOJE).xls Procurei em alguns blogs e não achei uma maneira de fazer isso, Se puderem me ajudar agradecerei muito ! Obrigado
-
Como criar uma tela de loading no vba ? Tipo quando tiver uma ação demorada em vez de ver a ação o usuario ver uma tela de carregamento OBS : Excel 2010
-
Bom e o seguinte eu tenho de Excel/Vba que eu faço tabelas de futebol (simuladores) e tipo eu queria que eu tivesse uma tabela no meu PC que tivesse ligada ao meu site e as pessoas que Baixaram (Ilustração Abaixo, OBS: Fiz no paint por isso ficou uma porcaria) tipo assim a tabela esta atualizada ate a 10ª Rodada e já esta na 20ª, ai eu atualizo os jogos na tabela do meu PC, ela automaticamente atualiza a que esta no site, e todos que baixaram automaticamente também têm ela atualizada. OBS: Se tiver como explicar o máximo detalhadamente e explicativa seria uma boa, pois não manjo de HTML e só um pouco de VBA.
-
Olá a todos! Bem, eu tenho várias textbox, e dependendo do valor da célula R2, R3 e/ou suas subsequentes, eu vou preencher as textbox com determinadas cores. Se for 1, vai ser com a cor azul,se for 2, vai ser com um gradiente e, se for 3 vai ser com verde. Pra preencher com verde e azul eu consegui. Agora eu quero que preencha o gradiente com o azul e o verde, de cima pra baixo. Tá assim o código: Sub preenche() Dim i As Integer Dim y As Integer For y = 2012 To 2014 For i = 1 To 2 'Tabela de valores começa na célula R2 Select Case ActiveSheet.Cells(i + 1, 18).Value Case 1: ActiveSheet.Shapes("GOV_" & y & i).Fill.ForeColor.RGB = RGB(0, 51, 102) Case 2: ActiveSheet.Shapes("GOV_" & y & i).Fill.GradientColorType??? Case 3: ActiveSheet.Shapes("GOV_" & y & i).Fill.ForeColor.RGB = RGB(0, 122, 55) End Select Next i Next y End Sub Então, é isso. Só falta essa parte. Obrigado a todos!
-
Boa noite, Tenho esse código para caso essa condição seja verdadeira para uma determinada célula que copie a linha inteira e jogue para outra planilha. Porém, como na planilha que algumas células são compostas por fórmulas, os valores não são copiados, eles saem com um "#VALOR!". Como faço para copiar e colar valores neste caso? Sub CopyRows() Dim cell As Range Dim lastRow As Long, i As Long Dim FName As String Dim FPath As String Dim NewBook As Workbook lastRow = Range("A" & Rows.Count).End(xlUp).row i = 1 For Each cell In Sheets("SP").Range("T1:T" & lastRow) If cell.Value = "Cob" Or cell.Value = "Res" Then cell.EntireRow.Copy Sheets("SP - Cob e Res").Cells(i + 1, 1) i = i + 1 End If Obrigada!! :)
-
Bom glr e o seguinte eu quero que quando a celula A1 Por exemplo tenha o valor 1 o Userform 1 apareça, quando tiver 2 o Userfome 2 Apareça, e assim Sucessivamente... Mas eu quero que os Userforms apareçam assim que eu aperte enter ou clique em outra celula
-
Soluções em biometria para leitor Nitgen e Catracas Biométricas para desenvolvedores vb.net implementamos biometria em seu projeto de controle de ponto.. saiba mais sobre nossas soluções em http://geovanny-oliveira16.wix.com/khronostecnologia Acesse nosso canal no youtube e saiba mais sobre nosso módulo para desenvolvedor em biometria https://www.youtube.com/watch?v=YH318BNCV6E Giovanny Oliveira Skype:Giovanny 0113 Correio Eletrônico:geovanny_oliveira16@hotmail.com
-
Olá, sou iniciante em vba, preciso de uma ajuda, quero fazer um ap. para tocar um sinal sonoro em determinada hora, o melhor programar para tocar um som na hora programada. já tenho o sinal sonoro funcionando numa macro, agora preciso colocar isso pra funcionar num userform com 4 opções de horários diferentes, em cada horário programado tocar o som. já tenho a tela com a hora digital funcionando num lblHoraatual. Agradeço muito uma ajuda, também preciso saber se é melhor salvar em um banco ou até no excel mesmo as horas que desejo que toque o som.
-
Ola Sou novo no excell VBA Preciso de ocultar todas as linhas de uma tabela que tenham 6 colunas preenchidas com " " Tenho um botao para "inicio" e outro para "limpar vazias" Cpts MC
-
Apresentação Giovanny Oliveira - Soluções em Biometria para desenvolve
um tópico no fórum postou Giovanny Oliveira Apresentações
Olá Amigos,venho através deste fórum aumentar minha rede de contatos para possamos acrescentar novas oportunidades a todos nós. Sou Analista de sistemas com 4 anos de experiência em desenvolvimento utilizando as ferramentas Vba Access 2003 ou supoerior,Visual Basic , Visual Basic.net e Delphi7 para soluções em biometria e Catracas eletrônicas para desenvolvedores implementarem a seus projetos.Tenho grandes conhecimentos em queries SQL para Access , MySql, Firebird. e estou aberto a propostas e ajudar aqueles que necessitam de um up no conhecimento Obrigado a todos e agradeço o forum pela oportunidade. Giovanny Oliveira Analista de Sistemas Skype:Giovanny0113 http://geovanny-oliveira16.wix.com/khronostecnologia -
Olá pessoal. Sou novo aqui no fórum e mais ainda na área de VBA no Excel e estou com um pequeno problema para criar uma planilha do jeito que imagino só não tenho certeza se é possível realizar tudo através do Excel, mas vamos ao problema que me leva a pedir a ajuda de vocês. Eu utilizava um programa chamado Tag Comércio que possuía as funções de cadastro de clientes, cadastro de produtos e serviços, emissão de nota fiscal, PDV e outras funções, só que o programa recentemente está dando erro durante a instalação e não é apenas comigo com certeza. Decidi então criar meu próprio sistema de PDV (Parecido com o Tag Comércio), só que não necessito de tudo que o mesmo oferecia, quero apenas o básico, ou seja, o sistema de PDV frente de caixa em si, e por acreditar ser trabalhoso criar este vamos deixar de lado, quero criar um cadastro de clientes que possibilite realizar novos cadastros de clientes e produtos, excluir, realizar busca de clientes e produtos sem complicação. Eu criei uma planilha a qual coloquei as imagens abaixo para melhor entendimento: Na primeira que é a tela de login, está tudo funcionando perfeitamente Usuário (1), senha (2), Ok (3), e fechar (4) com código para validar usuário e senha e tudo. Na segunda tela também está perfeito só que até certo ponto que é o X da questão, na área (5) onde são inseridos os dados coloquei até o código no botão limpar (7) e no botão sair (6) mas não consigo achar em lugar nenhum o danado do código para o botão confirmar (8) para que ao terminar de inserir todos os dados na área (5) e clicar no mesmo os dados sejam salvos e apareça a mesma área novamente totalmente limpa e pronta para inserir novos dados. Está dando para entender? E uma outra dúvida é como e onde salvar esses dados inseridos na tela de cadastro de clientes pois eu fiz uma outra planilha no Excel (9) e salvei com o nome de dados e tipo planilha habilitada para macros como fiz com a planilha cadastro de clientes mas não sei se é este o caminho a seguir. Por favor, peço a gentileza de me auxiliarem neste caso na medida do possível e desde já agradeço a atenção.
-
Código VBA para JavaScript no Google Drive
uma questão postou rudinei soares Ajax, JavaScript, XML, DOM
Bom dia senhores, parabéns pela ajuda em vários tópicos discutidos. Aproveitando a oportunidade, gostaria de pedir ajuda para uma problema que surgiu quando eu tentei disponibilizar minha planilha excel no Google Drive, sendo. Uma planilha com lista de dados e uma outra com Macros VBA. A Planilha com macro é possível selecionar uma ou mais palavras de uma coluna determinada, ex: Planilha de dados: A1 - Cidades, A2 - São Paulo, A3 - Santos, etc; População: B1 - 256666, B2 - 1884948, B3 - 65498, etc; Cep: C1 - 13045-200, C3 - 15052-002, C3 - 22052-100, etc; Planilha Listagem Completa: Cidades: A1= São Paulo, etc; Cep: C1= 15052-002, 22052-100; Eu usei o seguinte código: Private Sub Worksheet_Change(ByVal Target As Range) Worksheets("Listagem Completa").Unprotect "1234" Dim rngDV As Range Dim oldVal As String Dim newVal As String Dim lUsed As Long If Target.Count > 1 Then GoTo exitHandler On Error Resume Next Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation) On Error GoTo exitHandler If rngDV Is Nothing Then GoTo exitHandler If Intersect(Target, rngDV) Is Nothing Then 'do nothing Else Application.EnableEvents = False newVal = Target.Value Application.Undo oldVal = Target.Value Target.Value = newVal If Target.Column = 25 _ Or Target.Column = 28 _ Or Target.Column = 30 _ Or Target.Column = 31 _ Or Target.Column = 32 _ Or Target.Column = 33 _ Or Target.Column = 34 Then If oldVal = "" Then 'do nothing Else If newVal = "" Then 'do nothing Else lUsed = InStr(1, oldVal, newVal) If lUsed > 0 Then If Right(oldVal, Len(newVal)) = newVal Then Target.Value = Left(oldVal, Len(oldVal) - Len(newVal) - 2) Else Target.Value = Replace(oldVal, newVal & ", ", "") End If Else Target.Value = oldVal _ & ", " & newVal End If End If End If End If End If exitHandler: Application.EnableEvents = True Worksheets("Listagem Completa").Protect "1234" End Sub Não sou programador, fiz isso com a ajuda de vocês, nos fóruns! Como poderiam me ajudar a transformar este código em javascript para o Google Drive? abraço e sucesso a todos! -
Com a seguinte linha de código eu consigo que apareça no meu datagrid as informações de vendas daquele dia em questão Private Sub btn_buscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_buscar.Click Dim strdia, strmes, strano, strdata As String strdia = Calendario.SelectionStart.Day strmes = Calendario.SelectionStart.Month strano = Calendario.SelectionStart.Year strdata = strdia + "/" + strmes + "/" + strano Me.DataTable1BindingSource.Filter = "DATA_DA_VENDA = '" + strdata + "'" Me.DataTable1TableAdapter.Fill(Me.CARLINHOS_BARDataSet.DataTable1) End Sub porém eu percebi que quando eu executo esse comando ele não me mostra realmente todas as vendas como vocês podem ver aqui nas imagens eu estou com 8 vendas efetuadas 7 delas no dia 06 porém quando vou puxar o relatório específico ele me retorna apenas 5 vendas do dia 06. Percebi que não aparecem as vendas que foram feitas pra uma mesma pessoa. e quando executo o comando... eu preciso que além de no meu form_relat_cliente ele mostre todas as vendas do período especificado, como também pesquisar por cliente. Porém não sei o que adicionar a minha linha de código. Será q vocês podem me ajudar ?
-
Olá boa noite, Eu estou com o seguinte projeto onde eu quero assim que selecionar o código do cliente e o código do produto e também selecionada a quantidade que o seja gravado na minha tabela de vendas já com o (valor*quantidade), por enquanto estou com essa linha de código Private Sub btn_vender_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_vender.Click Dim intdia, intmes, intano As Integer Dim intcodigodoproduto, intnomedocliente As Integer intdia = Calendario.SelectionStart.Day intmes = Calendario.SelectionStart.Month intano = Calendario.SelectionStart.Year Dim strquantidade, strvalorfinal As String Dim dtDataVenda As New System.DateTime(intano, intmes, intdia) intcodigodoproduto = DataGridPRODUTOS.CurrentRow.Cells(0).Value intnomedocliente = DataGridCLIENTES.CurrentRow.Cells(1).Value strquantidade = QUANTIDADENumericUpDown.Value strvalorfinal = VALORMaskedTextBox.Text Me.VendasTableAdapter1.Insert(dtDataVenda, intcodigodoproduto, intnomedocliente, strquantidade, strvalorfinal) MsgBox("Venda Efetuada!") Me.Close() End Sub End Sub porém não sei como fazer com que já seja mostrado esse valor final da compra e como fazer para que ele já seja inserido no meu vendastableadapter O que eu devo inserir a mais na linha de código para que quando meu numberUpDown for mudando o meu valor também mude ? Agradeço desde já. ..... Enquanto isso, eu mudei algumas linhas Private Sub btn_vender_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_vender.Click Dim intdia, intmes, intano As Integer Dim intcodigodoproduto, intnomedocliente As Integer intdia = Calendario.SelectionStart.Day intmes = Calendario.SelectionStart.Month intano = Calendario.SelectionStart.Year Dim strquantidade, strvalorfinal As Integer Dim dtDataVenda As New System.DateTime(intano, intmes, intdia) intcodigodoproduto = DataGridPRODUTOS.CurrentRow.Cells(0).Value intnomedocliente = DataGridCLIENTES.CurrentRow.Cells(0).Value strquantidade = QUANTIDADENumericUpDown.Value strvalorfinal = Val(VALOR_UNITÁRIOMaskedTextBox.Text) * Val(QUANTIDADENumericUpDown.Value) Me.VendasTableAdapter1.Insert(dtDataVenda, intcodigodoproduto, intnomedocliente, strquantidade, strvalorfinal) MsgBox("Venda Efetuada!") End Sub Agora eu já consigo fazer essa multiplicação mas não consigo ve-la sem fazer a venda acontecer, porém agora estou com o seguinte problema quando vou olhar na tabela de vendas o código do produto está no nome do cliente e o código do cliente esta no código do produto, estão invertidos kkk e na verdade nesse relatório eu quero o nome do cliente e não o código dele. será que alguém pode me ajudar ? PESSOAL KKKK CONSEGUI CORRIGIR ESSES ERROS Private Sub btn_vender_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_vender.Click Dim intdia, intmes, intano As Integer Dim strnomedocliente, strnomedoproduto As String intdia = Calendario.SelectionStart.Day intmes = Calendario.SelectionStart.Month intano = Calendario.SelectionStart.Year Dim intquantidade, intvalorfinal As Integer Dim dtDataVenda As New System.DateTime(intano, intmes, intdia) strnomedoproduto = DataGridPRODUTOS.CurrentRow.Cells(1).Value strnomedocliente = DataGridCLIENTES.CurrentRow.Cells(1).Value intquantidade = QUANTIDADENumericUpDown.Value intvalorfinal = Val(VALOR_UNITÁRIOMaskedTextBox.Text) * Val(QUANTIDADENumericUpDown.Value) Me.VendasTableAdapter1.Insert(dtDataVenda, strnomedocliente, strnomedoproduto, intquantidade, intvalorfinal) MsgBox("Venda Efetuada!") End Sub TROQUEI UNS INTEGER POR UNS STRING E ALGUMAS ORDENS E DEU TUDO CERTO MUITO OBRIGADO
-
Pessoal, Por favor poderiam me ajudar no código abaixo? DoCmd.GoToRecord acTable, "PC_Base", acNewRec DoCmd.RunCommand (acCmdSelectRecord) DoCmd.RunCommand acCmdPasteSpecial Não estou conseguindo colocar pra colar apenas texto! Sempre aparece uma caixa pra q eu escolha qual tipo de "Colar Especial" Agradeço desde já, João
