Saltar al contenido

¿como seleccionar rango de celda manual en una macro?


Recommended Posts

Hola amigos.

Estoy trabajando esta macro para copir unos datos de excel a texto, mi duda es: ¿habrá forma de que al hacer esta tarea la macro me solicite seleccionar manualmente el rango deseado?

En la macro tengo señalado por defecto toda la columa "D", pero en ocasiones lo requiero de "D1:D10" de "D9:20", son rangos variables. ¿se puede seleccionar manualmente el rago deseado?

sub PasarATXT()

Application.DisplayAlerts = False

inihoj = ActiveSheet.Name

nomfic = InputBox("Nombre del Archivo de texto")

nomfic = nomfic & ".txt"

Sheets.Add

neohoj = ActiveSheet.Name

Sheets(inihoj).Select

Columns("D:D").Copy

Sheets(neohoj).Select

Columns("A:A").PasteSpecial Paste:=xlPasteValues

ruta = ActiveWorkbook.Path & "\"

ActiveWorkbook.SaveAs Filename:=ruta & nomfic, FileFormat:=xlTextMSDOS, CreateBackup:=False

Application.DisplayAlerts = False

Sheets(neohoj).Delete 'Select

Application.CutCopyMode = False

Application.DisplayAlerts = True

ActiveWorkbook.Close (0)

End Sub

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.