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.