Anderson Alves de Souza

Bom dia, Depois de muita pesquisa e troca de informações com alguns amigos, consegui parte da solução para meus questionamentos, mas ainda preciso da ajuda de vocês aqui do Clube para concluir este projeto, como expliquei na postagem anterior é uma ajuda para minha esposa no acompanhamento de seus pacientes. O Código ficou assim: Sub Nova_Aba_1() ' ' Nova_Aba_1 Macro ' ' Windows("x12abc.xls").Activate Sheets("modelo").Select Sheets("modelo").Copy Before:=Sheets(2) Windows("x12pacientes.xls").Activate Range("C5").Select Selection.Copy Windows("x12abc.xls").Activate Sheets("modelo (2)").Select Sheets("modelo (2)").Name = "123 da Silva 4" Range("A3").Select Application.CutCopyMode = False ActiveWorkbook.Save Windows("x12paciente.xls").Activate End Sub Mas a linha em NEGRITO ainda precisa de ajustes (que não sei como fazer), esta deverá conter a informação da célula C5 e quando alguma alteração for feita a aba deverá acompanhar esta mudança. Mais uma vez obrigado pela atenção.

Bom dia, Sou novato nesta ferramenta e gostaria muito de ajuda dos feras para solucionar algumas dúvidas. Estou criando uma planilha para minha esposa acompanhar seus pacientes e funciona mais ou menos assim: Em uma aba temos: Uma tabela com diversas linhas, o que preciso é criar uma Macro para gerar uma nova aba (pode ser em um novo arquivo) para cada paciente, encontrei este código: Sub CriaNomeiaHyper() Dim planBase, planNova As String Dim plan As Worksheet, flg As Boolean planBase = ActiveSheet.Name planNova = ActiveSheet.Range("c5").Value If planNova = "" Then MsgBox "insira em A1 o nome desejado para a nova planilha" Exit Sub End If For Each plan In Worksheets If plan.Name Like planNova Then flg = True: Exit For Next If flg = True Then MsgBox "já existe a planilha " & "'" & _ planNova & "'" & ", altere o nome desejado" Else Worksheets.Add(after:=Sheets(Sheets.Count)).Name = planNova ActiveSheet.Hyperlinks.Add Anchor:= _ Sheets(planBase).Range("A1"), Address:="", _ SubAddress:="'" & ActiveSheet.Name _ & "'!A1", TextToDisplay:=ActiveSheet.Name End If End Sub Esta macro funciona perfeitamente, mas só com primeiro paciente, na segunda linha não consigo fazê-la funcionar. E outra coisa que preciso é que esta nova planilha aberta tenha um modelo específico com a formatação e informações pré estabelecidas, se isto é possível. Obrigado. DIETA.xls