Problema para resolver en evaluaciones entre fechas en VBA
publicado
Hola a todos, mi nombre es Maurizio
Y mi problema es este:
En una hoja de Excel estoy tratando de crear un horario con fechas.
1) En Práctica en la Columna (G6: G35) ingrese una fecha de visita
2) Medidor que explota el VBA Me gustaría que en la columna (H6: H35) se verificara la cantidad de días que comen en la fecha límite.
3) Los medidores en la columna (I6: I35) deben darme la Confirmación o no de la caducidad.
Ahora, en lo que respecta a la Columna (H), no me arriesgo a cambiar el simple clic para permitir evaluar cualquier inserción de fecha en la columna (G), pero tomada individualmente funciona muy bien ya que he adoptado esta función
(Con Sheet1
Rango ("H11"). Valor =. Rango ("H1"). Valor
Rango ("H11"). Fórmula = "= G11- $ H $ 1"
Terminar con)
Pero ahora quería adoptar lo mismo para hacerle hacer la evaluación de la columna (I) Escribiendo todo de esta manera:
(Con Sheet1
.Rango ("I11") Fórmula = "= SE (G8 =" ";" "; SE (TODAY ()> G8;" Expired "; SE (TODAY () + 15> G8;" Expiring ";" válida ")))"
Terminar con)
Pero sigue dándome un error, por qué y cómo puedo resolver al menos este problema Gracias
Hello everyone, my name is Maurizio
And my problem is this:
On an Excel sheet I'm trying to create a schedule with dates.
1) In Practice in the Column (G6: G35) I enter a visit date
2) Metre exploiting the VBA I would like that in column (H6: H35) I was checked how many days they eat at the deadline.
3) Meters in the column (I6: I35) should give me the Confirmation or not of the expiration.
Now as regards the Column (H) I do not risk to sfuttare the simple click to let evaluate any date insert in the column (G) but taken individually it works great as I have adopted this function
(With Sheet1
.Range ("H11"). Value = .Range ("H1"). Value
.Range ("H11"). Formula = "= G11- $ H $ 1"
End With)
But now I wanted to adopt the same thing to make him do the evaluation for the column (I) Writing the whole thing like this:
(With Sheet1
.Range ("I11") Formula = "= SE (G8 =" ";" "; SE (TODAY ()> G8;" Expired "; SE (TODAY () + 15> G8;" Expiring ";" valid ")))"
End With)
But keep giving me Error, Why and how can I solve at least this problem Thanks
Hola a todos, mi nombre es Maurizio
Y mi problema es este:
En una hoja de Excel estoy tratando de crear un horario con fechas.
1) En Práctica en la Columna (G6: G35) ingrese una fecha de visita
2) Medidor que explota el VBA Me gustaría que en la columna (H6: H35) se verificara la cantidad de días que comen en la fecha límite.
3) Los medidores en la columna (I6: I35) deben darme la Confirmación o no de la caducidad.
Ahora, en lo que respecta a la Columna (H), no me arriesgo a cambiar el simple clic para permitir evaluar cualquier inserción de fecha en la columna (G), pero tomada individualmente funciona muy bien ya que he adoptado esta función
(Con Sheet1
Rango ("H11"). Valor =. Rango ("H1"). Valor
Rango ("H11"). Fórmula = "= G11- $ H $ 1"
Terminar con)
Pero ahora quería adoptar lo mismo para hacerle hacer la evaluación de la columna (I) Escribiendo todo de esta manera:
(Con Sheet1
.Rango ("I11") Fórmula = "= SE (G8 =" ";" "; SE (TODAY ()> G8;" Expired "; SE (TODAY () + 15> G8;" Expiring ";" válida ")))"
Terminar con)
Pero sigue dándome un error, por qué y cómo puedo resolver al menos este problema Gracias
##################################################################################################################################
Hello everyone, my name is Maurizio
And my problem is this:
On an Excel sheet I'm trying to create a schedule with dates.
1) In Practice in the Column (G6: G35) I enter a visit date
2) Metre exploiting the VBA I would like that in column (H6: H35) I was checked how many days they eat at the deadline.
3) Meters in the column (I6: I35) should give me the Confirmation or not of the expiration.
Now as regards the Column (H) I do not risk to sfuttare the simple click to let evaluate any date insert in the column (G) but taken individually it works great as I have adopted this function
(With Sheet1
.Range ("H11"). Value = .Range ("H1"). Value
.Range ("H11"). Formula = "= G11- $ H $ 1"
End With)
But now I wanted to adopt the same thing to make him do the evaluation for the column (I) Writing the whole thing like this:
(With Sheet1
.Range ("I11") Formula = "= SE (G8 =" ";" "; SE (TODAY ()> G8;" Expired "; SE (TODAY () + 15> G8;" Expiring ";" valid ")))"
End With)
But keep giving me Error, Why and how can I solve at least this problem Thanks
Valutazione_Tra_Date_e_Tempo_Scaduto.xlsm