Tulhio

Vei se para ele não adiantou 6 anos depois. Pra mim foi uma mão na roda valeu mesmo!!!!

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")