Ir ao conteúdo
  • Cadastre-se

felipe de sousa ferreira

Membros Juniores
  • Total de itens

    6
  • Registro em

  • Última visita

  • Qualificações

    N/D
  1. 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.
  2. 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.
  3. @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
  4. 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
  5. Boa tarde amigo, fiz como mencionado acima e o código não funcionou ! poderia me ajudar a resolver esse problema ?
  6. 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

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações 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

×