gr77

Elsa Matilde respondió: Probala de esta manera. Sub Macro3() Dim i As Date, j As Integer Dim fech1 As Date, fech2 As Date fech1 = Range("B1").Value fech2 = Range("B2").Value j = 3 For i = fech1 To fech2 Cells(3, j) = CDate(i) j = j + 1 Next End Sub

Eduardo Pérez Fernández respondió: Pruebe con esto: sql = "Transform Sum(CantD) SELECT NumE, Nombre FROM Tabla1 " & _ "WHERE FechaMov Between #" & F_Inicial & "# And #" & F_Final & "# " & _ "GROUP BY NumE, Nombre order by NumE DESC PIVOT FORMAT(FechaMov,""Mm"")"

Julián González Cabarcos respondió: Lo que en código sería sencillísimo, en consultas es más lioso. Con la tabla2 crea una consulta Luego con la tabla1 y la consulta 1 creas otra El resultado