Como crear una macro para guardar con el mismo nombre de la hoja en un libro nuevo
Buenos días a todos, quisiera saber si alguien puede ayudarme con lo siguiente
Deseo crear una macro que guarde en txt pero con el mismo nombre de la hoja
hasta aquí tengo avanzado la parte que va a guardar en txt
Sub Crear_Expediente()
Dim hoja As Worksheet, existe As Boolean, nueva As String
nueva = Sheets("Concatena").Range("B1")
If nueva = Empty Then Exit Sub
For Each hoja In Worksheets
If hoja.Name = nueva Then existe = True: _
MsgBox "Ya existe el expediente", vbCritical
Next hoja
If existe = False Then
Sheets.Add After:=Sheets(Sheets.Count)
With ActiveSheet
.Name = nueva
.Tab.Color = 65535
End With
Sheets("Concatena").Range("A2:A1100").Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1:C1").Select
MsgBox "Se Creo Correctamente", vbInformation
Sheets("Concatena").Select
End If
End Sub
Te regreso la macro con los cambios
Sub Crear_Expediente()
Dim hoja As Worksheet, existe As Boolean, nueva As String
nueva = Sheets("Concatena").Range("B1")
If nueva = Empty Then Exit Sub
For Each hoja In Worksheets
If hoja.Name = nueva Then existe = True: _
MsgBox "Ya existe el expediente", vbCritical
Next hoja
If existe = False Then
Sheets.Add After:=Sheets(Sheets.Count)
With ActiveSheet
.Name = nueva
.Tab.Color = 65535
End With
Sheets("Concatena").Range("A2:A1100").Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1:C1").Select
'Mod.por.DAM
ruta = ActiveWorkbook.Path
ActiveSheet.Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=ruta & "\" & nueva & ".txt", _
FileFormat:=xlUnicodeText, CreateBackup:=False
ActiveWorkbook.Close
'Mod.por.DAM
MsgBox "Se Creo Correctamente", vbInformation
Sheets("Concatena").Select
End If
End SubSaludos.Dante Amor
Si es lo que necesitas.
