Eliminar caracteres de una celda y consolidar en otra

                               En la Columna L tenemos:

1                              DT AZF 5/2016

2                              DT AXY 7/2016

3                              20/2016

4                              DT GXR 1/2016

5                               500/2016

........ Asi sucesivamente hasta la última fila de L

Se debe diseñar una macro que me arroje como resultado en la columna S:

                                 En la Columna S

1                              DTAZF52016

2                              DTAXY72016

3                              202016

4                              DTGXR12016

5                               5002016

... Asi sucesivamente hasta la última fila

2 respuestas

Respuesta
2

H o l a:

Te anexo la macro

Sub copiar()
'Por.Dante Amor
    With Range("S1:S" & Range("L" & Rows.Count).End(xlUp).Row)
        .Formula = "=SUBSTITUTE(RC[-7],""/"","""")"
        .Value = .Value
    End With
End Sub

' : )
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
' : )
Respuesta
1

Sub EliminarCaracter()

For Each celda In Selection
celda.Select
celda = Replace(celda, "/", "")
ActiveCell.Value = celda
Next
End Sub

Esto es para eliminar carácter deseado.

Cópialo a un módulo y ejecutalo

Si te sirvió valora la respuesta para finalizar saludos!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas