Ir ao conteúdo
  • Cadastre-se

Eri França

Membro Pleno
  • Posts

    55
  • Cadastrado em

  • Última visita

Reputação

3
  1. Bom dia! eu estou desenvolvendo um projeto com Javascript para acompanhamento de notas fiscais, No momento estou tentando descobrir como gerar a hora que a chave de acesso foi bipada ao mesmo tempo que submeto o formulario. https://github.com/EriFranca/Site-Responsivo https://erifranca.github.io/Site-Responsivo/
  2. @Basole Não funciona 100% por ser compartilhado as macros da planilha são limitadas, tentarei a solução do amigo
  3. @Basole Salve amigo, erro meu. minha ideia é transpor a planilha em anexo, que utilizo compartilhada com a portaria de recebimento, para um painel online. agradeço qualquer ajuda Agrupamentos.rar
  4. Saudações a todos! Gostaria da ajuda dos senhores para um painel de acompanhamento de nota fiscais. tenho na minha máquina uma planilha excel compartilhada com o setor de portaria para podermos acompanhar o recebimento de notas fiscais, gostaria de transformar isso em uma Api por exemplo, porém não tenho conhecimento o bastante sobre. por onde devo começar?
  5. Bom dia! estou desenvolvendo o código abaixo para copiar as informações de de uma tabela do SAP e colar no Excel, Já consegui com o código abaixo realizar essa ação, porém a função "SelectedRows" só me deixa copiar uma quantidade predeterminada de linhas, e a tabela que estou trabalhando tem essa quantidade variável, como eu poderia realizar essa ação? Sub Macro1() ' If Not IsObject(Applic) Then Set SapGuiAuto = GetObject("SAPGUI") Set Applic = SapGuiAuto.GetScriptingEngine End If If Not IsObject(Connection) Then Set Connection = Applic.Children(0) End If If Not IsObject(session) Then Set session = Connection.Children(0) End If If IsObject(WScript) Then WScript.ConnectObject session, "on" WScript.ConnectObject Applic, "on" End If session.FindById("wnd[0]").resizeWorkingPane 133, 37, False session.FindById("wnd[0]/usr/cntlGRID1/shellcont/shell/shellcont[1]/shell").CurrentCellRow = 3 session.FindById("wnd[0]/usr/cntlGRID1/shellcont/shell/shellcont[1]/shell").SelectedRows "0-11" 'COPIA SOMENTE AS 12 PRIMEIRAS LINHAS session.FindById("wnd[0]/usr/cntlGRID1/shellcont/shell/shellcont[1]/shell").contextMenu session.FindById("wnd[0]/usr/cntlGRID1/shellcont/shell/shellcont[1]/shell").selectContextMenuItemByPosition "0" Range("B1").Select ActiveSheet.Paste End Sub
  6. @MidoriAgradeço imensamente, funcionou, só resta formatar o tamanho
  7. @Midori Bom dia Midori! coloquei o seu código logo após a parte onde eu defino a dimensão da imagem, porém ele da o erro de Variável não definida para o "Recortar", onde eu errei? With .Parent .Height = tmpImg.Height + margem .Width = tmpImg.Width + margem End With End With Set Recortar = tmpChart.Shapes("chart") Recortar.PictureFormat.Crop.PictureOffsetY = -100 Recortar.PictureFormat.Crop.ShapeHeight = 300 Recortar.PictureFormat.Crop.ShapeWidth = 300 'localização e nome do ficheiro de imagem fJPG = ThisWorkbook.Path & _ "\imagem_" & Format(Now, "ddmmyyyy_hhmmss") & ".jpg" 'exportar grafico tmpChart.Export Filename:=fJPG, FilterName:="jpg" 'eliminar a folha temporaria sem avisos Application.DisplayAlerts = False tmpSheet.Delete Application.DisplayAlerts = True 'repor o estado normal Application.ScreenUpdating = True 'aviso de operação terminada MsgBox "Imagem exportada para o ficheiro:" & fJPG, _ vbInformation, _ "Exportar para JPG" GoTo Fim
  8. Bom dia! o código abaixo gera um print do formulário como um todo, gostaria de limitar o recorte a informação dentro do Frame Private Sub Bt_Print_Click() Dim tmpSheet As Worksheet Dim tmpChart As ChartPasta1.rar Dim tmpImg As Object Dim fJPG As String Dim margem As Integer On Error GoTo erro Application.DisplayAlerts = False Application.ScreenUpdating = False DoEvents keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY, 0 keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY, 0 keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0 keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0 DoEvents 'impede que se veja a acção acelerando o procedimento de cópia 'e exportação Application.ScreenUpdating = False 'uma folha para colocarmos o grafico sem atrapalhar o resto Set tmpSheet = Worksheets.Add 'colocar um grafico nesta nova folha Charts.Add 'definições essenciais ao grafico, para que fique numa worksheet 'e não numa folha grafico ActiveChart.Location Where:=xlLocationAsObject, Name:=tmpSheet.Name Application.Wait Now + TimeValue("00:00:01") Set tmpChart = ActiveChart With tmpChart .Paste Set tmpImg = Selection With .ChartArea '---------> '(não essencial ao funcionamento da rotina) 'coloca um degrade no fundo do grafico .Fill.OneColorGradient _ Style:=msoGradientHorizontal, _ Variant:=1, _ Degree:=0.231372549019608 '<---------- 'sem linha de rebordo .Border.LineStyle = xlNone End With 'configurar a area do grafico acrescentando 'uma pequena borda ao redor da imagem centrando esta margem = 2000 With .Parent .Height = tmpImg.Height + margem .Width = tmpImg.Width + margem End With End With 'localização e nome do ficheiro de imagem fJPG = ThisWorkbook.Path & _ "\imagem_" & Format(Now, "ddmmyyyy_hhmmss") & ".jpg" 'exportar grafico tmpChart.Export Filename:=fJPG, FilterName:="jpg" 'eliminar a folha temporaria sem avisos Application.DisplayAlerts = False tmpSheet.Delete Application.DisplayAlerts = True 'repor o estado normal Application.ScreenUpdating = True 'aviso de operação terminada MsgBox "Imagem exportada para o ficheiro:" & fJPG, _ vbInformation, _ "Exportar para JPG" GoTo Fim erro: MsgBox "Erro: " & Err.Description, _ vbCritical, _ "Erro: " & Err.Number Fim: Set tmpSheet = Nothing Set tmpChart = Nothing Set tmpImg = Nothing 'Unload Me End Sub
  9. @Midori Funcionou perfeitamente, agradeço muito
  10. exemplo.rar Bom dia! preciso fazer com que a imagem de fundo de uma frame mude conforme o valor presente em txt_licenciadora coloquei os arquivos na mesma pagina, os nomes estão corretos, porém a imagem não é carregada. Agradeço qualquer ajuda. Dim Img As String Dim jpg As String Dim Caminho As String Caminho = ThisWorkbook.Path & Application.PathSeparator Img = Me.txt_licenciadora.Value 'Considerando que a textbox vai receber um valor que será o mesmo nome da imagem... On Error GoTo Fim Me.Frame.Picture = LoadPicture(Caminho & Img & jpg) Fim: Exit Sub
  11. Bom dia! o código abaixo trás as informações de descrição, quantidade. numeração, lançamento, licenciadora, valor e imagem com base no que for lançado em Código do produto, porém a imagem não está vindo. Agradeço qualquer ajuda Private Sub ID_Exit(ByVal Cancel As MSForms.ReturnBoolean) On Error GoTo ERRO01: Columns("A:A").Select Selection.Find(What:=ID.Value, After:=ActiveCell, LookAt:=xlWhole).Activate Produto.Value = ActiveCell(1, 2).Value lbl_numeração = ActiveCell(1, 3).Value lbl_lançamento = ActiveCell(1, 4).Value lbl_licenciadora = ActiveCell(1, 5).Value lbl_valor_unit = Format(ActiveCell(1, 8).Value, "###,##0.00") Exit Sub ERRO01: MsgBox "Produto não cadastrado." End Sub Function retornaProduto(ByVal vCodigo As String) 'Desabilitamos a atualização de tela Application.ScreenUpdating = False 'Selecionamos a Planilha que contém a base de dados With ThisWorkbook.Sheets("Gibis") .Activate 'Seleciona a Coluna onde os ID's estão cadastrados Columns(1).Select 'Se houver erro, vá para o tratamento On Error GoTo ND 'Pesquisamos pelo código informado Selection.Find(vCodigo, ActiveCell, xlValues, xlWhole, xlByRows, xlNext).Activate 'Gravamos ou atualizamos o caminho completo da Imagem na coluna L Cells(ActiveCell.Row, "L") = CStr(ThisWorkbook.Path & "\Imagens\Gibis\" & vCodigo & ".jpg") 'Seleciona a célula onde o produto foi localizado Cells(ActiveCell.Row, "A").Select 'Preenchemos os campos do UserForm With Busca .ID = vCodigo .Produto = Cells(ActiveCell.Row, "B") .Image1.PictureSizeMode = fmPictureSizeModeStretch .Image1.Picture = LoadPicture(Cells(ActiveCell.Row, "L")) End With ND: If Err = 91 Then 'Se o erro for 91 (não encontrado), informamos sobre o erro MsgBox "O produto " & vCodigo & " não existe ou não foi cadastrado!", vbCritical, "Erro" 'E limpamos o formulário Busca.ID = "" Busca.Produto = "" Busca.Image1.Picture = Nothing End If End With 'Habilitamos a atualização de tela Application.ScreenUpdating = True End Function
  12. @Midori Tentei desta forma, porém não consegui que ele reconhece-se as duas abas. funciona perfeitamente se eu estiver trabalhando só com uma variável, com duas não consegui, alguma dica?
  13. Bom dia! eu tenho o código abaixo para realizar a função de PROCV na aba "Historia" no entanto da forma que fiz o código não reconhece o intervalo onde deveria estar as variáveis "GIBIS ou LIVROS, como posso fazer para selecionar o intervalo de "G" que tenha informação e que reconheça o valor em cada célula? exemplo; G2 = GIBIS, G3= LIVROS, G4 GIBIS etc.
  14. @Midori porque no arquivo final eu tenho outras duas abas referentes as vendas de Revistas e Livros que jogam os dados para Histórico. quanto ao meu problema eu percebi que posso contornar ao gerar identificações diferentes para os numerais repetidos, por exemplo se eu tiver um código de produto 1 em revistas, e 1 em livros, ao ir para o relatório ele deveria ficar como 1 e 1A. como eu posso fazer com que o código identifique a repetição e inclua esse diferencial?

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