Insertar fechas en columnas
Hola, quería saber si es posible hacer una macro pero creo que es algo complicado y no se si se podrá hacer. Bueno os comento para ver si algún experto tiene solución: tengo que fechar columnas A, C y E.
partimos de una variable: fecha determinada esta la elijo yo (ej 07/01/08).
En la columna A debe rellenarse de la siguiente manera:
fecha de inicio copiada en las 100 filas siguientes
fila 101 fecha de inicio más 7 días y tiene que copiarlo en las siguientes 100 filas
fila 201 fecha anterior más 7 días y tiene que copiarlo en las siguientes 100 filas.
así sucesivamente hasta que sume 7, 52 semanas.
En columna C y E es lo mismo pero debe copiar los resultados en 50 filas y 20 filas respectivamente.
Es posible una solución?
Mil gracias!
1 Respuesta
Te envío el siguiente código, espero te pueda servir.
Ejecuta la macro y en el inputbox te pedirá la fecha.
Sub insetar_fecha()
Dim a As Integer
Dim c As Integer
Dim e As Integer
Dim MiValor As Variant
MiValor = InputBox("Ingrese una fecha")
numA = 0
acumulaA = 0
acumulaC = 0
acumulaE = 0
'Datos para la Columna A
For a = 1 To 700
acumulaA = acumulaA + 1
Range("A" & a).Value = CDate(MiValor) + numA
If acumulaA > 99 Then
numA = numA + 7
acumulaA = 0
End If
Next a
'Datos para la columna C
numC = 0
For c = 1 To 350
acumulaC = acumulaC + 1
Range("C" & c).Value = CDate(MiValor) + numC
If acumulaC > 49 Then
numC = numC + 7
acumulaC = 0
End If
Next c
'Datos para la columna E
numE = 0
For e = 1 To 140
acumulaE = acumulaE + 1
Range("E" & e).Value = CDate(MiValor) + numE
If acumulaE > 19 Then
numE = numE + 7
acumulaE = 0
End If
Next e
End Sub
