Ir para conteúdo
Fórum Script Brasil

Alyson Ronnan Martins

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    847

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que Alyson Ronnan Martins postou

  1. Alyson Ronnan Martins
    Fiz tudo em um botão só kkk acho que estou muito enferrujado kkkk Olha ai: Dim Programa As String Dim LocalPasta As String Dim cmdShell As String Dim Abrindo As String Programa = "C:\WINDOWS\explorer.exe " LocalPasta = "C:\" & Form_Frm_Cadastro2.ID.Value cmdShell = Programa & LocalPasta & "\" If Dir(LocalPasta, vbDirectory) = "" Then MkDir (LocalPasta) MsgBox "Pasta criada." & Chr(10) & _ "Aperte no botão novamente.", vbInformation, "Aviso" Else Abrindo = Shell(cmdShell, vbMaximizedFocus) End If Você pode mudar o msgbox pelo comando "abrindo" para abrir direto sem exibir mensagem. Você pode mudar o msgbox pelo comando "abrindo" para abrir direto sem exibir mensagem.
  2. Alyson Ronnan Martins
    Agora fiquei boiando na sua ultima informação.
  3. Alyson Ronnan Martins
    Melhor maneira ficaria: Dim LocalPasta As String LocalPasta = "C:\" & Form_Frm_Cadastro2.ID.Value MkDir (LocalPasta)
  4. Alyson Ronnan Martins
    Você esta certo eu tentei fazer o que tinha escrito e realmente deu erro. Dim Abrindo Abrindo = Shell("C:\WINDOWS\explorer.exe C:\" & Form_Frm_Cadastro2.ID.Value & "\", vbMaximizedFocus) para sanar a duvida de abrir a pasta eu fiz uma simulação aqui para ver se realmente estava abrindo e abriu corretamente (no meu teste) Estou colocando em anexo o arquivo Access que fiz a simulação. Obs.: Não coloquei o código de criar pasta e nem de verificar se a pasta existe. Link google drive: https://drive.google.com/open?id=1zhmIMqtF4j9bR7PTDw712Sz60UZUjhKq
  5. Alyson Ronnan Martins
    Considerando que as pastas de seus clientes estão Criadas dentro "C:/" Shell "C:\WINDOWS\explorer.exe """ & "C:\" & Frm_Cadastro2!ID.value & "", vbNormalFocus
  6. Alyson Ronnan Martins
    Qual o campo de seu "ID" dentro do Formulário? O nome do Campo.
  7. Alyson Ronnan Martins
    O ID esta dentro do seu formulário correto? para pegar ele basta coloca (Nome do seu formulário) ! (Nome do campo aonde ID): Frm_Cadastro!ID.value nesse código.
  8. Alyson Ronnan Martins
    Tente usa o seguinte comnado: MkDir (CurrentProject.Path & "\Seucliente") MkDir (CurrentProject.Path & "\Seucliente")
  9. Alyson Ronnan Martins
    Esta usando SQL para pegar o dados do seu BD?
  10. Alyson Ronnan Martins
    VBA orginal ou esta usando o Excel (em VBA)
  11. Alyson Ronnan Martins
    já sabe usar o RowSource do listbox (propriedades do listbox)
  12. Alyson Ronnan Martins
    Otimo ver pessoas se interessando. Valeu.
  13. Alyson Ronnan Martins
    Boa tarde Leandro. Você usou o ".cells" para ver se estava escrito 2018 entãopode usar ele tambem para escrever na linha nova abaixo: .cells(lRow + 1, "A").value = .cells(lRow, "A").value *dentro do if abaixo do comando insert
  14. Alyson Ronnan Martins
    Tentou mudar essa linha de código? Selection.EntireRow.Delete
  15. Alyson Ronnan Martins
    Boa noite Rogue Junior. Não consigo imaginar esse projeto fazendo em formula pois você tem a entrada da mercadoria (compras) e saida (vendas) A melhor maneira para fazer esse trabalho seria usando "macro". Mais ai vai você tem conhecimento de macro (VBA) ou quer arriscar fazer em formulas mesmo?
  16. Alyson Ronnan Martins
    Olha esse código: Isdate ( )
  17. Alyson Ronnan Martins
    Teria como mandar um print ou uma planikha com nomes fictícios?
  18. Alyson Ronnan Martins
    No início abaixo do sub.
  19. Alyson Ronnan Martins
    Bom dia. Tenta apagar esse código que você esta usando. Selection.EntireRow.Delete
  20. Alyson Ronnan Martins
    Entedi o problema mais acho que precisa enviar uma planilha para ver isso acontecendo.
  21. Alyson Ronnan Martins
    Você conhece a função "for"? A ideia é com essa função o excel olhar linha a linha para verificar se esta melhor a data do lado esquerdo com a do lado direito Exemplo: Dim DataEsquerda as date, DataHoje as date DataHoje = Format(now(), "dd/mm/yyyy") with Sheets("SuaPlanilha") for x = 1 to 100 step 1 ' vai contar de 1 a 100 DataEsquerda = .cells(x, "A").value if DataEsquerda < DataHoje then 'agora aqui coloca o que quer que faça end if next x
  22. Alyson Ronnan Martins
    Boa noite Diego. Já passei por esse problema antes e resolvi apenas colocando o On Error Resume Next. Tenta ai e dá um retorno se funciona ok?
  23. Alyson Ronnan Martins
    Acho que realmente aqui no fórum podemos te ajudar a criar planilhas até em macro (tipo um sistema) porém criar de graça realmente acho difícil alguém se dispor
  24. Alyson Ronnan Martins

    Foco TextBox

    pergunta respondeu ao Elton MT de Alyson Ronnan Martins em VBA

    Boa tarde. Nas propriedades do textbox tem um item com o nome Índex ou TabIndex. É só mudar o número para a ordem que você achar melhor. Tipo o primeiro textbox tem o número 0 O terceiro textbox tem o número 1 E o segundo textbox tem 2 assim você muda a ordem.
  25. Alyson Ronnan Martins
    Tentou formatar depois da digitação?
×
×
  • Criar Novo...