Ir ao conteúdo
  • Cadastre-se
Tulhio

Excel Copiar valores do Excel e colar em um arquivo TXT

Recommended Posts

Galera, estou com um problema bem parecido.

 

bom, tenho uma planilha de solicitação de verbas a qual o usuário upa a mesma na nossa intranet.

Após upar a planilha eu abro ela e utilizo o atalho para a Macro que tem a seguinte função

 

desbloqueia a planilha -> torna visível a aba que eu quero ver -> atualiza a dinâmica -> faz a fórmula que preciso que esta vinculada a dinâmica atualizada -> copia as informações e abre o notepad.

 

Ai vem o problema. Como eu colo essa informação do excel (que no caso é apenas um intervalo, não é a planilha inteira. Exemplo são as informações de D3:D7) no bloco de notas e faço o bloco de notas salvar essa informação com um nome que eu vou destinar a uma célula em um local que vou deixar nomeado em uma célula também.

 

é possível isso??

Sub Desproteger_Atualizar()
'
' Macro4 Macro
'
' Atalho do teclado: Ctrl+Shift+D
'
    ActiveSheet.Unprotect "xxx"
    ActiveWorkbook.Unprotect "xxx"
    Sheets("Principal").Select
    Sheets("Etapa 2").Visible = True
    Sheets("Etapa 2").Select
    Range("A3").Select
    ActiveSheet.PivotTables("Tabela dinâmica1").PivotCache.Refresh
    Selection.End(xlToRight).Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(-1, 2).Select
    LFin = ActiveCell.Row
    Range("D" & LFin).Select
    ActiveCell.FormulaR1C1 = "=IF(OR(RC[-2]="""",RC[-2]=""(vazio)""),"""",RC[-2])"
    Selection.Copy
    Range("D4", "D" & LFin).Select
    Range("D" & LFin).Activate
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Copy
    Shell ("notepad")

 

 

 

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

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





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

×