Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  
Jéssica De Moura Lima

Outro Salvar arquivo apenas com valores de dados copiados

Recommended Posts

Prezados,

 

Desejo copiar dados de um intervalo de células, gerar outro arquivo de Excel e salvá-la em local específico.

 

Aparece "Erro em tempo de execução '1004'   O método Select da classe Range falhou" quando tento executar o código.

 

Sub Salvar_dados()

 

'Copiar e colar como valores

Sheets("Base de Contratos").Range("B12:CN100000").Select
Selection.Copy
Application.DisplayAlerts = False
Sheets("Relatório").Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Sheets("Base de Contratos").Activate


'Gerar relatório de dados

Sheets("Relatório").Copy
Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:="C:\Users\User\Documents\Relatório\" & "report" & "_" & Format(Now, "m.dd.yy hhmm") & ".xlsx"
ActiveWorkbook.Close

End Sub

 

Alguém poderia me ajudar?

Editado por Simon Viegas
Inserir tag CODE

Compartilhar este post


Link para o post
Compartilhar em outros sites

@Jéssica De Moura Lima acho que sim. 

 

Veja se é isso que deseja.

 

Sub Salvar_dados()
    Dim wbNew As Workbook
    Dim wb1 As Workbook
    Dim wsN1 As Worksheet
    
    Set wbNew = Excel.Application.Workbooks.Add(1)
    Set wb1 = ThisWorkbook
    Set wsN1 = wbNew.Sheets(1)
    
    'Copiar e colar como valores
    With wb1.Sheets("Base de Contratos")
        .Activate
        .Range("B12:CN100000").Select
        Selection.Copy
        Application.DisplayAlerts = False
        
        With wsN1
            .Activate
            .Range("A1").Select
            .Name = "Relatório"
        End With
        
        Selection.PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
        wb1.Sheets("Base de Contratos").Activate
        
        'Gerar relatório de dados
        Application.DisplayAlerts = False
        
        wbNew.SaveAs Filename:="C:\Users\User\Documents\Relatório\" & "report" & "_" & Format(Now, "m.dd.yy hhmm") & _
                               ".xlsx", FileFormat:=51
        
        Application.DisplayAlerts = True
        
        .Range("A1").Select
        
        wbNew.Close
        
    End With
End Sub

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

@Basole deu certo! Muito obrigada!!!

 

Eu também gostaria de importar os dados do relatório gerado para outra planilha, mas não está funcionando.

 

Sub Importar_dados()

Dim importado As Excel.Workbook
Set importado = Workbooks.Open("C:\Users\User\Documents\Relatório\Report.xlsx", Password:="123")

Application.ScreenUpdating = False

 

'Desbloquear guia e pasta de trabalho
ThisWorkbook.Unprotect ("123")
ActiveSheet.Unprotect ("123")

 

'Limpar guia "Relatório"
Sheets("Dados").Visible = True
Sheets("Dados").Select
Selection.ClearContents

 

'Importar relatório de dados
importado.Sheets("Relatório").Copy

ThisWorkbook.Sheets("Dados").Paste

importado.Close

 

'Bloquear guia e pasta de trabalho
ThisWorkbook.Protect Password:="123", Structure:=True, Windows:=False

Sheets("Contratos a Faturar").Protect Password:="123", _
    DrawingObjects:=True, _
    Contents:=True, _
    Scenarios:=True, _
    UserInterfaceOnly:=True, _
    AllowFormattingCells:=False, _
    AllowFormattingColumns:=False, _
    AllowFormattingRows:=True, _
    AllowInsertingColumns:=False, _
    AllowInsertingRows:=True, _
    AllowInsertingHyperlinks:=False, _
    AllowDeletingColumns:=False, _
    AllowDeletingRows:=True, _
    AllowSorting:=False, _
    AllowFiltering:=True, _
    AllowUsingPivotTables:=False

 

Application.ScreenUpdating = True

 

MsgBox "Relatório importado com sucesso!"

 

End Sub
 

Alguém sabe o que pode estar acontecendo?

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário






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

×