Ir ao conteúdo

Basole

Membro Pleno
  • Posts

    2.009
  • Cadastrado em

Tudo que Basole postou

  1. Disponibilize seu arquivo (compactado) ou um exemplo com alguns dados e não imagens do arquivo por favor.
  2. Aparentemente, me parece q o erro é gerado porque a variavel comando nao foi definido seu valor
  3. Veja se esta alteracao no codigo lhe atende: 'Verificar usuário cadastrado' Dim bSnhInVal As Boolean Linha = 2 Do Until Sheets("Usuario").Cells(Linha, 1) = "" If Sheets("Usuario").Cells(Linha, 1) = Usuario _ And Sheets("Usuario").Cells(Linha, 2) = Senha Then MsgBox "Bem vindo " & Usuario, vbOKOnly, "Acesso Permitido" Call Gravar_Relatorio Application.Visible = True Unload frmLogin Exit Sub Else bSnhInVal = True End If Linha = Linha + 1 Loop If bSnhInVal = True Then MsgBox "Usuário ou senha inválidos", vbInformation, "Acesso Negado" frmLogin.txtUsuario = Empty frmLogin.txtSenha = Empty frmLogin.txtUsuario.SetFocus bSnhInVal = False End If
  4. Tente usar: TextBox1.SelStart = 0 TextBox1.SelLength = VBA.Len(TextBox1.Text)
  5. Esperimente alterar o "1" por LIN(A1)
  6. Use a propriedade Application.Left e Application.Top para possicionar o botões e as textBox, exemplo Me.CommandButton.Left = Application.Left - (Application.Left * 0.80)
  7. Eu não tenho acesso a este aplicativo. Mas dê uma olhada neste link, acho que pode lhe ajudar. Automatizar avaya cms supervisor
  8. Amigo, "If Not rngH Is Nothing Then" significa que: "se rngH não é nada então" ou seja se a variavel rngH, for = ao ser encontrado aparecerá a msgbox verdadeiro, caso contrario falso.
  9. Amigo veja se consegue adaptar este exemplo a sua necessidade https://www.clubedohardware.com.br/forums/topic/1223138-vba-função-procv-com-som-wav/?do=findComment&comment=6726681
  10. @Gabriel.Rizzatto Analisando por imagens fica meio complicado, mas se isso te ajuda. Considerando que o campo [ Informe a Senha ] seja um textbox e o campo [ Entrar ] uma Label, no evento KeyDown do seu TextBox: Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then Label1_Click End If End Sub E no Evento Click da sua Label: Private Sub Label1_Click() ' Coloque seu codigo de condicao para acesso End Sub
  11. Desculpe acabei enviando o seu proprio arquivo. Segue em anexo o correto. Modelo de busca_1.zip
  12. Amigo, veja se é isso que precisa... Ao inserir um codigo na coluna A, se o resultado na coluna B for Selecionado, então toca som .wav. Fiz alteraçoes na formula procv para nao apresentar erros. Modelo de busca_1.zip
  13. @Júlio_123 Poste seus arquivos ou exemplos com alguns dados ficticios.
  14. @Dany.Melo3269 anexe seu arquivo, ou um exemplo com alguns dados.
  15. Bom dia @Lidiane Colli, Sim é possivel, aproveitando a rotina que eu ja fiz, pode acrescentar no script o envio do pdf e o *.xlsx em anexo para cada respectiva conta de e-mail. Mas isso é algo mais elaborado e que requer boas horas de programação.
  16. Sim entendi. Eu criei uma lista com os numeros de contas distintas na coluna G e a partir desta lista a macro faz um loop filtrando cada conta e salvando o conteudo filtrado, em pdf na pasta especificada. Ajuste caminho completo (diretorio) da pasta, onde deseja salvar os Pdf(s), na celula H1. Base - 20.03.2017.zip
  17. @Lidiane Colli Qual o criterio do filtro da coluna A? O que seria "todo conteudo referente a essa conta individualmente .."?
  18. Sim é possivel fazer um scritp que leia o numero do hd e voce cria uma chave que so "abre" ou seja so funciona na maquina com este numero de hd. Qual a linguagem esta usando?
  19. Amiga se puder, envie um exemplo com algumas imagens para analise para que possamos ajuda-la. Caso nao consiga anexar seu arquivo no forum, faça um upload em um site gratuito e cole o link aqui.
  20. @Bruno Carsant sim é possivel, mas o ideal e voce enviar pelos menos dois arquivos (Dashboard e compras por exemplo) para analise,e envie-os com alguns dados ficticios.
  21. @Veronica Gonçalves Aperte as teclas Alt+ F11 para ver o codigo que faz isso. Agora se deseja se aprofundar no assunto, podemos ver de ministrar umas aulas de vba.
  22. @Veronica Gonçalves seja minha contribuição. Ao clicar no botão a macro verifica e lança os pagamentos para as respectivas planilhas(abas) de acordo com o mes, caso ainda não foram lançadas. Cópia de Contas a Pagar - Versao 2.0.zip
  23. Nao sei se voce reparou, no meu poste anterior, eu coloquei uma observacao, sobre o local do arquivo banco de dados:
  24. Bom dia, eu ajustei pra voce a funcao inseri, veja se consegue, seguindo a logica, ajustar a funcao alterar. * O banco esta ajustado pra trabalhar na mesma pasta desta planilha. excelaccess_1.zip
  25. Bom dia amigo, voce tem que ter em mente, que o s dados ficaram guardados em, vamos dizer outro local fora do ambiente excel, então essas funçoes (formulas) nao funcionarão, mas pode-se criar as próprias funcoes (udf) atraves do vba, por exemplo uma funcao similar ao procv para buscar determinado dado diretamente no BD. .

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!