Anónimo
Cambio de valores en celda
Necesito una macro que realice lo siguiente: ejemplo:
En la columna tengo muchos valores y no consecutivos, en las celdas(A2, A3) que contenga OPS o OP+ 5 o 6 números que me quite las letras y le ponga una S delante.
Lo mismo con L y LPT y que lo modifique y solo ponga una P.
Y en los valores que ya contenga la S+ 6 números que no lo modifique.
1 Respuesta
Respuesta de Adriel Ortiz Mangia
2
[Hola
Prueba con la siguiente macro
Sub CONT()
'Por Adriel
'
u = Range("A" & Rows.Count).End(xlUp).Row
'
For i = 2 To u
dato = Cells(i, "A")
If InStr(dato, "OPS") > 0 Then
num = Right(dato, Len(dato) - 3)
Cells(i, "B") = "S" & num
ElseIf InStr(dato, "OP") > 0 Then
num = Right(dato, Len(dato) - 2)
Cells(i, "B") = "S" & num
ElseIf InStr(dato, "L") > 0 Then
num = Right(dato, Len(dato) - 1)
Cells(i, "B") = "P" & num
ElseIf InStr(dato, "LTP") > 0 Then
num = Right(dato, Len(dato) - 3)
Cells(i, "B") = "P" & num
End If
Next i
MsgBox "FIN"
End Sub
Hola gracias por la macro, me hace una cosa rara te cuento.
En OP o OPS123456 me lo cambia a S123456, perfecto.
En cambio en L o LTP123456 me lo cambia a PTP123456.
si puedes ayudarme, gracias.
Ya lo tengo arreglado fallo mio.
gracias y un saludo.
Bien saludos