Estoy trabajando en un programa usando VB y EXCEL. Actualmente tengo que copiar cierta información de unas celdas a otras para generar un reporte. Todo por ahora va funcionando bien. Pero tengo la siguiente duda.
Una de las cedas, contiene el historia de notas agregado por el usuario. Se estableció que luego de cada nota se ingrese el símbolo '#' para aclarar que la nota llega hasta ahí. La celda contiene algo así.
2017-08-03 11:06 by Sojo, Andres La propuesta fue cancelada por petición del cliente el día 3/8/2017. #
2017-07-18 09:47 by Sojo, Andres Continuamos ala espera del VoBo por parte del cliente. #
2017-07-14 09:52 by Sojo, Andres Continuamos ala espera del VoBo por parte del cliente.#
2017-07-03 15:14 by Sojo, Andres La propuesta se encuentra en revisión por parte de KOF.#
Estoy utilizando el siguiente codigo, para copiar la informacion de la celda en el reporte que necesito.
Sheets("Extract").Range("AI" & sourceRow & "").Copy Destination:=Sheets("Print").Range("G" & destRow + 7 & "")
Pero esto me copia toda la información de la celda y solamente ocupo que copie hasta donde aparece el primer '#' y deje de copiar el resto.
Pense en hacer algo como un
Do
copiar información de la celda
While
no aparezca el carácter #
Lo que sucede es que con un código como ese me va a copiar todo, dado que la información se encuentra en una sola celda no en varias.
Muchisimas gracias por la ayuda.