Salvar dados específicos em outra planilha


#1

olá,

Estou precisando de uma Macro que:

1º Copie a célula B2 e cole num novo arquivo com o nome que estará na coluna A1
2º Exclua a linha 1, fazendo com que a linha 2 suba.

e assim sucessivamente com todos os dados dessa planilha.

Planilha exemplo
Planilha Exemplo

Arquivo Salvo
Arquivo Salvo

Código da Macro que tentei criar, mas sempre o arquivo salva sempre com o mesmo nome.

Sub MACROCSV()

’ MACROCSV Macro


Selection.Copy
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs Filename:=“C:\Users\Tulio\Desktop\Pasta2.xlsx”, _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
Rows(“1:1”).Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range(“B1”).Select
End Sub

Agradeço atenção de todos desde já!


#2

Boas @tuliorenatto,

Selection.Copy
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs Filename:=“C:\Users\Tulio\Desktop"& range (“A1”).value &".xlsx”,
FileFormat:=_xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
Rows(“1:1”).Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range(“B1”).Select
End Sub

Tenta com esta correcção no código.


#3

não funcionou, mas obrigado de qualquer forma. :confused:


#4

@tuliorenatto, no meu teste aqui, após alguns ajustes, funcionou:

Sub Resolver()
Dim Nome    As String
Dim Valor   As String
ActiveSheet.Range("B1").Select
If ActiveCell.Value = "" Then
Exit Sub
End If
Nome = ActiveCell.Offset(0, -1).Value
Valor = ActiveCell.Value
Workbooks.Add
ActiveCell.Value = Valor
ChDir "C:\Users\Tulio\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Users\Tulio\Desktop\" & Nome & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
ActiveSheet.Rows("1:1").Select
Selection.Delete Shift:=xlUp
End Sub

#5

@xavier não funcionou, se puder me fornecer sua planilha eu agradeceria muito.

e obrigado pela tentativa! :confused:


#6

@tuliorenatto, eu esqueci de ajeitar o endereço de acordo com o seu computador. Fiz a edição no código, agora deve funcionar.


#7

@xavier, funcionou perfeitamente!

Vou deixa essa atividade repetitiva ate onde tiver texto.

Muito obrigado!!!