Clonner

Certa vez o pessoal daqui me deu este código e até agora funciona. Sub Abrir_planilha() On Error GoTo Erro 'Sua rotina Dim FN As String 'Define o valor de FN como sendo a Celula C6 FN = Range("C6") 'Define diretório da planilha como aberto ChDir ThisWorkbook.Path 'Abre a planilha do excel cujo o nome é igual a FN Workbooks.Open Filename:=FN Exit Sub Erro: Range("C6").Select ActiveCell = "inserir aqui nome da planilha" End Sub

@Mention, Funcionou perfeitamente! Mais uma vez obrigado!

Pessoal, tenho uma tabela com 1119 linhas e 15 colunas, necessito copiar cada linha iniciando em C6:Q6, colar no intervalo C3:Q3, cópiar o resultado da célula A3 e colar o valor na célula B6. Seguir para a próxima linha copiar C7:Q7, colar no intervalo C3:Q3, copiar o resultado de A3 e colar o valor em B7. e assim sucessivamente até a última linha preenchida. Segue o que tenho: Sub Macro2() ' ' Macro2 Macro ' ' Range("C6:Q6").Select Selection.Copy Range("C3:Q3").Select ActiveSheet.Paste Range("A3").Select Application.CutCopyMode = False Selection.Copy Range("B6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub Desde já agradeço.