Boa tarde,
Estou precisando de ajuda para realizar uma macro para agilizar um trabalho que tenho que fazer.
Trata-se de uma planilha com vários códigos e algumas descrições .
Eu preciso que uma macro copie cada linha e cole em uma nova pasta do excel.
Exemplo: linha 2 copia e em uma nova pasta, e assim por diante. Se a planilha tiver 20 linhas, será necessário colocar copiar cada uma delas para uma nova pasta, ou seja 20 pastas.
Eu tentei criar uma macro, porém quando eu executo, ocorre um loop infinito e a planilha trava
"
Sub Salvar()
Application.ScreenUpdating = False
Range(Cells(2, 2), Cells(2, 6)).Select
Do
If ActiveCell <> "" Then
Range(Cells(2 + 1, 2), Cells(2 + 1, 6)).Select
End If
Loop Until ActiveCell = ""
Selection.Copy
Workbooks.Add
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub
"
Copiar linhas.xlsx