MACRO - COPIAR DO EXCEL E COLAR NO BLOCO DE NOTAS

 Tópico anterior Próximo tópico Novo tópico

MACRO - COPIAR DO EXCEL E COLAR NO BLOCO DE NOTAS

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#478699 - 27/12/2017 15:03:10

TULHIO
GOIANIA
Cadast. em:Dezembro/2017


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??

Citação:
  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")




#478700 - 27/12/2017 15:11:00

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Você não precisa do bloco de notas, pode simplesmente salvar usando o FSO:

Dim caminho As String = "C:\pasta\arquivo.txt"
Dim fso as Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim oFile as Object
Set oFile = FSO.CreateTextFile(caminho)
oFile.WriteLine "seu conteúdo aqui"
oFile.Close
Set fso = Nothing
Set oFile = Nothing    


_______________________________________________________________________
Gostaria de ter seu sistema Desktop "traduzido" para uma interface web? Podemos conversar...
Virei Oráculo!
The end is nigh, be ready for the nukes!


 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário