Visual Basic para Aplicaciones - Reemplazo en VBA para Excel con condición

Muy buenas tardes, espero puedan ayudarme con un reemplazo con el que no consigo aclararme:

Tengo una columna de EXCEL con 2 valores de texto los que hay que separar con "<<>>" , ejemplos:

PP:0211:14111020:35..36 (18D-07) <<>> PP:0101:1214359:51..52 (801-01)
PP:0101:1214369:137..138 (801-11) <<>> PP:0102:1214383:07..08 (802-07)

Todos muy similares, el caso es que hay algunas filas que tienen otro formato, sin los paréntesis:

PP:0101:1215081:31..32-----PP:0101:1215079:117..118
PP:0102:1214404:27..28--------PP:0101:1214361:99..100

Tengo la relación a la cual corresponde cada uno:

PP:0101:1214370 seria PP:0101:1214370 (801-12)
PP:0102:1215086 seria PP:0102:1215086 (102-10)

Hay que añadirle la "coletilla" del paréntesis

Seria posible una macro/función que adaptase estos últimos al formato de los primeros? Y claro, que salte los que ya están correctos y no me duplique texto como me pasa ahora.

Me sale de resultado

PP:0101:1214369:137..138 (801-11) (801-11) <<>> PP:0102:1214383:07..08 (802-07) (802-07)

Porque no me distingue los que tienen el paréntesis de los que no.

Espero haberme explicado, muchas gracias compañeros.

Jorge

Es posible hacer una macro.

1º.- Sube un libro que tenga todas las casuísticas posibles.
2º.- Explica que es lo que se tiene que hacer en cada caso.

De la explicación de arriba no he entendido que es lo que se tiene que hacer en cada caso.

Saludos.
\\//_

Buenos días y gracias por responder, he subido un libro de ejemplo.
Como se puede ver hay líneas que tienen el (XXX-XX) y otras no, lo que quiero es añadir el (XXX-XX) Correspondiente a los que no la tengan.

Además de substituir el "----" (Que no siempre son el mismo número de guiones) que separa los dos grupos por "<<>>" .
Y que los que ya tengan el (XXX-XX) se los salte.

Cada PP:XXXX:XXXXXXX tiene una correspondencia, es decir por ejemplo el "PP:0101:1214367" equivale a "(801-09)", por lo que la finalidad es añadirle el (XXX-XX)

El ideal es este

PP:0101:1214366:143-144 (801-08)<<>> PP:0101:1214362:97..98 (801-04)

Y el "malo" es este :

PP:0102:1214405:97..98----PP:0101:1214367:.121..122------CP:0101:1215078:121..122----PP:0101:1215077:71..72

Espero haberme explicado xD.

Saludos y gracias de nuevo.

• Ejemplo.rar(8,7 KB)

Esta es la macro.


Los datos de las Columnas C,D, E, F y G es para comprobar que separa bien los grupos.
En la macro estan comentadas las líneas que rellenan estas columna.

Adjunto libro con macro.

Saludos.
\\//_

• Ejemplo_V1.zip(20,6 KB)

Vale, según veo esta macro hace la parte de cambiar los separadores "----" por "<<>>" y separar los grupos de "PP:XXX:XXXXXXX" si no me equivoco, corrígeme xD es que hace muchos años que hice VBA y no lo recuerdo mucho

Necesitaría también que hiciese la otra parte, donde encuentre PP:XXX:XXXXXXX añada el (XXX-XX).

La traducción seria: (La parte izquierda es la nomenclatura antigua y la parte derecha es la nomenclatura nueva, tienen que estar las dos)
Además al final de la columna izquierda suelen haber 2 números separados por "..." que son los puertos, hay que mantenerlos.

Ejemplo práctico:

Si encontramos

PP:0208:14111000:55..56 --- PP:0208:14111001:12..13

deberia traducirse a

PP:0208:14111000:55..56 (16D-01) <<>> PP:0208:14111001:12..13 (16D-02)

Que serian los 2 primeros de esta lista de abajo.

PP:0208:14111000 (16D-01)
PP:0208:14111001 (16D-02)

