Este fórum está sendo desativado

[valdabr]

caros amigos bom dia, estou comum pequeno problema não consigo copiar e mover para o final a planilha valdecir nesse arquivo em anexo, não sei se é pelo fato de haver macros, porém precisava desse recurso, será que é possível ?

[alexandrevba]

Boa tarde!!

Eu não entendi o que quer, mas leia:
https://msdn.microsoft.com/en-us/librar ... 34742.aspx

Código: Selecionar todos

Sub AleVBA_192()
    Worksheets("DADOS").Move after:=Worksheets("VALDECIR")
End Sub

Att

[valdabr]

desculpe a minha falta de atenção, gostaria de copiar a planilha valdecir para poder aproveitar a formatação porém com novos nomes para mesma pasta de trabalho, pois ela é a uníca que não consigo copiar !

[alexandrevba]

Boa tarde!!

Lembre se de usar o Gravador de Macros

Código: Selecionar todos

Sub Macro2()
' Macro2 Macro
'
Dim nomeGuia As String

    Sheets("VALDECIR").Select
    Range("A1:I7").Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Paste
    Cells.Select
    Cells.EntireColumn.AutoFit
    Columns("K:K").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.EntireColumn.Hidden = True
    Rows("7:7").Select
    Range("B6").Activate
    Range(Selection, Selection.End(xlDown)).Select
    Selection.EntireRow.Hidden = True
    nomeGuia = Application.InputBox("Digite o nome da guia")
    [A1].Value = nomeGuia
    ActiveSheet.Name = nomeGuia
End Sub

Agora edite seu código.

Att