Este fórum está sendo desativado

Sim, claro. Onde está Activesheet você substitui pelo codename da planilha onde você deseja copiar.

Private Sub CopyCalendario() Delete_CAL WsCAL.Range("M17:U24").Copy With ActiveSheet .Range("F1").Activate With .Pictures.Paste(Link:=True) .Formula = "=CALENDARIO!$M$17:$U$24" With .ShapeRange .Name = "CMensal" .Fill.Visible = msoFalse .Line.Visible = msoFal...

Precisa ser fórmula ou pode usar PowerQuery?
Segue em anexo solução com PowerQuery.

Pares

=SEERRO(AGREGAR(15;6;$M$3:$M$30/(MOD($M$3:$M$30;2)=0);COLS($P$3:P$3));"")

=SEERRO(AGREGAR(15;6;$M$3:$M$30/(MOD($M$3:$M$30;2)=1);COLS($P$3:P$3));"")

@AugustoPSilva , se conseguiu resolver, marca o tópico como resolvido, por favor.

@DaltonSilva ,

que bom que deu certo! Encerra o tópico como concluído, por favor.

Sem ver o arquivo e que tipo de tratamento no PowerQuery vc fez fica difícil de avaliar.

Consegue. Adiciona um exemplo fictício, por favor e diga qual o resultado esperado.

Não entendi. Poderia anexar um exemplo, por favor?

Veja se atende.

=SE(($I$2>=E2)*($I$2<=DATAM(E2;C2-1));B2;0)

Você quer comparar uma coluna apenas ou mais de uma? Se anexar um exemplo (xlsx ou xlsm) fica mais fácil de entender.

Anexa um exemplo em xlsx, por favor.

Anexa um exemplo fictício em pbix, por favor.

Anexa um exemplo em pbix, por favor.

Anexa um exemplo em pbix, por favor.

Veja se é isso. let Fonte = Excel.CurrentWorkbook(){[Name="Tabela1"]}[Content], SelecionaCol = Table.SelectColumns(Fonte,{"Carimbo de data/hora", "Nome Funcional", "Tem interesse e/ou disponibilidade para participar em quais dias?"}), AlteraTipoInicio = Table....

Anexa um exemplo do Excel para poder depurar, por favor.

Não seria dsn=ecalc ao invés de dns=ecalc?

Veja se ajuda.

Seria isso?