Como pegar un rango en un libro nuevo seleccionando el rango por medio de CurrentRegion

Intento programar una macro que me jale el contenido de una hoja a un libro nuevo, seleccionando el rango por currentregion, pero al momento de pegarlo en el libro nuevo solo se trae la información de la celda A1, pego el código abajo para mayor referencia... Gracias de antemano!

Sub TXT_click()

Dim poliza As Variant

Range("F65000").End(xlUp).Offset(1, 0).Value = "Final"
Range("F1").Select
Do While ActiveCell.Value <> "Final"
If IsEmpty(ActiveCell) Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
ActiveCell.ClearContents
poliza = Sheets("Machote").Range("A1").CurrentRegion
Workbooks.Add
ActiveWorkbook.Sheets("Hoja1").Range("A1") = poliza
Sheets("Hoja1").Range("D:D").Delete
Sheets("Hoja1").Range("C1").Select
Selection.NumberFormat = "dd/mm/yyy"

ActiveWorkbook.SaveAs Filename:="C:\Users\Ec\Documents\luz\LayOut" & " " & Range("G1")
ActiveWorkbook.SaveAs Filename:="C:\Users\Ec\Documents\luz\Layout" & " " & Range("G1") & ".csv", FileFormat:=xlCSV, CreateBackup:=False

ActiveWorkbook. Close (False)

Application. Workbooks("Viri2.xlsm").Worksheets("Machote").Range("A1").CurrentRegion.ClearContents

End Sub

1 Respuesta

Respuesta
1

Te anexo la macro con la actualización para copiar la información de una hoja al libro nuevo, supongo que lo demás de la macro funciona correctamente.

Sub TXT_click()
'Act.Por.Dante Amor
    Range("F65000").End(xlUp).Offset(1, 0).Value = "Final"
    Range("F1").Select
    Do While ActiveCell.Value <> "Final"
        If IsEmpty(ActiveCell) Then
            ActiveCell.EntireRow.Delete
        Else
            ActiveCell.Offset(1, 0).Select
        End If
    Loop
    ActiveCell. ClearContents
    '
    Sheets("Machote"). UsedRange. Copy
    Workbooks. Add
    ActiveSheet. Paste
    ActiveSheet.Range("D:D").Delete
    ActiveSheet.Range("C1").Select
    Selection.NumberFormat = "dd/mm/yyy"
    '
    ActiveWorkbook.SaveAs Filename:="C:\Users\Ec\Documents\luz\LayOut" & " " & Range("G1")
    ActiveWorkbook.SaveAs Filename:="C:\Users\Ec\Documents\luz\Layout" & " " & Range("G1") & ".csv", FileFormat:=xlCSV, CreateBackup:=False
    ActiveWorkbook. Close (False)
    Application. Workbooks("Viri2.xlsm").Worksheets("Machote").Range("A1").CurrentRegion.ClearContents
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro guardar archivo con parte del nombre variable

De antemano les agradezco a todos los que gentilmente nos ayudan en esta pagina, y muy sinceramente a elsamatilde, luismondelo, nefese, csarxex, calvuch, quienes me hay ayudado mucho a simplificar mis tareas laborales con macros que muy gentilmente...
1 respuesta

Unir 2 XLS con Visual Basic

Tengo 2 archivos Excel "file1.xls" y "file2.xls" donde cada uno tiene dentro 1 hoja con datos. Y lo que tengo que hacer es mesclar los dos archivos y hacer uno solo "file3.xls" con 2 hojas en visual basic. ¿Puedes ayudarme con esto?,
1 respuesta

Guardar libro de excel con macro pero con el nombre de alguna celda de dentro del archivo de excel

Ya hice una macro en excel que me guarda un archivo automáticamente, pero me lo guarda con el mismo nombre, sobrescribiendo el mismo archivo, lo que quiero es que el nombre se cambien en automático cuando cambien una celda dentro del libro,, como...
2 respuestas

Macro para buscar valor "#N/A" en una columna

Me podrían ayudar con esta macro, Tengo una macro que me genera un reporte de inventario en un archivo excel, el archivo tiene códigos y formulas para la descripción de cada código, Ejemplo. Código descripción 001 zanahorias. 002 cebollas. 003...
1 respuesta

Como guardar solo una hoja del archivo de excel

Barsimpon también quería preguntarte si es posible crear una marco para guardar solo una de las hojas que contiene el archivo de excel es decir por ejemplo que solo me guarde la hoja 2 de todas las que se visualizan en el libro de excel. Esto es con...
1 respuesta

Macro que imprima, guarda hoja y contador

Les comento estoy creando un programa en excel 2010 en el cual sirva para facturar, pero mi problema consiste en que necesito crear un botón que me cumpla con tres funciones a la vez, que imprima los datos de la hoja 1, que aumente el consecutivo o...
1 respuesta

Macro crear carpeta y guardar determinadas celdas

Necesito una macro que sirva para crear una carpeta nueva que tenga como nombre el contenido de una celda, y que guarde dentro de esa carpeta determinadas celdas como un libro nuevo, cuyo nombre sea el contenido de una celda. Se como hacerlo por...
1 respuesta

Macro buscar y recopilar datos en Excel

Tengo un botón en una la Hoja1 de Excel e información en esta misma hoja de los rangos (A5:F100), en la columna A del rango (A1:A100) tengo un numero 0 (cero) o también el numero 1 (uno), lo que necesito es que al momento de oprimir el botón me...
2 respuestas