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

@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

 

Editado el el 17 de agosto5 años por Haplox

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.