felipe de sousa ferreira

Prezados, um bom dia, uma boa tarde e uma boa noite a todos ! é o seguinte, eu tenho a seguinte base em anexo em meu google planilhas, o gráfico que eu desejo criar é este abaixo: A questão é, para ficar mais fácil o gerencialmento, desejo criar uma dashboard no google studio, mas não consigo criar o mesmo gráfico pois o data studio não entende a coluna D que é o TMA, que é a linha no gráfico ... Segue mais detalhes abaixo: BASE.xlsx

Boa tarde a todos A empresa onde eu trabalho usa o sistema CRM (People soft) como sistema para administrar protocolos. Eu preciso criar uma planilha onde eu esteja conectado com o banco de dados deste site para eu administrar os protocolos em tempo real. O antigo funcionário que cuidava disso foi demitido e o mesmo não quis me ensinar como ele fez essa conexão ... eu só sei que foi através do SQL ... POR FAVOR ME AJUDEM POIS É UMA OPORTUNIDADE QUE EU NÃO POSSO PERDER. Usamos o excel 2010 na empresa.

Bom dia a todos, queria saber se é possível bloquear uma planilha que contem gráficos dinâmicos que estão diretamente ligados a uma tabela dinâmica em outra planilha. O problema é que ao bloquear, os botões do gráfico para de funcionar.

Boa noite a todos, estou na reta final da criação de uma analise, porém ultimamente tive vários problemas na questão de bloquear uma planilha que no caso possui gráficos dinâmicos. minha duvida é a seguinte, como bloquear uma planilha deixando os botões do gráfico dinâmico funcionando ? pois todos os modos de bloqueio acaba impedindo o usuário de usar os botões de filtros no gráfico. lembrando que os gráficos estão condicionados as tabelas dinâmicas de outra planilha.

@CasaDoHardware Depois de algumas modificações percebi que tinha um erro no código, por isso apresentava um certo erro. Após as alterações recomendadas, o código rodou ! Obrigado pela ajuda amigo. #Gratidãototal

