Modificar datos en celdas dependiendo del valor
Necesito una macro que realice lo siguiente tengo la columna A y E.
Si la columna A contiene una P+ 5 o 6 números detrás, que en la columna E me escriba ordenador portátil.
Tengo más de 10000 celdas.
Columna a -- columna e
P665522 -- ordenador portatil
P66552 -- ordenador portatil
1 respuesta
Te anexo la macro
Sub Macro1()
'Por Dante Amor
With Range("E2:E" & Range("A" & Rows.Count).End(xlUp).Row)
.FormulaR1C1 = _
"=IF(LEFT(RC[-4],1)=""P"",IF(ISNUMBER(VALUE(MID(RC[-4],2,LEN(RC[-4])))),IF(OR(LEN(MID(RC[-4],2,LEN(RC[-4])))=5,LEN(MID(RC[-4],2,LEN(RC[-4])))=6),""ordenador pórtatil"",""""),""""),"""")"
.Value = .Value
End With
End SubLa macro te pone el resultado desde la fila 2. Si quieres que empiece en otra fila, cambia en esta parte "E2:E" el número 2 por la fila deseada.
'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. '.[Avísame cualquier duda
Hola perfecto muchas gracias por tu ayuda y tiempo.
Un saludo.
Otra cosa por favor y si quiero poner dos letras en la misma macro.
Todo en una misma macro, que con la letra P me ponga ordenador portátil
Y con la letra ES ordenador sobremesa, con el mismo número de antes 5 o 6 números.
Ejemplo:
P123456
S12345
Gracias
Va
sub macro1()
'por dante amor
with range("e2:e" & range("a" & rows.count).end(xlup).row)
.formular1c1 = _
"=if(left(rc[-4],1)=""p"",if(isnumber(value(mid(rc[-4],2,len(rc[-4])))),if(or(len(mid(rc[-4],2,len(rc[-4])))=5,len(mid(rc[-4],2,len(rc[-4])))=6),""ordenador pórtatil"",""""),""""),if(left(rc[-4],1)=""s"",if(isnumber(value(mid(rc[-4],2,len(rc[-4])))),if(or(len(mid(rc[-4],2,len(rc[-4])))=5,len(mid(rc[-4],2,len(rc[-4])))=6),""ordenador sobremesa"",""""),""""),""""))"
.value = .value
end with
end sub
Hola otra cosa por favor la macro se ejecuta y funciona perfectamente pero tengo más valores y en esos campo se ponen en blanco. Te paso una foto para que lo veas.
Todo igual que el ejemplo de antes pero quiero que los valores como solo números o que empiece por varias letras que hay muchas diferentes y números sean también ordenador personal, gracias.
y que se ponga el resultado en la columna C, gracias
Con todo gusto te ayudo con todas tus peticiones, pero deberás crear una pregunta por cada petición.
