pablomoreiragv

Membros
  • Content Count

    16
  • Joined

  • Last visited

Community Reputation

0 Neutro

About pablomoreiragv

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Segue modelo do que estou fazendo. Ela é de meu uso pessoal. Veja que a medida em que se preenche o campo NOME FANTASIA, o listbox aplica o filtro. O que eu queria, era que depois de filtrado, ao clicar no item do listbox, os campos TEXTBOX's sejam preenchidos. Só que ao fazer isso, vêm o erro. Antes de inserir o código do filtro, o preenchimento funcionava normalmente, mas, preciso do filtro pois são muitos fornecedores para encontrar. Download: https://drive.google.com/file/d/1OyvhEqJcz-iHAyCZA3prTIFm7YXgv0dZ/view?usp=sharing Obrigado
  2. Olá, Estou fazendo um formulário de cadastro, onde eu clico em um item no Litsbox, e os dados são carregados no formulário com base em uma planilha. Tudo estava funcionando bem, até que eu fui fazer um filtro no listbox, com o que fosse digitado no campo NOME FANTASIA, e começou dar erro. O filtro funciona direitinho, mas ao clicar no item do listbox que deveria carregar o formulário vêm o erro. Queria que os dados fossem carregados nos campos como antes, só que agora, sejam as informações do item filtrado. Estou postando um imagnes exemplo, e abaixo os códigos que estão atualmente nos controles. Desde já agradeço.Mensagem de Erro: ERRO EM TEMPO DE EXECUÇÃO 381: Não foi possível obter a propriedade List. Índice de matriz de propriedade inválido.Código do Textbox que faz o filtro no ListboxPrivate Sub txt_nome_fantasia_Change() Dim guia As Worksheet Dim linha As Integer Dim coluna As Integer Dim linhalistbox As Integer Dim valor_celula As String Dim conta_registros As Integer Dim valor_pesquisado As String Dim produtos Set guia = ThisWorkbook.Worksheets("Fornecedor") valor_pesquisado = Me.txt_nome_fantasia.Text linha = 3 coluna = 6 linhalistbox = 0 conta_registros = 0 Me.ListBox2.Clear With guia While .Cells(linha, coluna).Value <> Empty valor_celula = .Cells(linha, coluna).Value If UCase(Left(valor_celula, Len(valor_pesquisado))) = UCase(valor_pesquisado) Then With Me.ListBox2 .AddItem .List(linhalistbox, 0) = Sheets("Fornecedor").Cells(linha, 1) .List(linhalistbox, 1) = Sheets("Fornecedor").Cells(linha, 2) .List(linhalistbox, 2) = Sheets("Fornecedor").Cells(linha, 3) .List(linhalistbox, 3) = Sheets("Fornecedor").Cells(linha, 4) .List(linhalistbox, 4) = Sheets("Fornecedor").Cells(linha, 5) .List(linhalistbox, 5) = Sheets("Fornecedor").Cells(linha, 6) .List(linhalistbox, 6) = Sheets("Fornecedor").Cells(linha, 7) .List(linhalistbox, 7) = Sheets("Fornecedor").Cells(linha, 😎 .List(linhalistbox, 😎 = Sheets("Fornecedor").Cells(linha, 9) .List(linhalistbox, 9) = Sheets("Fornecedor").Cells(linha, 10) linhalistbox = linhalistbox + 1 conta_registros = conta_registros + 1 End With End If linha = linha + 1 Wend End With' filtro2 ' chama o procedimento segundo filtro que mostra o código da empresa' segundo filtro que mostra o código da empresa produtos = conta_registros & " Produtos Cadastrados"End Sub=====================================================================================Código do Listbox que carrega os campos do formulároPrivate Sub ListBox2_Change()txt_cod_sap.Text = ListBox2.List(ListBox2.ListIndex, 0)txt_status.Text = ListBox2.List(ListBox2.ListIndex, 1)txt_cnpj.Text = ListBox2.List(ListBox2.ListIndex, 2)txt_razao_social.Text = ListBox2.List(ListBox2.ListIndex, 3)txt_nome_fantasia.Text = ListBox2.List(ListBox2.ListIndex, 4)txt_insc_estadual.Text = ListBox2.List(ListBox2.ListIndex, 5)txt_email.Text = ListBox2.List(ListBox2.ListIndex, 6)cbx_ramo.Text = ListBox2.List(ListBox2.ListIndex, 7)txt_nome_contato.Text = ListBox2.List(ListBox2.ListIndex, 😎txt_contato_fone.Text = ListBox2.List(ListBox2.ListIndex, 9)txt_logradouro.Text = ListBox2.List(ListBox2.ListIndex, 12)txt_cidade.Text = ListBox2.List(ListBox2.ListIndex, 13)cbx_recibo.Text = ListBox2.List(ListBox2.ListIndex, 14)cbx_pagamento.Text = ListBox2.List(ListBox2.ListIndex, 15)cbx_prazo.Text = ListBox2.List(ListBox2.ListIndex, 16) End Sub
  3. Segue link da planilha modelo para entender melhor o que estou querendo dizer. Note que a imagem permanece quando o controle image é inserido direto na planilha, mas quando está em um userform a figura não fica fixa no formulario. Por isso quero saber como abre a caixa de diálogo CARREGAR FIGURA, talvez me ajude, mas toda ajuda é bem vinda. Pode me ajudar? Desde já agradeço. Exemplo: http://www.4shared.com/file/Bg-9GlyY/TESTE_-_IMAGE.html
  4. Resolvido: No módulo insira o código: Sub Workbook_Open() Application.OnKey "+{F3}", "abrir_Formulario" End Sub Agora insira este comando dentro do Form: Application.OnKey "+{F3}", "abrir_Formulario" Obrigado gente!!!
  5. Resolvido, consegui com ajudar do amigo Alexandre. O código completo fica: Private Sub Workbook_Open() If Worksheets.Count > 3 Then MsgBox "Esta pasta tem " & Worksheets.Count & " Planilha(s).", vbOKOnly, "Atenção!" End If End Sub Utilizei o número 3, ou seja, quando eu tiver mais de 3 planilhas na pasta (4, 5, ...) a mensagem será exibida quando eu abrir a pasta de trabalho, caso contrário não aparecerá nenhuma mensagem. Um abraço, Obrigado gente!
  6. Alguém sabe me dizer porque que o arquivo não está caindo dentro da pasta criada? O que está faltando? Segue código abaixo. Sub Backup() Dim MyFilePath$ MyFilePath$ = "\BACKUP - RD" Dim MeuDir MeuDir = Me.TextBox1 With Application .ScreenUpdating = False .DisplayAlerts = False On Error Resume Next '<< Se a folder existe MkDir MyFilePath '<< se não cria uma nova ThisWorkbook.SaveCopyAs FileName:=MyFilePath & MeuDir & "REMESSA DE DOCUMENTOS - Backup " & _ Day(DateSerial(Year(Date), Month(Date), Day(Date))) & " de " & _ MonthName(Month(DateSerial(Year(Date), Month(Date), Day(Date)))) & " de " & _ Year(DateSerial(Year(Date), Month(Date), Day(Date))) & ".xls" MsgBox "Pronto" End With End Sub Pablo Moreira
  7. Caros Colegas, Tem como colocar uma mesagem de aviso em uma planilha que abrirá depois de determinado número de quias? Pablo Moreira
  8. Caros colegas, Tem como eu criar um atalho em uma planilha ou pasta de trabalho do excel para chamar um formulário? Por exemplo: Ao invés de inserir um comandbutton em uma planilha com o código "userform1.show", eu simplesmente criar um atalho "ctrl+alt+L"para que o usuário chame o formulário em qualquer área da pasta de trabalho. Obrigado
  9. Já peguei alguns códigos na net e não consigo fazê-los rodar. Peço aos amigos para que possam me ajudar com um passo a passo de como fazer para validar estes campos, pois os textbox's estão incorporados em um planilha e todos os exemplos que encontro são usados em formulários. Não tenho muita experiência em VBA, mas conto com a ajuda dos amigos. Um abraço.
  10. Estou com um problema que envolve option buttons, pois inseri vários em um planilha e não consigo fazer com que eles funcionem em grupos. Sei que em formulário você tipo cerca-os com um frame para que funcionem entre si, ou seja, funcionem em conjunto com os outros que estão dentro do mesmo frame. Mas o problema que o frame que está disponibilizado para inserir nas planilhas e diferente. Como faço para resolver este problema, pois no momento estão todos funcionando sumultâneamente.
  11. Tenho dois texbox inseridos em um planilha um com com o campo data de nascimento e outro com o campo idade. A pergunta é. Tem como, assim que eu inserir a data no campo data de nascimeno, ele já me informar automaticamente a idade da pessoa levando em conta tudo, anos bissextos e meses de 28 e 29 dias? Sem ter que clicar nenhum botão para mandar calcular? Desde já agradeço aos amigos.
  12. Não, eles estão inseridos em uma planilha, e quando o textbox é incorporado em um planilha, ele não tem a propriedade TabIndex.
  13. Tenho uma planilha de Ficha de Recrutamento de Empregado e inseri mais de 50 texbox como campo de preenchimento, pois alguns eu habilitei para receber CEP, CPF, DATA e textos com iniciais maiúsculas. Só que estou querendo com que assim que a pessoa abra o documeto o cursor já apareça no texbox1 e com a tecla Tab ou Enter eu possa mudar de foco fazendo com que o cursor pule para o próximo textbox a ser preenchido. Já coloquei tudo na ordem mais não consigo, e para acabar de completar o problema, não tem a propriedade TabIndex em texbox inserido em uma planilha, que é o meu caso. Se alguém puder me ajuda agradeço muito.
  14. Eu não conheço esta ferramenta, estou engatinhando ainda no VBA, tem como você me dar um help, ou seja, me dizer como faço para inserir e programar esta ferramenta. Jâ procurei tanto e nada encontrei, estou dando orelhada demais. Encontrei este codigo abaixo no AJUDA no VBA, não sei se eu estou fazendo errado alguma coisa mais não deu certo também. Exemplo do objeto Font e das propriedades Bold, Italic, Size, StrikeThrough, Underline e Weight O exemplo a seguir demonstra um objeto Font e as propriedades Bold, Italic, Size, StrikeThrough, Underline e Weight relacionadas a fontes. Você pode manipular as propriedades de fonte de um objeto diretamente ou utilizando um alias, conforme mostra, também, este exemplo. Para utilizar este exemplo, copie esse código de exemplo na parte de Declarações de um formulário. Certifique-se de que o formulário contenha: Um Label denominado Label1. Quatro controles ToggleButton denominados ToggleButton1, ToggleButton2, ToggleButton3 e ToggleButton4. Um segundo Label e um TextBox denominados Label2 e TextBox1, respectivamente. Dim MyFont As StdFont Private Sub ToggleButton1_Click() If ToggleButton1.Value = True Then MyFont.Bold = True 'Using MyFont alias to control font ToggleButton1.Caption = "Bold On" MyFont.Size = 22 'Increase the font size Else MyFont.Bold = False ToggleButton1.Caption = "Bold Off" MyFont.Size = 8 'Return font size to initial size End If TextBox1.Text = Str(MyFont.Weight) 'Bold and Weight are related End Sub Private Sub ToggleButton2_Click() If ToggleButton2.Value = True Then Label1.Font.Italic = True 'Using Label1.Font directly ToggleButton2.Caption = "Italic On" Else Label1.Font.Italic = False ToggleButton2.Caption = "Italic Off" End If End Sub Private Sub ToggleButton3_Click() If ToggleButton3.Value = True Then Label1.Font.Strikethrough = True 'Using Label1.Font directly ToggleButton3.Caption = "StrikeThrough On" Else Label1.Font.Strikethrough = False ToggleButton3.Caption = "StrikeThrough Off" End If End Sub Private Sub ToggleButton4_Click() If ToggleButton4.Value = True Then MyFont.Underline = True 'Using MyFont alias for Label1.Font ToggleButton4.Caption = "Underline On" Else Label1.Font.Underline = False ToggleButton4.Caption = "Underline Off" End If End Sub Private Sub UserForm_Initialize() Set MyFont = Label1.Font ToggleButton1.Value = True ToggleButton1.Caption = "Bold On" Label1.AutoSize = True 'Set size of Label1 Label1.AutoSize = False ToggleButton2.Value = False ToggleButton2.Caption = "Italic Off" ToggleButton3.Value = False ToggleButton3.Caption = "StrikeThrough Off" ToggleButton4.Value = False ToggleButton4.Caption = "Underline Off" Label2.Caption = "Font Weight" TextBox1.Text = Str(Label1.Font.Weight) TextBox1.Enabled = False End Sub Se mais alguêm se habilitar em tentar me ajudar por favor socorra-me..rs..rs..rs..
  15. Como faço para inserir um textbox em uma planilha, e deixá-lo como um editor de texto comum, ou seja, quero que ele tenha as funções que possibilite o usuário formatar o texto, com as funções negrito, itálico, sublinhado, centralizado, alinhar a esquerda e a direita, justificar, mudar a cor do texto e etc, enfim, que ficasse îgual a tela que a gente inseri tópicos neste fórum, pois quando o usuario está digitando um texto dentro do textbox, toda a barra de formatação fica inativa. Resumindo, queria que ficar um verdadeiro editor de texto personalizado, só que não sei como programar isso, já olhei na net e nada consegui. Caso alguém possa me ajudar, pode me mandar no meu email támbém, [email protected]? Um abraço!!!! Fui!!!