guilherme.utuari

Bom dia pessoal, estou com um problema, gostaria que me ajudassem, Tenho um gráfico de dispersão que busca valores em uma tabela, porém para cada linha nesta tabela adicionei uma serie de dados ao gráfico e isto tem me gerado um problema, pois muitas vezes preciso adicionar linhas a mais na tabela e preciso adicionar manualmente ao gráfico, gostaria de saber existe um código VBA que possa buscar essa última linha criada na tabela e adiciona-la automaticámente ao gráfico de dispersão? Muito Obrigado!!

Boa tarde Pessoal. Espero que alguém possa me ajudar, tenho 5 gráficos referentes a 5 tabelas dinâmicas, porém preciso de um único filtro que altere todas as tabelas e preciso também que esse filtro seja através de uma lista suspensa. Realizei a gravação da macro, segue abaixo o código, se alguém puder me dar uma ajuda, agradeço. Sub Macro1() ' ' Macro1 Macro ' ' ActiveSheet.ChartObjects("Chart 15").Activate ActiveSheet.PivotTables(-1).PivotFields("BU").CurrentPage = "(All)" With ActiveChart.PivotLayout.PivotTable.PivotFields("BU") .PivotItems("-").Visible = False .PivotItems("(blank)").Visible = False .PivotItems("Purchasing ABO").Visible = False .PivotItems("CBS").Visible = False .PivotItems("EBU").Visible = False .PivotItems("Cor").Visible = False .PivotItems("CF ").Visible = False .PivotItems("EBU - SA ABO").Visible = False .PivotItems("NRP - CGL").Visible = False .PivotItems("Comp - SA ABO").Visible = False .PivotItems("SA ABO").Visible = False End With ActiveWindow.SmallScroll Down:=15 ActiveSheet.ChartObjects("Chart 19").Activate ActiveSheet.PivotTables(-1).PivotFields("BU").CurrentPage = "(All)" ActiveSheet.ChartObjects("Chart 13").Activate ActiveSheet.PivotTables(-1).PivotFields("BU").CurrentPage = "(All)" ActiveWindow.SmallScroll Down:=30 ActiveSheet.ChartObjects("Chart 8").Activate ActiveSheet.PivotTables(-1).PivotFields("BU").CurrentPage = "(All)" ActiveSheet.ChartObjects("Chart 9").Activate ActiveSheet.PivotTables(-1).PivotFields("BU").CurrentPage = "(All)" With ActiveChart.PivotLayout.PivotTable.PivotFields("BU") .PivotItems("-").Visible = False .PivotItems("(blank)").Visible = False .PivotItems("Purchasing ABO").Visible = False .PivotItems("CBS").Visible = False .PivotItems("EBU").Visible = False .PivotItems("Cor").Visible = False .PivotItems("CF ").Visible = False .PivotItems("EBU - SA ABO").Visible = False .PivotItems("NRP - CGL").Visible = False .PivotItems("Comp - SA ABO").Visible = False .PivotItems("SA ABO").Visible = False End With End Sub

@Basole desculpe, esqueci completamente do fórum, até o momento não tive problemas quanto a configuração das páginas, porém, é uma ótima ideia, seria muito complexo acrescentar estas medidas ao código?

@osvaldomp desculpe pelo mal entendido, não quis transferir o trabalho pra você, de maneira alguma. Peço desculpas por estar vindo e voltando ao tópico, agradeço de verdade pela ajuda. Bom, consegui resolver o problema, o que fiz errado foi simplesmente não apagar uma coluna que realizava uma espécie de "conferência" dos dados copiados. Novamente, desculpe pelo mal entendido e muito obrigado pela ajuda. Abraços.

@osvaldomp Bom dia! Cara, estou com um grande problema na planilha, quando acrescento muitos dados a planilha a macro bagunça a planilha inteira e consequentemente ocorre um erro, o que posso estar fazendo de errado? estou colocando a planilha com as informações antes de realizar a macro e após realizar. Se puder me ajudar fico muito agradecido. Obs: coloquei um botão azul "A" na aba "data base" para ativar a macro de copiar os dados. Abraços! Planilhas.zip

@Patropi desculpe, esqueci de curtir. @osvaldomp valeu cara! obrigado mesmo, ficou show!

@osvaldomp Segue o anexo da planilha com alguns exemplos de preenchimento. PROTOTYPE REPORT 2015 - REV III English.zip

@osvaldomp ficou muito bom! Apenas uma última dúvida, seria possível o vba realizar a atualização e não limpar as imagens? somente limpar a imagem caso o resto das informações for removido também?

@osvaldomp é quase isso, a única diferença é que eu não gostaria que o código limpasse os dados e sim só atualizasse se houvesse alguma mudança na aba "Data Base". Só limpasse a linha caso as opções "G" e "R" fossem alteradas para vazias ou "N/A", igual você tinha feito, colocando uma referência em uma coluna para o excel conseguir fazer esta comparação.

