Quitar espacios entre números de una celda de excel y hacer una lista consecutiva de códigos
De un código existente quitar espacios en blanco, anexar otros dígitos y elaborar un nuevo código con una lista consecutiva
Respuesta de Dante Amor
3
H o l a:
Para el siguiente ejemplo:
Utiliza la siguiente macro:
Sub CrearCodigo()
'Por.Dante Amor
Application.ScreenUpdating = False
For i = 3 To Range("B" & Rows.Count).End(xlUp).Row
Cells(i, "F") = Cells(i, "B") & "-" & Cells(i, "E")
Cells(i, "H") = Replace(Cells(i, "F"), " ", "")
Cells(i, "H") = Replace(Cells(i, "H"), ".", "")
Next
Application.ScreenUpdating = True
MsgBox "Códigos generados"
End Sub':) 'S aludos. D a n t e A m o r . R ecuerda valorar la respuesta. G racias ':)