Boa tarde pessoal, irei explicar o funcionamento da planilha pois acredito que vocês não interpretaram da forma correta. Eu criei um código para extrair e colar determinadas colunas para diferentes pastas de trabalho no Excel, ou seja utilizarei duas planilhas. O código é executado quando clico sobre a user form (ATUALIZAR) assim acontece os seguintes comando: 1º: A planilha seleciona a ultima linha preenchida, logo em seguida pula uma linha. 2º: logo em seguida apresenta a pasta explorer para eu selecionar o arquivo desejado para exportar as informações desejadas 3º: Após selecionar o arquivo desejado, o mesmo copia e cola as informações desejadas na pasta de trabalho "PROJETO_ANALISE FAC CENTRO" O problema é, quando eu estava criando o código eu usei uma planilha como base chamada " Atividades-CO FAC 07 05 18 ", assim o código só funciona selecionando apenas esta planilha. O correto seria funcionar em qualquer arquivo que eu selecionar. Como resolver isso ? o código está logo abaixo. Sub DESCER_LINHA() ' ' TESTE Macro ' ' Range("A65536").End(xlUp).Select ActiveSheet.Cells(ActiveCell.Row + 1, ActiveCell.Column).Select Dim importFileName As Variant Dim importWorkbook As Workbook Dim importSheet As Worksheet Dim importRange As Range 'mostre o diálogo aberto do arquivo importFileName = Application.GetOpenFilename(FileFilter:="Arquivo do Excel (*.xml; *.xlsx), *.xls;*.xlsx", Title:="Escolha um arquivo do Excel") ' se o usuário pressionou cancelar buton: exit If importFileName = False Then Exit Sub Application.ScreenUpdating = False ' se o usuário selecionou um arquivo excel, abra-o Set importWorkbook = Application.Workbooks.Open(importFileName) Set importSheet = importWorkbook.Worksheets(1) ' processo de exportação das colunas desejadas Range("A2").Select ActiveCell.FormulaR1C1 = "FRANCA" Range("A2:C2").Select Range(Selection, Selection.End(xlDown)).Select ActiveWindow.SmallScroll Down:=-39 ActiveWindow.ScrollRow = 1137 ActiveWindow.ScrollRow = 1129 ActiveWindow.ScrollRow = 1052 ActiveWindow.ScrollRow = 1016 ActiveWindow.ScrollRow = 852 ActiveWindow.ScrollRow = 711 ActiveWindow.ScrollRow = 667 ActiveWindow.ScrollRow = 460 ActiveWindow.ScrollRow = 440 ActiveWindow.ScrollRow = 319 ActiveWindow.ScrollRow = 291 ActiveWindow.ScrollRow = 205 ActiveWindow.ScrollRow = 172 ActiveWindow.ScrollRow = 117 ActiveWindow.ScrollRow = 103 ActiveWindow.ScrollRow = 70 ActiveWindow.ScrollRow = 59 ActiveWindow.ScrollRow = 50 ActiveWindow.ScrollRow = 42 ActiveWindow.ScrollRow = 39 ActiveWindow.ScrollRow = 36 ActiveWindow.ScrollRow = 34 ActiveWindow.ScrollRow = 31 ActiveWindow.ScrollRow = 28 ActiveWindow.ScrollRow = 25 ActiveWindow.ScrollRow = 23 ActiveWindow.ScrollRow = 20 ActiveWindow.ScrollRow = 14 ActiveWindow.ScrollRow = 9 ActiveWindow.ScrollRow = 3 ActiveWindow.ScrollRow = 1 Range("A2:C1203,F2").Select Range("F2").Activate Range(Selection, Selection.End(xlDown)).Select ActiveWindow.SmallScroll Down:=3 Range("A2:C2").Select Range(Selection, Selection.End(xlDown)).Select ActiveWindow.SmallScroll Down:=3 Selection.Cut ActiveWindow.SmallScroll Down:=-15 Windows("PROJETO_ANALISE FAC CENTRO.xlsm").Activate ActiveSheet.Paste Range("D2125").Select Windows("Atividades-CO_FAC_07_05_18.xml").Activate Range("F2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Cut Windows("PROJETO_ANALISE FAC CENTRO.xlsm").Activate Range("D2125").Select ActiveSheet.Paste Range("E2125").Select Windows("Atividades-CO_FAC_07_05_18.xml").Activate Range("H2:I2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Cut Windows("PROJETO_ANALISE FAC CENTRO.xlsm").Activate Range("E2125").Select ActiveSheet.Paste Range("G2125").Select Windows("Atividades-CO_FAC_07_05_18.xml").Activate Range("S2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Cut Windows("PROJETO_ANALISE FAC CENTRO.xlsm").Activate ActiveSheet.Paste Range("H2125").Select Windows("Atividades-CO_FAC_07_05_18.xml").Activate Range("Y2").Select Range(Selection, Selection.End(xlDown)).Select ActiveWindow.SmallScroll Down:=3 Selection.Cut Windows("PROJETO_ANALISE FAC CENTRO.xlsm").Activate ActiveSheet.Paste Range("I2125").Select Windows("Atividades-CO_FAC_07_05_18.xml").Activate Range("AI2:AJ2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Cut Windows("PROJETO_ANALISE FAC CENTRO.xlsm").Activate ActiveSheet.Paste Range("K2125").Select Windows("Atividades-CO_FAC_07_05_18.xml").Activate Range("AN2:AP2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Cut Windows("PROJETO_ANALISE FAC CENTRO.xlsm").Activate Range("K2125").Select ActiveSheet.Paste Range("N2125").Select Windows("Atividades-CO_FAC_07_05_18.xml").Activate Range("AR2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Cut Windows("PROJETO_ANALISE FAC CENTRO.xlsm").Activate Range("N2125").Select ActiveSheet.Paste Range("O2125").Select Windows("Atividades-CO_FAC_07_05_18.xml").Activate Range("AZ2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Cut Windows("PROJETO_ANALISE FAC CENTRO.xlsm").Activate Range("O2125").Select ActiveSheet.Paste Windows("Atividades-CO_FAC_07_05_18.xml").Activate ActiveWindow.Close End Sub

Boa tarde amigo, fiz como mencionado acima e o código não funcionou ! poderia me ajudar a resolver esse problema ?

Boa noite, criei um código para exportar dados entre pastas de trabalho diferentes, porém o código só funciona em uma planilha chamada Atividades-CO FAC 07 05 18.xml. Como fazer o código funcionar em qualquer planilha que eu abrir ? segue abaixo o código Sub DESCER_LINHA() ' ' TESTE Macro ' ' Range("A65536").End(xlUp).Select ActiveSheet.Cells(ActiveCell.Row + 1, ActiveCell.Column).Select Dim importFileName As Variant Dim importWorkbook As Workbook Dim importSheet As Worksheet Dim importRange As Range 'mostre o diálogo aberto do arquivo importFileName = Application.GetOpenFilename(FileFilter:="Arquivo do Excel (*.xml; *.xlsx), *.xls;*.xlsx", Title:="Escolha um arquivo do Excel") ' se o usuário pressionou cancelar buton: exit If importFileName = False Then Exit Sub Application.ScreenUpdating = False ' se o usuário selecionou um arquivo excel, abra-o Set importWorkbook = Application.Workbooks.Open(importFileName) Set importSheet = importWorkbook.Worksheets(1) ' processo de exportação das colunas desejadas Range("A2").Select ActiveCell.FormulaR1C1 = "FRANCA" Range("A2:C2").Select Range(Selection, Selection.End(xlDown)).Select ActiveWindow.SmallScroll Down:=-39 ActiveWindow.ScrollRow = 1137 ActiveWindow.ScrollRow = 1129 ActiveWindow.ScrollRow = 1052 ActiveWindow.ScrollRow = 1016 ActiveWindow.ScrollRow = 852 ActiveWindow.ScrollRow = 711 ActiveWindow.ScrollRow = 667 ActiveWindow.ScrollRow = 460 ActiveWindow.ScrollRow = 440 ActiveWindow.ScrollRow = 319 ActiveWindow.ScrollRow = 291 ActiveWindow.ScrollRow = 205 ActiveWindow.ScrollRow = 172 ActiveWindow.ScrollRow = 117 ActiveWindow.ScrollRow = 103 ActiveWindow.ScrollRow = 70 ActiveWindow.ScrollRow = 59 ActiveWindow.ScrollRow = 50 ActiveWindow.ScrollRow = 42 ActiveWindow.ScrollRow = 39 ActiveWindow.ScrollRow = 36 ActiveWindow.ScrollRow = 34 ActiveWindow.ScrollRow = 31 ActiveWindow.ScrollRow = 28 ActiveWindow.ScrollRow = 25 ActiveWindow.ScrollRow = 23 ActiveWindow.ScrollRow = 20 ActiveWindow.ScrollRow = 14 ActiveWindow.ScrollRow = 9 ActiveWindow.ScrollRow = 3 ActiveWindow.ScrollRow = 1 Range("A2:C1203,F2").Select Range("F2").Activate Range(Selection, Selection.End(xlDown)).Select ActiveWindow.SmallScroll Down:=3 Range("A2:C2").Select Range(Selection, Selection.End(xlDown)).Select ActiveWindow.SmallScroll Down:=3 Selection.Cut ActiveWindow.SmallScroll Down:=-15 Windows("PROJETO_ANALISE FAC CENTRO.xlsm").Activate ActiveSheet.Paste Range("D2125").Select Windows("Atividades-CO_FAC_07_05_18.xml").Activate Range("F2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Cut Windows("PROJETO_ANALISE FAC CENTRO.xlsm").Activate Range("D2125").Select ActiveSheet.Paste Range("E2125").Select Windows("Atividades-CO_FAC_07_05_18.xml").Activate Range("H2:I2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Cut Windows("PROJETO_ANALISE FAC CENTRO.xlsm").Activate Range("E2125").Select ActiveSheet.Paste Range("G2125").Select Windows("Atividades-CO_FAC_07_05_18.xml").Activate Range("S2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Cut Windows("PROJETO_ANALISE FAC CENTRO.xlsm").Activate ActiveSheet.Paste Range("H2125").Select Windows("Atividades-CO_FAC_07_05_18.xml").Activate Range("Y2").Select Range(Selection, Selection.End(xlDown)).Select ActiveWindow.SmallScroll Down:=3 Selection.Cut Windows("PROJETO_ANALISE FAC CENTRO.xlsm").Activate ActiveSheet.Paste Range("I2125").Select Windows("Atividades-CO_FAC_07_05_18.xml").Activate Range("AI2:AJ2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Cut Windows("PROJETO_ANALISE FAC CENTRO.xlsm").Activate ActiveSheet.Paste Range("K2125").Select Windows("Atividades-CO_FAC_07_05_18.xml").Activate Range("AN2:AP2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Cut Windows("PROJETO_ANALISE FAC CENTRO.xlsm").Activate Range("K2125").Select ActiveSheet.Paste Range("N2125").Select Windows("Atividades-CO_FAC_07_05_18.xml").Activate Range("AR2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Cut Windows("PROJETO_ANALISE FAC CENTRO.xlsm").Activate Range("N2125").Select ActiveSheet.Paste Range("O2125").Select Windows("Atividades-CO_FAC_07_05_18.xml").Activate Range("AZ2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Cut Windows("PROJETO_ANALISE FAC CENTRO.xlsm").Activate Range("O2125").Select ActiveSheet.Paste Windows("Atividades-CO_FAC_07_05_18.xml").Activate ActiveWindow.Close End Sub