Eri França

Agradeço o interesse amigo, Segue o arquivo que estou trabalhando, trata-se de um identificador de produtos, caso o EAN bipado não seja cadastrado abre o SAP e busca os dados necessarios, no entanto não consgo fazer isso sem fechar a tela em que estou trabalhando IDENTIFICADOR.zip

olá a todos! estou trabalhando o código abaixo para criar uma nova instancia com /oMM60 sem fechar as que á estão abertas, no entanto fica apresentando erro de THE CONTROL COULD NOT BE FOUND BY ID no trecho Session.findById("wnd[1]/usr/tabsG_SELONETABSTRIP/tabpTAB012/ssubSUBSCR_PRESEL:SAPLSDH4:0220/sub:SAPLSDH4:0220/txtG_SELFLD_TAB-LOW[0,24]").Text = Cells(3, 14) poderiam me ajudar Session.findById("wnd[0]").maximize Session.findById("wnd[0]/tbar[0]/okcd").Text = "/oMM60" Session.findById("wnd[0]").sendVKey 0 Session.findById("wnd[0]").sendVKey 4 Session.findById("wnd[1]/usr/tabsG_SELONETABSTRIP/tabpTAB012/ssubSUBSCR_PRESEL:SAPLSDH4:0220/sub:SAPLSDH4:0220/txtG_SELFLD_TAB-LOW[0,24]").Text = Cells(3, 14) 'BIPAR EAN Session.findById("wnd[1]/tbar[0]/btn[0]").press Session.findById("wnd[1]").sendVKey 14 Session.findById("wnd[2]/tbar[0]/btn[0]").press Session.findById("wnd[2]/usr/ctxtDY_PATH").Text = "C:\temp" Session.findById("wnd[2]/usr/ctxtDY_FILENAME").Text = "EAN.txt" Session.findById("wnd[2]/usr/ctxtDY_PATH").SetFocus Session.findById("wnd[2]/usr/ctxtDY_PATH").caretPosition = 7 Session.findById("wnd[2]/tbar[0]/btn[0]").press Session.findById("wnd[2]/tbar[0]/btn[11]").press Session.findById("wnd[1]").Close Session.findById("wnd[0]/tbar[0]/btn[3]").press @Basole

@Basole Fico agradecido

@Basole Não funciona 100% por ser compartilhado as macros da planilha são limitadas, tentarei a solução do amigo

@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

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?

@MidoriAgradeço imensamente, funcionou, só resta formatar o tamanho

@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

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

@Midori Funcionou perfeitamente, agradeço muito

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

@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?

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.

@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?

@Midori como posso contornar isso?