Hola, tengo la siguiente tabla:

date	employee	motive	text
01/01/2022	PETER	B	baja
01/01/2022	MARY	R	ruta
01/01/2022	ANN	R	ruta
02/01/2022	PETER	B	baja
02/01/2022	MARY	R	ruta
02/01/2022	ANN	R	ruta
03/01/2022	PETER	B	baja
03/01/2022	MARY	R	ruta
03/01/2022	ANN	R	ruta
04/01/2022	PETER	R	ruta
04/01/2022	MARY	R	ruta
04/01/2022	ANN	R	ruta
05/01/2022	PETER	R	ruta
05/01/2022	MARY	R	ruta
05/01/2022	ANN	R	ruta
06/01/2022	PETER	B	baja
06/01/2022	MARY	R	ruta
06/01/2022	ANN	R	ruta

 

Y necesito conseguir este output

employee	start_date	end_date
PETER	01/01/2022	03/01/2022
PETER	06/01/2022	06/01/2022

 

QUERY

select employee, min(date), max(date)
from (select t.*,
             lag(motive) over (partition by employee order by date) as prev_motive,
             lead(motive) over (partition by employee order by date) as next_motive,
             sum(case when motive = 'B' then 1 else 0 end) over (partition by employee order by date) as num_b
      from t
     ) t
where motive = 'B' and
      prev_motive <> 'B' and
      next_motive <> 'B'
group by employee, num_b;

 

Sabría alguien adaptarme esta query para que funcione en el editor de VBA. Gracias

Editado el el 11 de noviembre3 años por patriciomates

Hola

No se entiende bien lo que requieres ya que, si lo que vas a hacer es necesitar hacer una consulta hacia SQL Server desde el VBA de Excel, pues las cadenas de consulta se pasan como un string así que solo importa que las sentencias SQL de esa cadena las reconozca el sistema gestor de base de datos, ya que, si bien SQL es casi universal, hay pequeñas diferencias entre las bases de datos. Si en realidad te refieres a que esa consulta que muestras la usabas en SQL Server y ahora los datos los tienes en otro sistema gestor de base de datos o en Excel, pues será mejor que des los detalles.

Saludos.

Los datos y la consulta están en Excel, y lo que quiero saber es si es posible lograr el OUTPUT en primer lugar y en ese caso adaptar el string con sus quotation para que funcione en VBA editor

Si bien SQL es casi universal, pues ojo con ese "casi". SQL Server, al igual que otros sistemas gestores de bases de datos, tiene sentencias/instrucciones SQL propias y que no pueden usarse en otros SGBD y hay varias de esas en esa cadena que compartes ya que no hay forma de usarlas para Excel y no hay equivalente propios SQL de Excel como por ejemplo para el caso de Lag, Leed y un par más de ahí. Con las sentencias/instrucciones SQL que permite SQL, sinceramente no encuentro forma de hacerlo tal cual requieres, así a primera mano (y dando el tiempo que doy a los foros) me parece que tendrías que optar por hacerlo solo con VBA y es para darle varias vueltas en la cabeza.

Si lo he hecho con VBA, es decir primero le paso una consulta sencilla y obtengo una tabla de valores ordenada y con los datos que busco, y a eso le paso formulas por el editor VBA ya que las bajas tienen carácter dinámico y no puedo predecir su dimensión, no se me ha ocurrido otra manera.

A: Leo de la tabla datos. Con conexión 

B: Esto me arroja una tabla nueva en una hoja distinta.

D.: Al estar ordenado puedo trabajar con fórmulas.  Que las paso a través del editor de VBA.

Así me las he apañado, como he podido.

 

Pues bien, a eso me refería ya que, como comenté y te has dado cuenta, las sentencias SQL que permite Excel, no son suficientes para lo que requerías. Saludos.