Validar y cambiar caracteres en una celda
Hola soy nuevo en este foro.
Quisiera saber si alguien es tan amable de explicarme como puedo hacer para cambiar algunos caracteres de una celda en especifico siempre y cuando cumplan una condición, por ejemplo:
si A1= "ALTA" Y B1=C1 (B1 y C1 son fechas), pero tambien si en E1 tengo un numero con "0000000012345" me cambie el primer cero por una "O", tambien si comienza con una "O" ejemplo: "O000000012345" me cambie el segundo cero por una "O". Lo inetente con filtros y formulas pero es muy tedioso y son muchisimos registros, me gustaria aplicar una macro con codigo VB.
Nota: el largo de mi celda que voy a modificar siempre debe de tener 13 caracteres sin espacios.
Me urge!
Muchas gracias expertos! :)
Quisiera saber si alguien es tan amable de explicarme como puedo hacer para cambiar algunos caracteres de una celda en especifico siempre y cuando cumplan una condición, por ejemplo:
si A1= "ALTA" Y B1=C1 (B1 y C1 son fechas), pero tambien si en E1 tengo un numero con "0000000012345" me cambie el primer cero por una "O", tambien si comienza con una "O" ejemplo: "O000000012345" me cambie el segundo cero por una "O". Lo inetente con filtros y formulas pero es muy tedioso y son muchisimos registros, me gustaria aplicar una macro con codigo VB.
Nota: el largo de mi celda que voy a modificar siempre debe de tener 13 caracteres sin espacios.
Me urge!
Muchas gracias expertos! :)
1 respuesta
Respuesta de Enrique Bernal
1
Disculpa la demora, como no sabía si necesitabas o no reemplazar el archivo lo que hice fue colocar el valor a un lado.
Cualquier duda me avisas
Sub cambia()
a = InputBox("Ingrese la primera fila a revisar")
b = InputBox("Ingrese el número de filas a revisar")
For i = 1 To b
If Range("A" & a) = "ALTA" And Range("B" & a) = Range("B" & a) And Mid(Range("E" & a), 1, 1) = "0" Then
Range("F" & a).Value = "O" & Mid(Range("E" & a), 2, 12)
a = a + 1
Else
If Range("A" & a) = "ALTA" And Range("B" & a) = Range("B" & a) And Mid(Range("E" & a), 1, 1) = "O" Then
Range("F" & a).Value = "OO" & Mid(Range("E" & a), 3, 12)
a = a + 1
End If
End If
Next i
End Sub
Cualquier duda me avisas
Sub cambia()
a = InputBox("Ingrese la primera fila a revisar")
b = InputBox("Ingrese el número de filas a revisar")
For i = 1 To b
If Range("A" & a) = "ALTA" And Range("B" & a) = Range("B" & a) And Mid(Range("E" & a), 1, 1) = "0" Then
Range("F" & a).Value = "O" & Mid(Range("E" & a), 2, 12)
a = a + 1
Else
If Range("A" & a) = "ALTA" And Range("B" & a) = Range("B" & a) And Mid(Range("E" & a), 1, 1) = "O" Then
Range("F" & a).Value = "OO" & Mid(Range("E" & a), 3, 12)
a = a + 1
End If
End If
Next i
End Sub
Finaliza la pregunta o la descarto y te bloqueo