PP:0208:14111002 (16D-03)
PP:0208:14111003 (16D-04)
PP:0208:14111004 (16D-05)
PP:0208:14111005 (16D-06)
PP:0208:14111006 (16D-07)
PP:0209:14111007 (17D-01)
PP:0209:14111008 (17D-02)
PP:0209:14111009 (17D-03)
PP:0209:14111010 (17D-04)
PP:0209:14111011 (17D-05)
PP:0209:14111012 (17D-06)
PP:0209:14111013 (17D-07)
PP:0211:14111014 (18D-01)
PP:0211:14111015 (18D-02)
PP:0211:14111016 (18D-03)
PP:0211:14111017 (18D-04)
PP:0211:14111018 (18D-05)
PP:0211:14111019 (18D-06)
PP:0211:14111020 (18D-07)
PP:0211:14111021 (18D-08)
PP:0212:1181697 (19D-01)
PP:0212:1181698 (19D-02)
PP:0212:1181699 (19D-03)
PP:0212:1181700 (19D-04)
PP:0212:1181701 (19D-05)
PP:0212:1181702 (19D-06)
PP:0212:1181703 (19D-07)
PP:0212:1181704 (19D-08)
PP:0108:14111022 (700-01)
PP:0108:14111023 (700-02)
PP:0108:14111024 (700-03)
PP:0108:14111025 (700-04)
PP:0108:14111026 (700-05)
PP:0108:14111027 (700-06)
PP:0108:14111028 (700-07)
PP:0108:14111029 (700-08)
PP:0107:14111030 (71D-01)
PP:0107:14111031 (71D-02)
PP:0107:14111032 (71D-03)
PP:0107:14111033 (71D-04)
PP:0107:14111034 (71D-05)
PP:0107:14111035 (71D-06)
PP:0107:14111036 (71D-07)
PP:0107:14111037 (71D-08)
PP:0105:14111038 (72D-01)
PP:0105:14111039 (72D-02)
PP:0105:14111040 (72D-03)
PP:0105:14111041 (72D-04)
PP:0105:14111042 (72D-05)
PP:0105:14111043 (72D-06)
PP:0105:14111044 (72D-07)
PP:0105:43300235 (72D-08)
PP:0104:1169812 (73D-01)
PP:0104:1159449 (73D-02)
PP:0104:1159451 (73D-03)
PP:0104:1159453 (73D-04)
PP:0104:1166161 (73D-05)
PP:0104:1166162 (73D-06)
PP:0104:1166163 (73D-07)
PP:0104:1166164 (73D-08)
PP:0101:1214359 (801-01)
PP:0101:1214360 (801-02)
PP:0101:1214361 (801-03)
PP:0101:1214362 (801-04)
PP:0101:1214363 (801-05)
PP:0101:1214364 (801-06)
PP:0101:1214365 (801-07)
PP:0101:1214366 (801-08)
PP:0101:1214367 (801-09)
PP:0101:1214368 (801-10)
PP:0101:1214369 (801-11)
PP:0101:1214370 (801-12)
PP:0102:1214377 (802-01)
PP:0102:1214378 (802-02)
PP:0102:1214379 (802-03)
PP:0102:1214380 (802-04)
PP:0102:1214381 (802-04)
PP:0102:1214382 (802-06)
PP:0102:1214383 (802-07)
PP:0102:1214384 (802-08)
PP:0102:1214402 (802-09)
PP:0102:1214403 (802-10)
PP:0102:1214404 (802-11)
PP:0102:1214405 (802-12)
PP:0101:1181705 (101-01)
PP:0101:1181706 (101-02)
PP:0101:1181707 (101-03)
PP:0101:1181708 (101-04)
PP:0101:1181709 (101-05)
PP:0101:1181710 (101-06)
PP:0101:1215073 (101-07)
PP:0101:1215077 (101-08)
CP:0101:1215078 (101-09)
PP:0101:1215079 (101-10)
PP:0101:1215081 (101-11)
PP:0101:1215082 (101-12)
PP:0102:1181726 (102-01)
PP:0102:1181727 (102-02)
PP:0102:1181728 (102-03)
PP:0102:1181729 (102-04)
PP:0102:1181730 (102-05)
PP:0102:1181731 (102-06)
PP:0102:1215083 (102-07)
PP:0102:1215084 (102-08)
PP:0102:1215085 (102-09)
PP:0102:1215086 (102-10)
PP:0102:1215087 (102-11)
PP:0102:1215088 (102-12)
PP:0103:1181719 (103-01)
PP:0103:1181720 (103-02)

Esta es la lista completa

Saludos y muchas gracias por tu tiempo.

La macro resuelve la primera parte del problema y es separar los diferentes segmentos.

Ahora la segunda parte es la que no entiendo. A partir de este texto:


Como deduzco este otro:


Los paréntesis y el guion son fijos, pero ¿Que es la nomenclatura antigua? ¿Que es la nomenclatura nueva?

Me expando en la explicación:

Tomo este texto:


Separo las dos partes:


He de añadir el texto (aaa-bb) en cada parte

¿Que vale aaa?
¿Que vale bb?

Segun el ejemplo aaa vale 16D y bb vale 01 para el primero y 02 para el segundo. ¿De donde salen y por que?

Saludos.
\\//_

