¿como seleccionar rango de celda manual en una macro?
publicado
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?
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