Leonardohd

Está dando problema só no hiperlink, não sei como fazer puxar para a planilha nova criada que cada vez terá um nome diferente Sub novo() ' ' novo Macro ' ' Sheets("Orçamento").Select ActiveSheet.Buttons.Add(370.5, 69, 65.25, 23.25).Select ActiveSheet.Buttons.Add(439.5, 69, 54.75, 23.25).Select ActiveSheet.Buttons.Add(370.5, 69, 65.25, 23.25).Select ActiveSheet.Buttons.Add(439.5, 69, 54.75, 23.25).Select ActiveSheet.Buttons.Add(370.5, 69, 65.25, 23.25).Select ActiveSheet.Buttons.Add(439.5, 69, 54.75, 23.25).Select ActiveSheet.Buttons.Add(370.5, 69, 65.25, 23.25).Select ActiveSheet.Buttons.Add(439.5, 69, 54.75, 23.25).Select Sheets("Orçamento").Copy After:=Sheets(5) Range("A1").Select ActiveCell.FormulaR1C1 = "=RC[1]" Range("A2").Select Sheets("Orçamento").Select ActiveWindow.ScrollRow = 2 ActiveWindow.ScrollRow = 3 ActiveWindow.ScrollRow = 7 ActiveWindow.ScrollRow = 11 ActiveWindow.ScrollRow = 16 ActiveWindow.ScrollRow = 19 ActiveWindow.ScrollRow = 22 ActiveWindow.ScrollRow = 23 ActiveWindow.ScrollRow = 24 ActiveWindow.ScrollRow = 26 ActiveWindow.ScrollRow = 27 ActiveWindow.ScrollRow = 28 ActiveWindow.ScrollRow = 29 ActiveWindow.ScrollRow = 30 ActiveWindow.ScrollRow = 32 ActiveWindow.ScrollRow = 33 ActiveWindow.ScrollRow = 34 ActiveWindow.ScrollRow = 35 ActiveWindow.ScrollRow = 36 ActiveWindow.ScrollRow = 38 ActiveWindow.ScrollRow = 39 ActiveWindow.ScrollRow = 40 ActiveWindow.ScrollRow = 42 ActiveWindow.ScrollRow = 43 ActiveWindow.ScrollRow = 44 ActiveWindow.ScrollRow = 45 ActiveWindow.ScrollRow = 46 ActiveWindow.ScrollRow = 47 ActiveWindow.ScrollRow = 48 ActiveWindow.ScrollRow = 49 ActiveWindow.ScrollRow = 50 ActiveWindow.ScrollRow = 51 ActiveWindow.ScrollRow = 52 Range("J67").Select Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove ActiveCell.FormulaR1C1 = "=R[-66]C[-8]" Range("J67").Select Selection.Copy Range("K67").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("L65").Select Application.CutCopyMode = False Sheets("Orç. Andamento").Select Rows("8:8").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("B8").Select ActiveCell.FormulaR1C1 = "0" Range("B8").Select ActiveCell.FormulaR1C1 = "=Orçamento!R[59]C[9]" Range("B8").Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ "B1" Sheets("Orçamento").Select ActiveWindow.ScrollRow = 51 ActiveWindow.ScrollRow = 23 ActiveWindow.ScrollRow = 4 ActiveWindow.ScrollRow = 1 Range("B1").Select Selection.ClearContents Range("A9").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlDown)).Select Selection.ClearContents Range("C9:D9").Select Range(Selection, Selection.End(xlDown)).Select Selection.ClearContents Sheets("Orç. Andamento").Select End Sub

Bom dia, estou tentando criar uma macro para copiar uma planilha existente (Orçamento) e criar uma aba nova (ou copiar as celulas e colar na nova aba criada),onde o nome desta aba será o nome que estiver em uma célula Quero também que após criada a aba, crie uma linha nova em uma tabela e coloque o nome da nova aba (orç1, por exemplo) em outra planilha (Orç. em Andamento) e passe a ser um hiperlink para esta nova aba (orç1). Fiz varias macros mas estou sempre travando na parte do hiperlink, irei anexar o arquivo que estou mexendo aqui, para entender melhor são esses passos que quero seguir: Ao clicar no botão na planilha "Orçamento" quero que crie uma nova aba com o nome que eu colocar em uma celula na planilha Orçamento e depois gere uma linha nova na planilha Orçamento em Andamento com hiperlink dessa nova aba Modelo Orçamento.xls

@PedraX Muito boa recomendação, agradeço muito! vou seguir como falou, mas como seria esse procedimento de recuperação? Em relação ao notebook, ele é bom? vale a pena melhora-lo invés de comprar algum outro? tenho ele a 5 anos, uso para trabalho. adicionado 7 minutos depois encontrei a restauração...

@PedraX

Muito obrigado pela ajuda!! Mas estou muito convencido a comprar um ssd e posteriormente melhorar a memória, que meu notebook demora muito para abrir qualquer coisa, até pastas normais...

como faço pra ver qual memória é compatível? Achei esses ssd, será que são bons? qual é o melhor...

Meu sistema é esse: Achei no site da kabum esse SSD: HD Toshiba SATA 3.5´ P300 1TB 7200RPM 64MB Cache SATA 6.0Gb/s HDWD110XZSTA por 258 reais, será que esse SSD é bom e o site é confiável? parece que está muito mais barato que em outros.