Insertar fechas faltantes en varios intervalos.

[Salvador1]

Hola:

Imagina que en B1 y B2 escribo dos fechas: 01/01/2014 y 01/05/2014, y al ejecutar una macro me inserta en A las fechas que faltan entre ambas, incluídas las anteriores, es decir: 01/01, 02/01,... 05/01).

Ahora escribo en B3 y B4 otro par, vuelve a ejecutar y me inserta las faltantes a continuación de las anteriores.

Lo que pretendo es, de un solo golpe, insertar varias fechas en la columna B y me inserte en A todas las que faltan entre cada una de ellas. Os pongo el resultado en la hoja 2 del archivo.

Saludos.

Fechas.rar

[Antoni]

Pues ahí va.

Sub CompletarFechas()


   Sheets("Sheet2").Select

   Columns(1).ClearContents

   fila = 2

   For x = 2 To Range("B" & Rows.Count).End(xlUp).Row Step 2

      For fecha = Range("B" & x) To Range("B" & x + 1)

         Range("A" & fila) = fecha

         fila = fila + 1

      Next

   Next

   [A1] = "FECHA"


End Sub


[/CODE]

[Salvador1]

Perfecto, y muchas gracias.