Adaptar macro para trabajar con rango seleccionado por usuario

[Luis Antonio Torres]

Estimados Amigos,

 

Buenos días, tengo el siguiente libro que realiza un procedimiento basado en buscar la última fila con información y recuperar el rango en la columna E. Me gustaría poder trabajarlo únicamente con un rango seleccionado, es decir, que cuando ejecute la macro no lo haga para todo el rango si no para el rango que seleccioné. Alguien me podría dar una mano por favor.

Gracias.

libropruebas.xlsm

[Haplox]

@Luis Antonio Torres , una solución sería:

Sub ConcatenaColumnaS2()
Dim numzeros As String
Dim Ultima As String
Dim rng As String
Dim cel As Range

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False


numzeros = "0000000000"
Range("A:D").NumberFormat = "@"
Range("E:E").NumberFormat = "dd/mm/yyyy"

rng = InputBox("Elegir rango", "Elija el rango en formato XX:YY")

For Each cel In Range(rng)
cel.Offset(, -4) = Format(cel, "yyyy") & Format(cel, "mm") & Format(cel, "dd") _
    & Left(numzeros, 10 - Len(cel.Offset(, 3))) & cel.Offset(, 3) _
    & Left(numzeros, 10 - Len(cel.Offset(, 4))) & cel.Offset(, 4) _
    & cel.Offset(, 5) _
    & cel.Offset(, 6)
    
    cel.Offset(, -3) = cel.Offset(, 2) & cel.Offset(, 6)
       
Next cel

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True
Application.CutCopyMode = False

End Sub

 

[José_Santos]

Hola,

Por si ayuda...

https://docs.microsoft.com/es-es/office/vba/api/excel.application.inputbox

Usando el tipo 8, con el input, deja seleccionar físicamente las celdas que se quieren incluir.

Saludos.