Este fórum está sendo desativado

[JCabral]

Boa tarde

Pedindo ajuda para ver qual a melhor forma (em VBA) de agrupar datas (períodos) que sejam continuos, ou seja se eu tiver um periodo que tenha DataInicial =#31/05/2023# e DataFinal=#13/06/2023# e outro periodo com DataInicial =#14/06/2023# e DataFinal=#25/06/2023# então passo a ter um periodo com DataInicial =#31/05/2023# e DataFinal=#25/06/2023#.

No ficheiro anexo tenho um exemplo, colunas A e B e em D e E o OUPUT desejado.
NOTAS: Os períodos estão ordenado por Datai;
Não são dados fixos, no exemplo são 5 , mas podem variar

Obrigado
Jorge Cabral

[osvaldomp]

Salve, Jorge.

Veja se atende. Considerei que D:E terão os cabeçalhos.

Sub AgrupaDatas()
Dim k As Long, m As Long
For k = 4 To Cells(Rows.Count, 1).End(3).Row
Do While Cells(k + m, 2) + 1 = Cells(k + m + 1, 1)
m = m + 1
Loop
Cells(Rows.Count, 4).End(3)(2) = Cells(k, 1)
Cells(Rows.Count, 5).End(3)(2) = Cells(k + m, 2)
k = k + m: m = 0
Next k
End Sub

[JCabral]

É mesmo isso, TOP mais uma vez

Muito obrigado Osvaldo