Autoclick each cell in range - VBA

Nico Schutz

New Member
Joined
Oct 18, 2022
Messages
1
Office Version
  1. 365
Platform
  1. Windows
Hi, i`m trying to recover an old MSSQL Database that has a column with Rich Text Format Code, I exported the table with this column to Excel and, as it is an RTF chain, the text is illegible. However, every time that I double click on a cell with this RTF chain, it displays the text correctly. Based on this i`ve been unsuccessfully trying diferent ways to convert this rtf to normal text, including using RichTextBox on VS, using word, etc, etc. Now it seems my only option, even though it may seem a bit crude, is to use VBA to double click each cell in the column, displaying it`s data, so i can copy-paste the entire column and filter the results.

This is why, and after a lot of digging around i come asking for sincere help, any kind of advice, would be greatly aprecciated.

P.S1: In order to compare both results, I will copy the RTF chain vs it`s double clicked result, bear in mind there are a lot of diferent chains, independent of the text, based on it`s formatting
P.S2: i`m terribly sorry for the english since, i`m not native

RTF CHAIN:
{\rtf1\ansi\deff0\deflang2058{\fonttbl{\f0\fswiss\fcharset0 Arial;}{\f1\fswiss Arial;}}

{\colortbl ;\red0\green0\blue0;}

\viewkind4\uc1\pard\cf1\f0\fs20 22-01-2003 Dr(a).Claudio A. D\'edaz Pino\f1

\par Comp. comp. post. OD pza. 20

\par

\par \f0 01-04-2003 Dr(a).Claudio A. D\'edaz Pino\f1

\par Pulpitis no reversible pza 20, se indica endodoncia de la pza.

\par \f0 Hoy realizamos la trepanaci\'f3n con anestesia local 2%.\cf0\f1

\par \f0 Conductometr\'eda en 20 mms.terminarla en 20.5 mms.\f1

\par

\par \f0 15-04-2003 Dr(a).Claudio A. D\'edaz Pino\f1

\par Endodonciapza 20 terminada en 20.5 mms

\par cono principal nro 55, conos accesorios (3) nros 30

\par \f0 Se indica amoxi/sicadolpor 5 d\'edas.- Prox sesi\'f3n repetir comp.pza 20.-\f1

\par

\par \f0 22-04-2003 Dr(a).Claudio A. D\'edaz Pino\f1

\par Comp. pza 20

\par

\par \f0 08-05-2003 Dr(a).Claudio A. D\'edaz Pino\f1

\par Dolor postendo , se hace desgastes de interferencia, se indica sicadol forte, pasata dental dentoxil...

\par \f0 Evaluar respuesta a inflamaci\'f3n...-\f1

\par

\par \f0 10/06/2003 Dr(a).Claudio A. D\'edaz Pino\f1

\par \f0 Se realiza fluoraci\'f3n grupo 4.\f1

\par

\par \f0 26/06/2003 Dr(a).Claudio A. D\'edaz Pino\f1

\par Destartraje subgingival b.c. Rx control pza 20..- Ver ..-.. Se atiende hijo..-

\par

\par \f0 08/07/2003 Dr(a).Claudio A. D\'edaz Pino\f1

\par \f0 Desgastes selecivos pza 20, se indica eritromicina 500 mgrs por 7 d\'edas y dolcin\f1

\par

\par \f0 15/07/2003 Dr(a).Claudio A. D\'edaz Pino\f1

\par \f0 Se explica a paciente que no se cobrar\'e1 la reobturaci\'f3n de composite 3M P60 compuesta de la pza 20, pza en la cual se le realiz\'f3 tratamiento de conducto.\f1

\par \f0 La endodoncia de la pza 20 deber\'eda ser cancelada por la paciente, ya que a pesar de intentar evitar el tto. de conducto, fue necesario realizarlo por encontrarse con una pulipitis irreversible de la pza 20 provocada por caries profunda, lo anterior fue conversado con el Sr. Oscar C\'e1ceres y con la paciente.\f1

\par \f0 LA PACIENTE SE\'d1ALA QUE NO DESEA CANCELAR DICHO TRATAMIENTO ARGUMENTANDO QUE NO SE LE INFORMO EL CAMBIO DE PLAN DE TTO. A LO CUAL QUIEN SUSCRIBE SE\'d1ALA HABER EXPLICADO DETALLADAMENTE CADA UNA DE LAS ACCIONES QUE FUE NECESARIO REALIZAR, INFORMANDO A LA PACIENTE QUE NO SE COBRAR\'cdA NINGIUNA ACCI\'d3N QUE ESTUVIERA CONTEMPLADA EN EL PRIMER PRESUPUESTO ENTREGADO, PERO QUE CUALQUIER ACCI\'d3N ADICIONAL QUE PUDIERE APARECER SE AGREGAR\'cdA A SU NUEVO PRESUPUESTO.\f1

\par \f0 Debido a que la paciente relata encontrarse con molestias en la pza 20 tratada endodonticamente, con conductometr\'eda espec\'edfica y obturaci\'f3n radicular radiogr\'e1fica en buenas condiciones, se solicitar\'e1 mediante interconsulta reevaluaci\'f3n por endodoncista de dicha pza, dejando claramente especificado que de ser necesario realizar alguna acci\'f3n de su especialidad, deber\'e1 ser cancelada al profesioanal, y se dejar\'e1 sin cobro dicha acci\'f3n del primer plan de tratamiento. Lo anterior para que la paciente evidencie nuestra intenci\'f3n de dar real soluci\'f3n a sus problemas de salud bucal, y de actuar en forma transparente y responsable hacia con su persona.-\f1

\par

\par \cf1\f0 22/07/2003 Dr(a).Claudio A. D\'edaz Pino\f1

\par \f0 Derivaci\'f3n a endodncista.-\f1

\par

\par

DOUBLE CLICKED RESULT:
22-01-2003 Dr(a).Claudio A. Díaz Pino
Comp. comp. post. OD pza. 20

01-04-2003 Dr(a).Claudio A. Díaz Pino
Pulpitis no reversible pza 20, se indica endodoncia de la pza.
Hoy realizamos la trepanación con anestesia local 2%.
Conductometría en 20 mms.terminarla en 20.5 mms.

15-04-2003 Dr(a).Claudio A. Díaz Pino
Endodonciapza 20 terminada en 20.5 mms
cono principal nro 55, conos accesorios (3) nros 30
Se indica amoxi/sicadolpor 5 días.- Prox sesión repetir comp.pza 20.-

22-04-2003 Dr(a).Claudio A. Díaz Pino
Comp. pza 20

08-05-2003 Dr(a).Claudio A. Díaz Pino
Dolor postendo , se hace desgastes de interferencia, se indica sicadol forte, pasata dental dentoxil...
Evaluar respuesta a inflamación...-

10/06/2003 Dr(a).Claudio A. Díaz Pino
Se realiza fluoración grupo 4.

26/06/2003 Dr(a).Claudio A. Díaz Pino
Destartraje subgingival b.c. Rx control pza 20..- Ver ..-.. Se atiende hijo..-

08/07/2003 Dr(a).Claudio A. Díaz Pino
Desgastes selecivos pza 20, se indica eritromicina 500 mgrs por 7 días y dolcin

15/07/2003 Dr(a).Claudio A. Díaz Pino
Se explica a paciente que no se cobrará la reobturación de composite 3M P60 compuesta de la pza 20, pza en la cual se le realizó tratamiento de conducto.
La endodoncia de la pza 20 debería ser cancelada por la paciente, ya que a pesar de intentar evitar el tto. de conducto, fue necesario realizarlo por encontrarse con una pulipitis irreversible de la pza 20 provocada por caries profunda, lo anterior fue conversado con el Sr. Oscar Cáceres y con la paciente.
LA PACIENTE SEÑALA QUE NO DESEA CANCELAR DICHO TRATAMIENTO ARGUMENTANDO QUE NO SE LE INFORMO EL CAMBIO DE PLAN DE TTO. A LO CUAL QUIEN SUSCRIBE SEÑALA HABER EXPLICADO DETALLADAMENTE CADA UNA DE LAS ACCIONES QUE FUE NECESARIO REALIZAR, INFORMANDO A LA PACIENTE QUE NO SE COBRARÍA NINGIUNA ACCIÓN QUE ESTUVIERA CONTEMPLADA EN EL PRIMER PRESUPUESTO ENTREGADO, PERO QUE CUALQUIER ACCIÓN ADICIONAL QUE PUDIERE APARECER SE AGREGARÍA A SU NUEVO PRESUPUESTO.
Debido a que la paciente relata encontrarse con molestias en la pza 20 tratada endodonticamente, con conductometría específica y obturación radicular radiográfica en buenas condiciones, se solicitará mediante interconsulta reevaluación por endodoncista de dicha pza, dejando claramente especificado que de ser necesario realizar alguna acción de su especialidad, deberá ser cancelada al profesioanal, y se dejará sin cobro dicha acción del primer plan de tratamiento. Lo anterior para que la paciente evidencie nuestra intención de dar real solución a sus problemas de salud bucal, y de actuar en forma transparente y responsable hacia con su persona.-

22/07/2003 Dr(a).Claudio A. Díaz Pino
Derivación a endodncista.-
 

Excel Facts

Return population for a City
If you have a list of cities in A2:A100, use Data, Geography. Then =A2.Population and copy down.

Forum statistics

Threads
1,223,903
Messages
6,175,284
Members
452,630
Latest member
OdubiYouth

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top