1- Son traducciones, es decir PP:0208:14111000 es igual a (16D-01), de ahí la lista que te hice copia-pega tan extensa, son todas las posibilidades.

PP:0208:14111000 es la forma en que se llamaba ese concepto antes y (16D-01) es como se llama ese concepto ahora.
Es como si te digo que "13579" es igual a "(pelota)".


La otra parte:

Separo las dos partes:

1
2
PP:0208:14111000:55..56
PP:0208:14111001:12..13

He de añadir el texto (aaa-bb) en cada parte

¿Que vale aaa? aaa siempre vale el valor de la lista de antes .

PP:0208:14111000: es siempre (16D-01)
PP:0208:14111001: es siempre (16D-02)

¿Que vale bb?

Segun el ejemplo aaa vale 16D y bb vale 01 para el primero y 02 para el segundo. ¿De donde salen y por que?

Este problema viene de que son unos paneles de conectores de fibra óptica que antes se identificaban por una nomenclatura
PP:XXXX:XXXXXXXX y ahora impusieron otra nomenclatura, y en el log donde lo guardamos tienen que estar presentes las dos formas, solo cambian los puertos de estos paneles que es lo que hay al final:

Panel PP:0208:14111001:55..56
Es el panel 14111001 del armario 0208 y los puertos 55 y 56 y es equivalente a (16D-01) puertos 55 y 56.

El excel que uso tiene bastantes mas columnas, y solo habría que aplicarlo en una, que ese aspecto no te lo comenté.

Espero explicarme ahora xD

Como no se si acabo de entender lo que quieres hacer no se si esta bien y es lo que quieres o no.

Te explico lo que hace la macro y lo que hay en pantalla.

- La macro toma lo datos de la columna A y separa los segmentos utilizando como separadores: <<>> <-> <> ---- , etc.
- Busca cada segmento en la hoja 2 que hay la tabla que me pasaste y busca alguna coincidencia y si la hay la reemplaza por la de la tebla.
- Monta en la columna B los segmentos usando como separador <<>> .

Columna A - Datos del origen
Columna B - Datos modificados
Columna C - Número de segmentos.

Columna D - Fila de la hoja2 donde se encontró la coincidencia
Columna E - Segmento de la columna A, el original.
Columna F - Segmento coincidente de la hoja2 con el de la columna E. Si encontró coincidencia esta VERDE y si no esta ROJO

Columna G - Igual que la D
Columna H - Igual que la E
Columna I - Igual que la F

Columna J - Igual que la D
Columna K - Igual que la E
Columna L - Igual que la F

Columna M - Igual que la D
Columna N - Igual que la E
Columna O - Igual que la F

El archivo adjunto incluye la macro.

También se puede hacer incluyendo la hoja 2 en la macro.

Saludos.
\\//_

• Ejemplo_V2.zip(32,1 KB)

Buenas de nuevo, si lo se, es un poco lioso.....

Tomando como base esta ultima macro:

Me voy al peor caso, linea 59.

PP:0102:1214405:97..98----PP:0101:1214367:.121..122------CP:0101:1215078:121..122----PP:0101:1215077:71..72


El objetivo es obtener la columna B

PP:0102:1214405 (802-12) <<>> PP:0101:1214367 (801-09) <<>> CP:0101:1215078 (101-09) <<>> PP:0101:1215077 (101-08)

pero añadiendo el 97...98 // 121..122 // 121..122 // 71..72 intercalado, a poder ser en el formato ":97...98" , con los ":" delante , es decir:

PP:0102:1214405:97...98 (802-12) <<>> PP:0101:1214367:121..122 (801-09) <<>> CP:0101:1215078 :121..122 (101-09) <<>> PP:0101:1215077 71..72:(101-08)

Añadir la hoja 2 no es problema, se pueden añadir y no molesta para nada.

Lo que yo quería es substituir cualquier cosa rara usada como separador por "<<>>" para que sean todos iguales.
Y añadirles a los que no lo tengan lo de la hoja 2 el (XXX-XX)

Es un Excel usado por varias personas y cada uno lo escribe como le da la gana, no se estandarizan, y la macro debería dejar todo igual.
Si no hay coincidencia, como los que salen en rojo tampoco es crítico, lo imprescindible es la separación con "<<>>" y los puertos intercalados.

PP:0102:1214405:97...98 (802-12) <<>> PP:0101:1214367:121..122 (801-09)

Muchas gracias de nuevo ;)

si esta bien la conversión te arreglo la macro para que solo escriba la columna B y acepte más filas en la hoja2.

Saludos.
\\//_

Si, parece que está bien, sobre todo que los puertos, que es lo que hay antes del (XXX-XX) aparezcan :)

Saludos

Y ahora como puedo aplicarla a el libro de excel que ya tengo?
Saludos.