Ir ao conteúdo
  • Cadastre-se

Marcus Nagel_758472

Membro Pleno
  • Posts

    45
  • Cadastrado em

  • Última visita

Reputação

0
  1. É uma textbox? ou uma célula normal? Se for uma célula não é necessário código. Clique na célula que irá receber os dados de CPF, clique com o botão direito e vá em 'Formatar células...' Abrirá a janela de personalização. Nela vamos navegar até a guia 'Personalizado' no lado esquerdo e em 'tipo:' cole o código ##".""A"###"."####-#
  2. Pessoal, boa tarde. Uma ajuda que acho que vocês vão matar rapidinho. Tenho um formulário que posso tanto inserir dados numa base quanto puxar informações de um contrato da base que fica no mesmo arquivo. Tudo esta funcionando perfeitamente, apenas não consigo formatar as datas como "dd/mm/yy". Já tentei o "TextBox10 = Format (Date, "dd/mm/yy")" mas isso não altera nada. Esse TextBox esta com a seguinte private sub para aceitar apenas números e "/" quando o usuário for digitar: Private Sub TextBox11_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Dim strValid As String TextBox11.MaxLength = 8 strValid = "0123456789/" If InStr(strValid, Chr(KeyAscii)) = 0 Then KeyAscii = 0 End If End Sub Quando eu peço para puxar os dados, o campo do TextBox vem como números, por exemplo: Campo na base: 12/12/89 TextBox: 32854 Conseguem me ajudar a deixar o TextBox no mesmo formato da base? Desde já MUITO OBRIGADO! Gestão de Rotina v4.zip
  3. RESOLVIDO!! Troquei a variável Integer por Double. Long não servia. Segue a planilha zipada e corrigida para caso alguém um dia precise de um arquivo parecido. Gestão de Rotina v2.zip
  4. Pessoal, bom dia. Procurei bastante antes de vir aqui, mas as soluções que achei não me ajudaram. Espero que vocês consigam!!! Tenho uma planilha com alguns códigos em VBA que criam, pesquisam e atualizam uma base de dados no mesmo arquivo. O campo obrigatório é o "Contrato", por ele eu consigo pesquisar ou atualizar algum contrato que tenha na base. Até ai tudo esta funcionando corretamente, porém se eu coloco um contrato com 10 números (ex. 9000008400, que é o formato que vou usar) e clico em PESQUISAR ele informa o erro "Estouro" (apenas no PESQUISAR os outros "botões" funcionam normalmente). Pesquisei na internet e vi que podia ser por causa da variável Integer, mas já alterei para Long e o erro persiste. Conseguem me ajudar a resolver??? Desde já, muito obrigado!!! E um feliz ano novo para todos! Gestão de Rotina v2.zip
  5. @CasaDoHardware Com sua ajuda consegui fazer o que queria! Usei apenas a primeira macro com algumas ideias de modificação que você deu! MUITO OBRIGADO!!! Segue o código para alguem se precisar. Divide a planilha com base no Fornecedor e salva na pasta de cada Fornecedor no sharepoint. Sub aExportParaSharepoint() Dim Folder As String Dim Caminho As String Dim Fornecedor As String Dim FSO As Object Dim db As DAO.Database Dim rs As DAO.Recordset, rs2 As DAO.Recordset Dim c As Long Application.DisplayAlerts = False Set FSO = CreateObject("Scripting.FileSystemObject") Set db = OpenDatabase(ThisWorkbook.FullName, False, True, "Excel 8.0;HDR=Yes;") Set rs = db.OpenRecordset("SELECT DISTINCT [Fornecedor Agrupado] FROM [Plan1$]") While Not rs.EOF Set rs2 = db.OpenRecordset("SELECT * FROM [Plan1$] WHERE [Fornecedor Agrupado]='" & rs(0) & "'") Workbooks.Add For c = 0 To rs2.Fields.Count - 1 Cells(1, c + 1) = rs2.Fields(c).Name Next Caminho = "\\mysite\sites\gpss\mro\teste\" 'troque pelo caminho da pasta do sharepoint Fornecedor = rs(0) & "\" 'pega o fornecedor e complementa o Caminho Let Folder = Caminho & Fornecedor 'Caminho completo Range("A2").CopyFromRecordset rs2 Range("A:A").TextToColumns Range("A:A").NumberFormat = "dd/mm/yyyy" Range("P:P").NumberFormat = "dd/mm/yyyy" Range("A:AZ").EntireColumn.AutoFit Range("A1:C1").Interior.Color = RGB(228, 31, 43) Range("a1:c1").Font.ColorIndex = 2 Range("A1:C1").Font.Bold = True ActiveWorkbook.Close True, Folder & Format(Date, "dd-mm-yyyy") & " " & rs(0) 'salva na pasta com data e o nome do fornecedor rs.MoveNext Wend For Each File In FSO.GetFolder(Folder).Files Kill File Next End Sub
  6. @CasaDoHardware Boa valeu!! Vou testar amanhã! E aviso aqui se deu certo! Obrigado!
  7. @CasaDoHardware Tem como esse C:\Users\marcur09\Desktop\A\ & Arq & ".xlsx" mostrar a data atual e o nome do fornecedor? Se fizer isso já vai ser top!!!! Exemplo: Fornecedor Abecom C:\Users\marcur09\Desktop\A\Format(Date, "dd-mm-yyyy") & " " & Arq & ".xlsx" Ai aparece: C:\Users\marcur09\Desktop\A\24-02-2016 Abecom.xlsx E outra pergunta. Como faço para exportar para o site mostrado na aba [base_dados]?
  8. @CasaDoHardware Se o nome dos arquivos não fosse dinamico poderia usar essa sim. Acontece que o nome do arquivo muda conforme o dia que for executado. @CasaDoHardware Sub a02EnviarEmails() Dim Folder As String, Recipient As String, Recipient2 As String Dim FSO As Object Dim db As DAO.Database Dim rs As DAO.Recordset, rs2 As DAO.Recordset Dim c As Long Application.DisplayAlerts = False Folder = "C:\Users\marcur09\Desktop\A\" Set FSO = CreateObject("Scripting.FileSystemObject") Set db = OpenDatabase(ThisWorkbook.FullName, False, True, "Excel 8.0;HDR=Yes;") Set rs = db.OpenRecordset("SELECT DISTINCT [Fornecedor Agrupado] FROM [Plan1$]") For Each File In FSO.GetFolder(Folder).Files Kill File Next While Not rs.EOF Set rs2 = db.OpenRecordset("SELECT * FROM [Plan1$] WHERE [Fornecedor Agrupado]='" & rs(0) & "'") Workbooks.Add For c = 0 To rs2.Fields.Count - 1 Cells(1, c + 1) = rs2.Fields(c).Name Next Range("A2").CopyFromRecordset rs2 Range("A:A").TextToColumns Range("A:A").NumberFormat = "dd/mm/yyyy" Range("P:P").NumberFormat = "dd/mm/yyyy" Range("A:AZ").EntireColumn.AutoFit ActiveWorkbook.Close True, Folder & Format(Date, "dd-mm-yyyy") & " " & rs(0) ''''''''''''''''' Pegar esse arquivo salvo acima e exportar para o sharepoint'''''''''''''''''' rs.MoveNext Wend End Sub No código acima coloquei uma linha "Pegar esse arquivo salvo acima e exportar para o sharepoint", para dar uma ideia do que preciso.
  9. @CasaDoHardware Sub tst() Const sSource As String = "C:\Users\marcur09\Desktop\A\3M.xlsx" 'change to suit With CreateObject("WScript.Network") Essa parte "Const sSource ........... \Desktop\A\3M.xlsx." A parte em negrito eu teria que mudar manualmente, pois ela é o arquivo que desejo exportar. O problema é que quando rodo a primeira macro, ela salva o arquivo como (exemplo) 24-02-2016 3M.xlsx e o nome deve ser exatamente o mesmo para a segunda macro funcionar. Precisava de algo que faça com que na primeira macro ele salve o arquivo e já exporte para o sharepoint, sem ser necessário a segunda macro. Macro: Separar Fornecedor -> Salvar um arquivo para cada fornecedor -> exportar cada fornecedor para sua pasta no sharepoint ( de acordo com a coluna "Site Sharepoint" da aba "banco_dados" do arquivo inicial) Se ficar mais fácil, a primeira macro pode ser alterada.
  10. @CasaDoHardware Desculpe, escrevi meio apressado. A primeira macro (a02EnviarEmails) divide o arquivo por fornecedor, cria um arquivo diferente para cada um desses fornecedores e coloca a data que foi executada. Ex: 23-02-2016 3M.xlsx Preciso de uma macro que pegue esses arquivos que estão numa pasta no drive C e export para o sharepoint indicado na aba "banco_dados", coluna "Site Sharepoint". Por exemplo: o arquivo 3M tem que ser exportado para a pasta "https://sharepoint/mysite/3M". o arquvio Abecom para "https://sharepoint/mysite/Abecom". e por ai vai..... A segunda macro (tst) exporta o arquivo para o local certo, porém preciso copiar e colar varias vezes, pois ela serve apenas para um fornecedor. E devido a data que a macro "a02EnviarEmails" coloca no nome do arquivo, teria que entrar e mudar todas as vezes que for utilizar. Acho que agora deu para explicar.
  11. [RESOLVIDO!!!!] Boa noite pessoal. Preciso de uma ajudinha para ajustar uma macro. Hoje ela separa as informações por fornecedor e cria um arquivo dentro de uma pasta no C: para cada fornecedor. Tenho uma planilha com algumas informações entre elas Fornecedor Agrupado. Em outra aba tenho essa mesma coluna Fornecedor Agrupado e a coluna Site Sharepoint, onde contem o caminho que quero exportar o arquivo de cada fornecedor. Cada fornecedor possui um caminho diferente. Tenho os dois códigos a seguir: Sub a02EnviarEmails() Dim Folder As String, Recipient As String, Recipient2 As String Dim FSO As Object Dim db As DAO.Database Dim rs As DAO.Recordset, rs2 As DAO.Recordset Dim c As Long Application.DisplayAlerts = False Folder = "C:\Users\marcur09\Desktop\A\" Set FSO = CreateObject("Scripting.FileSystemObject") Set db = OpenDatabase(ThisWorkbook.FullName, False, True, "Excel 8.0;HDR=Yes;") Set rs = db.OpenRecordset("SELECT DISTINCT [Fornecedor Agrupado] FROM [Plan1$]") For Each File In FSO.GetFolder(Folder).Files Kill File Next While Not rs.EOF Set rs2 = db.OpenRecordset("SELECT * FROM [Plan1$] WHERE [Fornecedor Agrupado]='" & rs(0) & "'") Workbooks.Add For c = 0 To rs2.Fields.Count - 1 Cells(1, c + 1) = rs2.Fields(c).Name Next Range("A2").CopyFromRecordset rs2 Range("A:A").TextToColumns Range("A:A").NumberFormat = "dd/mm/yyyy" Range("P:P").NumberFormat = "dd/mm/yyyy" Range("A:AZ").EntireColumn.AutoFit ActiveWorkbook.Close True, Folder & Format(Date, "dd-mm-yyyy") & " " & rs(0) rs.MoveNext Wend End Sub Sub tst() Const sSource As String = "C:\Users\marcur09\Desktop\A\3M.xlsx" 'change to suit With CreateObject("WScript.Network") .MapNetworkDrive "T:", "\\team.braskem.com.br\sites\gpss\mro\Produtividade\_Marcus\teste\3M" 'change to suit If Len(Dir(sSource)) Then CreateObject("Scripting.FileSystemObject").copyfile sSource, "T:\" Application.Wait Now + TimeSerial(0, 0, 3) On Error Resume Next .RemoveNetworkDrive "T:" On Error GoTo 0 End With End Sub Conseguem me ajudar??? OBRIGADO!!! Teste 1 Macro Export To SharePoint .xlsm
  12. Boa noite pessoal. Tenho uma planilha que possui varias colunas. Uma delas é a coluna "Fornecedor". Necessito de uma macro que divida todas as linhas de cada fornecedor em uma aba diferente com o nome do referido Fornecedor. Vale ressaltar que os fornecedores não estão em ordem. Ex: Fornecedor Wesled Gestalco Wesled Após esse passo, preciso que cada aba seja exportada para uma pasta no Sharepoint. Cada Fornecedor em uma pasta com o próprio nome. Conseguem me ajudar? Desde já, obrigado!!
  13. Wendell e pessoal. Surgiu um outro problema. Se eu ao invés de enviar e-mail para os fornecedores, eu quiser salvar o arquivo (separado por fornecedor) em uma pasta no Sharepoint. Existe essa possibilidade? Cada fornecedor teria sua pasta. Por exemplo, tenho uma lista completa com varios fornecedores, quero separar essa lista e, por exemplo, criar um arquivo da FG e exportar para a pasta da FG no Sharepoint. O arquivo do fornecedor Abecom na pasta Abecom e por ai vai. Obrigado!!

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...