Jump to content

Search the Community

Showing results for tags 'vba'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Q&A Desenvolvimento
    • Perguntas e respostas rápidas
  • Desenvolvimento e Banco de Dados
    • HTML e CSS
    • Java
    • Javascript
    • .NET
    • PHP
    • Python
    • Ruby
    • Mobile
    • Ambientes de Desenvolvimento
    • Arquitetura e Métodos Ágeis
    • Banco de Dados
    • DevOps
    • Desenvolvimento de Games
    • E-Commerce e Pagamentos Online
    • SEO e Otimizações
    • WordPress
    • Algoritmos & Outras Tecnologias
  • Design e Produto
    • Fotografia
    • Photoshop
    • Design de interfaces e UX
    • Edição/Produção de Vídeos
    • Marketing Online
    • Desenho, Ilustração e 3D
  • Entretenimento e uso pessoal
    • Geral
    • Segurança & Malwares
    • Gadgets e wearable
    • Softwares e Apps
    • Entretenimento

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


Google+


Hangouts


Skype


Twitter


deviantART


Github


Flickr


LinkedIn


Pinterest


Facebook


Site Pessoal


Localização


Interesses

Found 25 results

  1. Prezados,boa noite!Me ajudem, por favor.Tenho que lançar diversos dados em uma página da receita federal.nesta página, há formulários que devem ser preenchidos de acordo com o que se pede.São 3 páginas, e nelas são solicitados dados distintas uma das outras.tenho uma planilha no Excel, onde consta todos esses dados, totalmente organizados.Eu faço um trabalho de quase 3 horas só para copiar estes dados da planilha do excel (CTRL + C) e enviar para estes formularios (CTRL+V).(São diversos clientes, cada cliente tem x operações, cada operação tem que ser lançada nessa página, gerando diversos lançamentos no dia a dia).Vocês podem me ajudar a criar um macro para automatizar isso?Eu já vi um na internet, que entra no site dos correios, faz uma consulta e dentro dessa consulta, ele resgata alguns dados e lança na planilha do excel.mas não consegui adapta-lo do modo que eu quero.. pois não entendi como funciona o código.não quero lançar nada do navegador para o excel, e sim do excel para o navegador.assim como também, ele deve apertar em botões na página. (avançar, para trocar de página).eu posso pagar , como posso agradecer. =)
  2. Preciso montar um sistema para geração automática de carteirinha para membros de um clube de benefícios. Alguém já tem alguma codificação pronta para isso? Ou então sabe como fazer?
  3. Sou novato em access e vba. Estou utilizando uma textbox e gostaria de colar vários nomes na textbox e ao clicar no botão salvar gostaria que fosse inserido todos os valores na tabela, sendo cada nome como um registro, ou seja, incluir em lote ao invés de um por um. Se existir outra forma diferente da textbox também é válido. Tal propósito é devido um sistema de novos colaboradores que tenho que criar. Já criei 80%, mas está faltando essa parte, uma vez que, tentei de várias formas mas não consegui e estou precisando muito dessa ajuda. Tentei inserir a imagem do código que eu fiz, mas não foi possível devido ao tamanho. Desde já agradeço.
  4. Boa tarde colegas ! Estou quebrando a cabeça com um job para tratamento de logradouros. Segue o raciocínio: Tenho uma lista com todos os endereços do estado de São Paulo, onde os mesmos são extraídos da seguinte forma: Exemplo: AL-AFONSO SCHMIDT/CDM:ED. SOPHIS SANTANA_COM PRUMADA/BLC:A-555-AP - Apartamento: 61 A AL-ANAPURUS/EDI:BOULEVARD/BLC:A-777-AP - Apartamento: 131 AL-ARAPANES/EDI:CDOE,6-5ºANDAR-309-AP - Apartamento: 42 AL-ARAPANES/EDI:COND.ED.MOEMA DUPLEX LIFE-1142-AP - Apartamento: 102 AL-ARAPANES/EDI:COND.ED.MOEMA DUPLEX LIFE-1142-AP - Apartamento: 42 AL-ARAPANES/EDI:PARC BRUMENADI-982-AP - Apartamento: 191 AL-BARROS/EDI:PERVAL-186-AP - Apartamento: 1601 AL-BARROS/EDI:PERVAL-186-BL - Blocos: B AP - Apartamento: 1302 AL-CAETANO,S/CDM:ED. GIARDINO_CDOE_1_ANDAR_11 A 13-165-AP - Apartamento: 63 AL-CAETANO,S/EDI:ESPLENDOR-1234-AP - Apartamento: 71 AL-CAETANO,S/EDI:MAGENTA I_CDOE_1_ANDAR_7 A 10-2575-AP - Apartamento: 94 AL-CALCUTA-195-AP - Apartamento: 02 AL-CAMPESTRE-728-CS - Casa: 1 AL-CASA BRANCA/CDM:BRISTOL-851-CJ - Conjunto: 11 AN - Andar: 01 AL-CASA BRANCA/CDM:SAINT SIMON-667-AP - Apartamento: 11 Notem que os casos "não tem um padrão" (até tem por tipo de residencia). Utilizei inúmeras postagens aqui do fórum e consegui solucionar os casos para residencias (padrão TIPO_LOG;LOG;COMPL;NUM), no entanto as formulas e soluções aqui indicadas por vocês "param" na primeira sequencia numérica, entretanto para a maioria dos casos, o texto continua com letras, números e caracteres. Segue o padrão final que preciso chegar. Exemplo: AL-AFONSO SCHMIDT/CDM:ED. SOPHIS SANTANA_COM PRUMADA/BLC:A-555-AP - Apartamento: 61 A Resultado Tratado: AFONSO SCHMIDT 555 Desde de já muito obrigado pelos retornos que certamente virão.
  5. Bom dia pessoal. Não sei muito sobre VBA, por isso estou tendo problemas com alguns códigos. Preciso copiar a cada linha da PLAN 1 para a PLAN 2, se repetindo conforme a quantidade descrita do lado de cada linha. Alguém sabe e pode me ajudar nisso. Desde já agradeço. Abraços
  6. raffrenan

    EXCEL + VBA [ LISTVIEW ]

    E ae galera, seguinte, estou desenvolvendo um sistema em vba no excel para a empresa que trabalho, porém estou utilizando um sistema de consulta com listview, onde ele busca do banco de dados, porém preciso que esses dados sejam mostrados em uma textbox específica, porém não estou conseguindo, segue o código: Private Sub Btn_Consulta_Click() Dim strSql As String ID = Me.TxtConsulta Set rs = New ADODB.Recordset strSql = "SELECT ID_Monitor AS [Código], Nome AS [Nome do Operador]," strSql = strSql & " * FROM Monitores WHERE ID_Monitor LIKE '" & ID & "'" rs.Open strSql, MiConexao On Error Resume Next Me.Lista.ListItems.Clear With Me.Lista .View = lvwReport .Gridlines = True .FullRowSelect = True .ColumnHeaders.Clear For i = 0 To rs.Fields.Count - 1 .ColumnHeaders.Add i + 1, , VBA.UCase(rs(i).Name) Next i End With While Not rs.EOF Set Lrst = Me.Lista.ListItems.Add(Text:=rs(0)) Lrst.SubItems(1) = rs(1) Lrst.SubItems(2) = rs(2) Lrst.SubItems(3) = rs(3) Lrst.SubItems(4) = rs(4) Lrst.SubItems(5) = rs(5) Lrst.SubItems(6) = rs(6) rs.MoveNext Wend Me.TxtConsulta = "" Me.TxtConsulta.SetFocus End Sub Private Sub Lista_ItemClick(ByVal Item As MSComctlLib.ListItem) Dim Linha As Variant Linha = Me.Lista.List.Index Me.TxtNomeView = Me.Lista.List(Linha, 3) End Sub Private Sub UserForm_Initialize() Call Conecta End Sub Lembrando que ele consulta normalmente e mostra na listview, porém quando eu clico em uma opção da lista ele retorna erro.
  7. lintemani

    como converter vba para javascript

    Sub mudar() Dim empreend, nome_emp, nome_cont As String Sheets("Plan2").Select Range("H16").Select empreend = ActiveCell nome_emp = ActiveCell.Offset(1, 1) nome_cont = ActiveCell.Offset(1, 2) Sheets("Plan1").Select Range("E6").Select Do Until ActiveCell = empreend ActiveCell.Offset(1, 0).Select Loop ActiveCell.Offset(0, 1) = nome_emp ActiveCell.Offset(0, 2) = nome_cont End Sub
  8. headway123

    Excel invertendo DATA

    Olá,Por gentileza, estou com o seguinte problema e não consigo encontrar a solução.Ao preencher com a data no UserForm, o Excel inverte o DIA, pelo MÊS, em qualquer data anterior ao dia 12.Já mudei a formatação de data do Excel para Portugues, Ingles, e também não deu certo.Segue os dois códigos que utilizo.If Len(TxtProximoContato.Text) = 2 ThenTxtProximoContato = TxtProximoContato + "/"End IfIf Len(TxtProximoContato.Text) = 5 ThenTxtProximoContato = TxtProximoContato + "/"End IfTxtProximoContato.MaxLength = 11 '10/10/2014Select Case KeyAsciiCase 8 'Aceita o BACK SPACECase 13: SendKeys "{TAB}" 'Emula o TABCase 48 To 57If TxtProximoContato.SelStart = 2 Then TxtProximoContato.SelText = "/"If TxtProximoContato.SelStart = 5 Then TxtProximoContato.SelText = "/"Case Else: KeyAscii = 0 'Ignora os outros caracteresEnd SelectTenho outro TextBox 'Date' que registra a data atual para cadastro, que as vezes também ocorre essa inversão.Tentei de várias formas e não consegui resolver.Por favor, se alguém souber resolver isso eu agradeço muito!
  9. mpsouzaa

    Vlookup no Listview

    Eu tenho 2 Planilhas. A primeira DBCLIENTES com CodCliente, Nome e Telefone dos clientes e a segunda DBPEDIDOS com CodPedido, CodCliente, ValorTotal eu preciso fazer com que a listview carregue: codpedido | codcliente | nome do cliente | valor total já tentei colocar um vlookup quando carrego a listview mas dá erro e não sei outra forma de fazer. Se alguém puder me ajudar serei eternamente grato
  10. Fala galera, to com uma dúvida que tá me fazendo coçar a cabeça. Talvez seja muito simples de resolver. Eu fiz este código para que, ao selecionar uma linha na ListView1 ele adicione a palavra "PAGO" na linha selecionada na coluna "N" da planilha "DBPEDIDOS" e está funcionando certo, mas só funciona quando tenho apenas 1 linha selecionada. For i = Listview1.ListItems.Count To 1 Step -1 If Listview1.ListItems(i).Selected = True Then Dim ID As Variant ID = Listview1.ListItems.Item(i) Listview1.ListItems.Remove i Plan6.Range("A2").Select With Worksheets("DBPEDIDOS").Range("A:A") Set C = .Find(ID, LookIn:=xlValues, lookat:=xlPart) If Not C Is Nothing Then C.Activate ActiveCell.Offset(0, 13).Value = "PAGO" End If End With End If Next i O que eu quero fazer é que ele insira a palavra "PAGO" em todas as linhas caso eu selecione mais de uma na listview. Se alguém puder dar uma força agradeço demais.
  11. Olá! Estou criando macros em vba no excel mas quando tento gravar não grava eu perco o trabalho, quando entro novamente na planilha e procuro pelas macros criadas elas não existem. Dá a seguinte mensagem que segue abaixo: Os recursos a seguir não podem ser salvos em pastas de trabalho sem macro: .Projeto do VB Para salvar um arquivo com esses recursos, clique em Não e escolha um tipo de arquivo habilitado para macro na lista Tipo de Arquivo. Para continuar salvando como pasta de trabalho sem macro, clique em Sim. Já tentei Não e Sim e o resultado é o mesmo.
  12. Pessoal, bom dia. Estou tentando somar alguns valores com casas decimais que é resultado de cálculo de juros para uma textbox. Consegui fazer conforme abaixo, porém, o resultado não está considerando os valores após a virgula. Por gentileza, alguém poderia me ajudar? Obrigado! Dim Vl1 As Double Dim Vl2 As Double Dim Vl3 As Double Dim Vl4 As Double Dim Vl5 As Double Dim Vl6 As Double Dim vl7 As Double Dim vl8 As Double Dim Soma As Double Vl1 = val(TextBox46.text) Vl2 = val(TextBox47.text) Vl3 = val(TextBox48.text) Vl4 = val(TextBox49.text) Vl5 = val(TextBox50.text) Vl6 = val(TextBox51.text) vl7 = val(TextBox52.text) vl8 = val(TextBox53.text) Soma = Vl1 + Vl2 + Vl3 + Vl4 + Vl5 + Vl6 + vl7 + vl8 TextBox56.Value = Soma
  13. Mlfm

    URL com variação

    Pessoal, sou nova com vba e estou com uma dificuldade. Tenho uma macro, que acessa o site e aguarda por uma url após algumas informações de dados. Essa url era fixa, porém passou a receber um id (id muda a cada solicitação) após essa informação de dados. Com isso o processo já não funciona mais. Como faço para ele esperar essa próxima url e entender que a partir dela buscar o que preciso no conteúdo? Estou usando Do While objIE.LocationURL <> "" 'url que estou esperando Loop
  14. Ola pessoa, Eu trabalho em um local onde chegam solicitações de clientes através de um sistema e eu cadastro estas solicitações em outro sistema utilizando o excel da seguinte forma: A solicitação chega. Eu coleto os dados incluo numa planilha de acordo com os dados (data de abertura, número de protocolo, descrição etc) consolido tudo e importo para o outro sistema. O que eu estou tentando fazer é: Acessar o primeiro sistema, buscar pelo número de protocolo (que já esta numa planilha) a solicitação, copiar os dados da solicitação e colar nos campos determinados. Este passo esta automatizado sem problemas. O que eu preciso é repetir a macro passando para o número de procolo da linha abaixo (ex A2) e colando também os dados coletados na mesma linha em outras coluas (B2, C2 etc) até terminar a lista. Alguém pode me ajudar? Vlw!
  15. Estou fazendo um jogo, no qual da erro quando vou inserir o nome dos jogadores, deêm uma olhada ai pra mim Private Sub BtnEntrar_Click() Primeiro = TxtPrimeiro.Text Segundo = TxtSegundo.Text Unload Me FrmJogo.Show End Sub Private Sub BtnSair_Click() End End Sub Private Sub TxtPrimeiro_Change() If TxtPrimeiro.Text <> "" And TxtSegundo.Text <> "" Then <<<<<<<------------- O erro acusa aqui BtnEntrar.Enabled = True Else BtnEntrar.Enabled = False End If End Sub Private Sub txtSegundo_change() If TxtSegundo.Text <> "" And TxtPrimeiro.Text <> "" Then BtnEntrar.Enabled = True Else BtnEntrar.Enabled = False End If End Sub OBS = O erro é run-time error '424' object required
  16. Vinicius Nascimento Vieira

    Aprender VBA

    Galera, boa noite. Necessito saber como consigo aprender VBA para começar a criar minhas próprias macros, pois atualmente estou sendo submetido a automatizar as planilhas da minha empresa, onde que para isso estou buscando a automatização pelo VBA. Pensei em comprar os livros do Mr.Excel (VBA para leigos, Macros e VBA 2016...), porém não sei se vale a pena. No momento estou assistindo vídeo aulas no YouTube, mas queria ir além, pois estou com duvidas básicas, principalmente de como montar as estruturas e entender quando utilizar cada variável e seus códigos. Toda ajuda será bem vinda!!! Grato!
  17. Eu não tenho muita experiência no desenvolver um código VBA. Estou tentandocriar um DataBase, mas está indo totalmente muito bem.Os dados que eu preciso já está no arquivo do excelEu estu tentando atualizar a lista, adicionar, excluir pessoasou itens, mas está indo tudo errado ele nao adiciona ou muda nenhum dados da planilhaO botão (pesquisa, adicionar e outros funcionam,mas não fazem a ação corretaEu não sei o que eu fiz de erradodesde ja agardeco pela ajuda Option Explicit Dim blnNew As Boolean Dim TRows, i As Long Private Sub AddNew_Click() blnNew = True TextVendor.Text = "" TextPON.Text = "" TextPartNo.Text = "" TextSN.Text = "" TextItemCondition.Text = "" TextDescription.Text = "" TextPOP.Text = "" TextDR.Text = "" CloseButton.Caption = "Cancel" SaveButton.Enabled = False DeleteButton.Enabled = False End Sub Private Sub CloseButton_Click() If CloseButton.Caption = "Close" Then Unload Me Else CloseButton.Caption = "Close" AddNew.Enabled = True DeleteButton.Enabled = True End If 'If Trim(TextVendor.Text) = "" Then 'MsgBox "Enter Vendor Name", vbCritical, "Save" 'End If 'Call prSave End Sub Private Sub DeleteButton_Click() TRows = Worksheets("Inventory Assets").Range("A1").CurrentRegion.Rows.Count Dim strDel strDel = MsgBox("Delete ?", vbYesNo, "Delete") If strDel = vbYes Then For i = 2 To TRows If Trim(Worksheets("Inventory Assets").Cells(i, 1).Value) = Trim(VendorSelect.Text) Then 'Sheet1.Range(i & ":" & i).Delete Worksheets("Inventory Assets").Range(i & ":" & i).Delete TextVendor.Text = "" TextPON.Text = "" TextPartNo.Text = "" TextSN.Text = "" TextItemCondition.Text = "" TextDescription.Text = "" TextPOP.Text = "" TextDR.Text = "" Call ComboBoxFill Exit For End If Next i If Trim(VendorSelect.Text) = "" Then SaveButton.Enabled = False DeleteButton.Enabled = False Else SaveButton.Enabled = True DeleteButton.Enabled = True End If ' If Trim(PON.Text) = "" Then ' cmdSave.Enabled = False ' cmdDelete.Enabled = False ' Else ' cmdSave.Enabled = True ' cmdDelete.Enabled = True ' End If ' If Trim(PartNoSelect.Text) = "" Then ' cmdSave.Enabled = False ' cmdDelete.Enabled = False ' Else ' cmdSave.Enabled = True ' cmdDelete.Enabled = True ' End If ' If Trim(SNSelect.Text) = "" Then ' cmdSave.Enabled = False ' cmdDelete.Enabled = False ' Else ' cmdSave.Enabled = True ' cmdDelete.Enabled = True ' End If ' If Trim(ItemCondtionSelect.Text) = "" Then ' cmdSave.Enabled = False ' cmdDelete.Enabled = False ' Else ' cmdSave.Enabled = True ' cmdDelete.Enabled = True ' End If ' If Trim(DescriptionSelect.Text) = "" Then ' cmdSave.Enabled = False ' cmdDelete.Enabled = False ' Else ' cmdSave.Enabled = True ' cmdDelete.Enabled = True ' End If ' If Trim(POPSelect.Text) = "" Then ' cmdSave.Enabled = False ' cmdDelete.Enabled = False ' Else ' cmdSave.Enabled = True ' cmdDelete.Enabled = True ' End If ' If Trim(DRSelect.Text) = "" Then ' cmdSave.Enabled = False ' cmdDelete.Enabled = False ' Else ' cmdSave.Enabled = True ' cmdDelete.Enabled = True ' End If End If End Sub Private Sub SaveButton_Click() If Trim(TextVendor.Text) = "" Then MsgBox "Enter Vendor Name", vbCritical, "Save" End If Call prSave End Sub Private Sub SearchButton_Click() blnNew = False TextVendor.Text = "" TextPON.Text = "" TextPartNo.Text = "" TextSN.Text = "" TextItemCondition.Text = "" TextDescription.Text = "" TextPOP.Text = "" TextDR.Text = "" TRows = Worksheets("Inventory Assets").Range("A3").CurrentRegion.Rows.Count For i = 3 To TRows If Val(Trim(Worksheets("Inventory Assets").Cells(i, 1).Value)) = Val(Trim(VendorSelect.Text)) Then TextVendor.Text = Worksheets("Inventory Assets").Cells(i, 1).Value TextPON.Text = Worksheets("Inventory Assets").Cells(i, 2).Value TextPartNo.Text = Worksheets("Inventory Assets").Cells(i, 3).Value TextSN.Text = Worksheets("Inventory Assets").Cells(i, 4).Value TextItemCondition.Text = Worksheets("Inventory Assets").Cells(i, 5).Value TextDescription.Text = Worksheets("Inventory Assets").Cells(i, 6).Value TextPOP.Text = Worksheets("Inventory Assets").Cells(i, 7).Value TextDR.Text = Worksheets("Inventory Assets").Cells(i, 8).Value Exit For End If Next i If TextVendor.Text = "" Then Else SaveButton.Enabled = True DeleteButton.Enabled = True End If End Sub Private Sub prSave() If blnNew = True Then TRows = Worksheets("Inventory Assets").Range("A1").CurrentRegion.Rows.Count With Worksheets("Inventory Assets").Range("A1") .Offset(TRows, 0).Value = TextVendor.Text .Offset(TRows, 1).Value = TextPON.Text .Offset(TRows, 2).Value = TextPartNo.Text .Offset(TRows, 3).Value = TextSN.Text .Offset(TRows, 4).Value = TextItemCondition.Text .Offset(TRows, 5).Value = TextDescription.Text .Offset(TRows, 6).Value = TextPOP.Text .Offset(TRows, 7).Value = TextDR.Text End With TextVendor.Text = "" TextPON.Text = "" TextPartNo.Text = "" TextSN.Text = "" TextItemCondition.Text = "" TextDescription.Text = "" TextPOP.Text = "" TextDR.Text = "" Call ComboBoxFill Else For i = 2 To TRows If Trim(Worksheets("Inventory Assets").Cells(i, 1).Value) = (VendorSelect.Text) Then Worksheets("Inventory Assets").Cells(i, 1).Value = TextVendor.Text Worksheets("Inventory Assets").Cells(i, 2).Value = TextPOP.Text Worksheets("Inventory Assets").Cells(i, 3).Value = TextPartNo.Text Worksheets("Inventory Assets").Cells(i, 4).Value = TextSN.Text Worksheets("Inventory Assets").Cells(i, 5).Value = TextItemCondition.Text Worksheets("Inventory Assets").Cells(i, 6).Value = TextDescription.Text Worksheets("Inventory Assets").Cells(i, 7).Value = TextPOP.Text Worksheets("Inventory Assets").Cells(i, 8).Value = TextDR.Text TextVendor.Text = "" TextPOP.Text = "" TextPartNo.Text = "" TextSN.Text = "" TextItemCondition.Text = "" TextDescription.Text = "" TextPOP.Text = "" TextDR.Text = "" Exit For End If Next i End If blnNew = False End Sub Private Sub ComboBoxFill() TRows = Worksheets("Inventory Assets").Range("A1").CurrentRegion.Rows.Count VendorSelect.Clear For i = 2 To TRows ComboBox.AddItem.Worksheets("Inventory Assets").Cells(i, 1).Value Next i End Sub ''Private Sub ComboBoxFill() ' TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count ' PON.Clear ' For i = 2 To TRows ' ComboBox.AddItem.Workesheets("Inventory Assets").Cells(i, 1).Value ' Next i 'End Sub ''Private Sub ComboBoxFill() ' TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count ' PartNoSelect.Clear ' For i = 2 To TRows ' ComboBox.AddItem.Workesheets("Inventory Assets").Cells(i, 1).Value ' Next i 'End Sub ''Private Sub ComboBoxFill() ' TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count ' SNSelect.Clear ' For i = 2 To TRows ' ComboBox.AddItem.Workesheets("Inventory Assets").Cells(i, 1).Value ' Next i 'End Sub ''Private Sub ComboBoxFill() ' TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count ' ItemCondtionSelect.Clear ' For i = 2 To TRows ' ComboBox.AddItem.Workesheets("Inventory Assets").Cells(i, 1).Value ' Next i 'End Sub ''Private Sub ComboBoxFill() ' TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count ' DescriptionSelect.Clear ' For i = 2 To TRows ' ComboBox.AddItem.Workesheets("Inventory Assets").Cells(i, 1).Value ' Next i 'End Sub ''Private Sub ComboBoxFill() ' TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count ' POPSelect.Clear ' For i = 2 To TRows ' ComboBox.AddItem.Workesheets("Inventory Assets").Cells(i, 1).Value ' Next i 'End Sub ''Private Sub ComboBoxFill() ' TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count ' DRSelect.Clear ' For i = 2 To TRows ' ComboBox.AddItem.Workesheets("Inventory Assets").Cells(i, 1).Value ' Next i 'End Sub 'Rows(7).Select 'Columns(2).Select( para pegar a coluna e fileira Private Sub Test_Initialize() Call prCommBoxFill SaveButton.Enable = False DeleteButton.Enable = False End Sub Private Sub VendorSelect_Change() TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count VendorSelect.Clear For i = 2 To TRows ComboBox.AddItem.Worksheets("Inventory Assets").Cells(i, 1).Value Next i End Sub Private Sub PONSelect_Change() TRows = Workplace("Inventory Assets").Range("B2").CurrentRegion.Rows.Count PON.Clear For i = 2 To TRows ComboBox.AddItem.Worksheets("Inventory Assets").Cells(i, 1).Value Next i End Sub Private Sub PartNoSelect_Change() 'Private Sub ComboBoxFill() TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count PartNoSelect.Clear For i = 2 To TRows ComboBox.AddItem.Worksheets("Inventory Assets").Cells(i, 1).Value Next i End Sub Private Sub SNSelect_Change() 'Private Sub ComboBoxFill() TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count SNSelect.Clear For i = 2 To TRows ComboBox.AddItem.Worksheets("Inventory Assets").Cells(i, 1).Value Next i End Sub Private Sub ItemConditionSelect_Change() 'Private Sub ComboBoxFill() TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count ItemCondtionSelect.Clear For i = 2 To TRows ComboBox.AddItem.Workesheets("Inventory Assets").Cells(i, 1).Value Next i End Sub Private Sub DescriptionSelect_Change() 'Private Sub ComboBoxFill() TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count DescriptionSelect.Clear For i = 2 To TRows ComboBox.AddItem.Workesheets("Inventory Assets").Cells(i, 1).Value Next i End Sub Private Sub POPSelect_Change() 'Private Sub ComboBoxFill() TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count POPSelect.Clear For i = 2 To TRows ComboBox.AddItem.Worksheets("Inventory Assets").Cells(i, 1).Value Next i End Sub Private Sub DRSelect_Change() 'Private Sub ComboBoxFill() TRows = Workplace("Inventory Assets").Range("A1").CurrentRegion.Rows.Count DRSelect.Clear For i = 2 To TRows ComboBox.AddItem.Workesheets("Inventory Assets").Cells(i, 1).Value Next i End Sub Private Sub Search_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) End Sub
  18. gelopes

    Comparar arquivos

    Olá pessoal, tudo bem? Sou novo por aqui e novo no VB hehe Tenho um trabalho para entregar no curso e não faço ideia de como fazer. É uma aplicação bem simples, podem me ajudar? Tenho dois arquivos TXT com uma lista de nomes. Um nome por linha. Preciso de uma aplicação que "abra o arquivo 01", "abra o arquivo 02" e que ao clicar em um botão, ele gere um terceiro aquivo TXT somente com os nomes que não estão repetidos, ou seja, somente com os nomes que não se repetem nos dois arquivos. E eu possa selecionar onde salvar esse terceiro arquivo. Exemplo do layout: http://prntscr.com/d9hbqg Obrigado desde já pela atenção pessoal. Um abraço!
  19. Preciso de obter o texto escrito numa textBox cujo conteúdo vai ser formatado como uma data no formato yyyymmdd. Acontece que, por alguma razão, não estou a conseguir obter o respectivo valor. Sei que a propriedade assumida por defeito quando se usa apenas o nome do controlo (txtData, no meu exemplo) é Value. Por outro lado, já tentei usar a propiedade Text, mas esta abordagem tem o senão de ter de colocar o foco no objecto para poder devolver o valor. Nesse sentido, o que posso fazer para conseguir verificar o valor em questão? Segue o código relevante: Private Sub ddlOrigem_Change() ActualizarLstPercursos End Sub Private Sub ddlDestino_Change() ActualizarLstPercursos End Sub Private Sub txtData_Change() ActualizarLstPercursos End Sub Private Sub ActualizarLstPercursos() If Not IsNull(ddlOrigem.Value) And Not IsNull(ddlDestino.Value) And Not IsNull(txtData) Then strSql = "SELECT * FROM tblPercursos WHERE Origem = '" & ddlOrigem.Value & "' AND Destino = '" & ddldestino.Value & "' AND Data = " & Format(txtData, "yyyymmdd") End If End Sub Obrigado.
  20. LucasPThiago

    Consultar banco MySQL Server

    Boa noite, tenho esse código VBA abaixo em que ele faz a conexão com meu banco de dados MySQL no phpadmin e procura celulas na minha planilha excel. acontece o seguinte, o restante da macro, que é para ele consultar o banco pra saber se os dados que estão na planilha existem também no banco de dados não consigo rodar meu Recordset. Alguém poderia me ajudar com isso ? Por favor. Option Explicit Global consulta As Recordset Global Cn As ADODB.Connection Sub conex() Set Cn = New ADODB.Connection Cn.ConnectionString = _ "driver={mysql odbc 5.3 ansi driver};" & _ "server=localhost;database=banco;uid=root;pwd=;" Cn.CursorLocation = adUseClient Cn.Open 'MsgBox "Conexao Efetuada!" 'Cn.Close End Sub Sub Desconecta() 'Faz a liberação das variáveis objeto do Banco de dados Set Cn = Nothing Set consulta = Nothing End Sub Private Sub Atualiza_ID_Subsidio_IW() Dim Linha As String 'Cria variável que armazena os comandos SQL Dim ComandoSQL As String Dim Num_Proc As String 'looping das colunas Sheets("Planilha1").Range("A1").Select 'lopping das linhas Do While ActiveCell <> "" Linha = ActiveCell.Row Num_Proc = Sheets("Planilha1").Cells(Linha, 1) 'I 'Armazena na variável o comando que fará a consulta SQL no BD Access ComandoSQL = "select * from usuarios where nome = '" & Num_Proc & "'" Call conex Set consulta = New ADODB.Recordset consulta.Open ComandoSQL, Cn, adOpenDynamic, adLockReadOnly With consulta consulta.Edit 'consulta("senha") = Sheets("Planilha1").Cells(Linha, 2) 'AB 'consulta("usuario") = 1 'consulta("Data_Solicitacao_Subsidio") = Date 'Se houver erro 'On Error Resume Next 'Efetiva a atualização do BD '.Update 'Fecha o Recorset e a conexão com o BD 'consulta.Close 'Cn.Close 'Chama a rotina que desconecta do BD (libera variáveis objeto de BD) 'Call Desconecta 'ActiveCell.Offset(1, 0).Select End With Loop 'Exibe mensagem de sucesso na inclusão do registro 'MsgBox "Dados Alterados com Sucesso! SID", vbDefaultButton1, "Alteração" 'Abandona a subrotina 'Exit Sub End Sub
  21. Pessoal, Bom Dia ! Sou novo aqui no Fórum, ultimamente tenho trabalhado bastante com demandas de automatização em planilhas de Excel. Estou com o seguinte problema: Criei uma planilha com uma interface simples onde os valores de algumas células serão atualizadas como novos registros em um Banco de Dados Access, porém ao verificar os valores das variáveis, os valores estão aparecendo como 0, ou 00:00:00 horas e 30/12/1899 para datas, sendo que os registros nas células do excel estão preenchidas corretamente e devidamente formatadas. A única variável que traz corretamente é a informação do usuário que eu pego ObjNetwork.UserName, todas as demais vindas do Excel, vem com valores zerados. Aparentemente o conexão com o Banco de Dados esta funcionando corretamente, pois os valores estão sendo registrados. Utilizo o seguinte código para associar as informações; Dim vdata As Date Dim vOR As Integer vOR = Sheets("Formulario").Range(D5).Value vdata = Sheets("Formulario").Range(D3).Value ........ objRecordSet.AddNew objRecordSet("OR") = vOR objRecordSet("Data") = vdata Se alguém tiver uma luz para me ajudar !!! Obrigado Hugo Santos
  22. DinhoPHP

    Inserção duplicada

    Bom dia! Estou utilizando esta programação para cadastrar nomes de PCs e partir desta lista checar se o nome da máquina consta nela para exibir uma planilha e esconder a mesma, só que está havendo um cadastramento duplicados e não sei porque. Isso não pode ocorrer. Obs: Não programo macros, e sim para web como: JAVA, PHP, HTML5 e etc.i
  23. DinhoPHP

    Comparar colunas via VBA

    Olá! Preciso de um script que ao listar nomes de computadores na rede e este constar, libere o acesso à uma planilha. Já tenho o script que descobre o PC na rede juntamente com nome de usuário e domínio, só falta permitir esse acesso. Quero destacar que não programo em VBA e sim para web, mas achei que sabendo o conceito, conseguiria. Preciso disso urgente! Pois é um trabalho que jáa encontra-se com seu tempo estourado. Desde já agradeço à todos que ajudarem.
  24. HELENO de Sant'Anna

    numeração automática de documentos

    Olá a todos, Minha dúvida é bem simples: trabalho num escritório de uma prefeitura e o que faço lá é basicamente digitar documentos (ofícios, memorandos, convites etc.) e para fazer isso utilizo o editor de texto Word, como a maioria dos mortais. Um erro relativamente comum no meu trabalho é emitir dois ofícios com o mesmo número e tentando evitar esse erro realizei diversas buscas na web para algum código vba que possa gerar automaticamente um novo número de ofício toda vez que eu criar um documento do word dentro de uma pasta especifica, que seria a pasta Ofícios. Encontrei um código com essa finalidade na web mas era uma postagem muito antiga, que tratava de arquivos .INI, indicadores e macros. Não consegui implementar porque a explicação era muito vaga e sem um exemplo prático. Link: http://www.ativoaccess.com.br/forum/index.php?showtopic=46 Não estou seguro se esse assunto é realmente nesse fórum, se não for, de antemão peço desculpas, porém desde já agradecido pela atenção dispensada.
  25. WellAlencar

    Integração PHP com VBA

    Pessoal, tenho uma planilha de Excel com conteúdo em VBA onde posso TICAR vários itens, assemelha-se ao RadioBox/Checked Box do html. Fiz um sistema WeB semelhante ao que tenho no Excel, mas gravo os values dos radiobox como numeros inteiros. Como faço para o PHP ler os valores e ticar no VBA do excel.? ex de opções para ticar: 1)BOM 2)RUIM 3)REGULAR no value do html eu gravo: Estado do Produto: 1)BOM (value = 1) 2)RUIM (value = 2) 3)REGULAR (value = 3) Dai queria abrir o arquivo em excel, ler os dados gravados no banco no caso, ex.: gravei valor 3!! Como conseguiria ticar o item 3)Regular no VBA?
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.