Bom dia Osvaldo, o código que você fez para esta planilha, busca na aba "data base" as células que contém as letras "G" e "R" e realiza uma copia para as abas "Correct" e "Failures" respectivamente, porém, o input para está copia é a própria célula, ou seja, quando seleciono na célula uma das opções "G" ou "R" ele ativa o código e faz a cópia. O problema que estou encontrando é, quando necessito realizar grandes mudanças, como por exemplo alterar 80 células com valor "G" para "R" preciso ir selecionando uma a uma para o código ser ativado e realizar a alteração, se eu "arrastar" o valor "G" ou "R" para as demais células, o código não funciona, por isso, gostaria de um código para inserir em um botão que quando eu clicasse ele vasculhasse as células na aba "Data base" e caso haja alguma mudança em alguma célula, "G" para "R" ou vice-versa ou alguma alteração nas outras células, ele atualizasse as abas "Correct" e "Failures".

@osvaldomp Desculpe voltar ao tópico novamente, porém estou com um pequeno problema, gostaria de saber se é possível adicionar um botão para realizar a atualização dos dados paras as outras abas, pois como o relatório precisa ser gerado rápido, estamos com problemas em ter que selecionar a letra "G" ou "R" em cada linha e as vezes alteramos os dados e temos que ficar alterando cada célula para ser realizada a substituição. Estou colocando a planilha em anexo. Obrigado! PROTOTYPE REPORT 2015 - REV II.zip

@Basole, Valeu cara! consegui aqui, ficou show!! valeu mesmo!

Deu certo! haha, porém só gostaria de saber como faço para alterar a borda das paginas no pdf? é necessário alterar o vba ? pois gostaria que ficasse com quase nada de borda, desculpe o transtorno, mas falta só isso e ficará perfeito, haha.

@Basole ficou perfeito o alinhamento do segundo print, fiz o download da planilha que você disponibilizou, porém não estou conseguindo fazer o mesmo, quando tento gerar o pdf ele fica como o primeiro print que você mandou, o que posso estar fazendo errado?

Ficou quase perfeito, o único detalhe seria a diferença de dimensão da página um com as outras, coloquei um print em anexo pra demonstrar como está ficando, seria possível que as páginas se enquadrassem na mesma proporção?

@Basole é quase isso rs, gostaria que a primeira aba "report" não fosse dividida em duas e que todas as paginas fossem configuradas em A4 ou relacionada, pois este relatório irá ser transformado em pdf e também impresso.

@Basole Obrigado! deu certo!

@Basole É quase isso cara, aconteceram só dois problemas, 1 - O VBA identifica todas as células formatadas, porém gostaria só que identificasse as células com dados, porém nas abas "failures" e "correct" à área de impressão precisa estar entre as colunas A:H. 2 - A aba "report" fica desconfigurada em relação as demais abas, a página fica mais "estreita", estou anexando a planilha. Obrigado pela força! Report 2015 - Foton ESN 36513214 - Copy.xlsx

Fiz as alterações porém não adiantou, não sei também o que estou fazendo de errado, outro problema que notei também, é que após adicionar a imagem a barra de rolagem volta até a primeira linha, o que as vezes dificulta se estou colando seguidas imagens em linhas muito distantes da primeira, estou anexando a planilha, no caso as abas que insiro as imagens são as "failures" e "correct", por favor, se puder ver o que fiz de errado, agradeço! Report 2015 - ESN.xlsx

Bom dia, Procurei no fórum e internet mas não encontrei algo parecido, tenho uma planilha com cinco abas, mas preciso criar um pdf contendo só as três primeiras, sendo que a segunda e a terceira variam o range, ou seja, preciso de um VBA que identifique a área de impressão de acordo com o preenchimento das abas dois e três e crie um pdf das mesmas + a primeira aba. Alguém poderia me ajudar com este problema? Att, Guilherme.

@Basole funciona perfeitamente, porém só um detalhe que estou em dúvida, toda vez em que acesso a planilha e tento adicionar uma imagem pela primeira vez, está primeira imagem é adicionada com formato real e o botão de adicionar a foto se deforma também, o que posso estar fazendo errado?

@osvaldomp deu certo! ficou show, muito obrigado!

@Basole é quase isso, mas eu gostaria que o vba identificasse qual célula eu estou selecionando e a imagem fosse inserida nesta célula, pois a célula que insiro a imagem é variável.

@osvaldomp concordo com sua sugestão, incluse em utilizar a coluna K para data base e as colunas H para as outras abas, como ficaria o código com a complementação?

Boa tarde, tenho um código VBA que inseri uma imagem em uma determinada área pré-estabelecida, aí que está minha dúvida, gostaria de alterar este código para que eu pudesse inserir a imagem na célula e que as dimensões já se enquadrassem nesta célula. Se alguém puder me ajudar, agradeço. Segue o código VBA abaixo e a planilha em anexo. Private Sub CommandButton1_Click() Dim profile As String On Error GoTo 0 Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .Filters.Clear .Filters.Add "Picture Files", "*.bmp;*.jpg;*.gif;*.png" .ButtonName = "Select" .AllowMultiSelect = False .Title = "Choose Photo" .InitialView = msoFileDialogViewDetails .Show End With ActiveSheet.Range("E3").Select With ActiveSheet.Pictures.Insert(fd.SelectedItems(1)) .Left = ActiveSheet.Range("photograph").Left + 2 .Top = ActiveSheet.Range("photograph").Top + 2 .Placement = 1 .PrintObject = True profile = .Name End With ActiveSheet.Pictures(profile).Select With Selection.ShapeRange .LockAspectRatio = msoFalse .Width = 123 .Height = 134 End With End Sub LEM_Browse_Photo.xlsx