MS Excel

Zdravím hekři :-),
prosím o pomoc v těch datumech mám stále nedostatečné znalosti.

Mám kód:
If foundRange.Offset(0, 17).Value < Date Then

a u toho Date bych chtel kontrolovat Date minus rok, aby to kontrolovalo datum starší než jeden rok..

Děkuji za jakékoliv nakopnutí.

(Datum a čas je pro mě tabu)

Díky

Zaslat odpověď >

Jiří497(4.6.2021 16:27)#050803

Jedna možnost:
If foundRange.Offset(0, 17).Value < DateSerial(Year(Date) - 1, Month(Date), Day(Date)) Thencitovat

Fantasyk(4.6.2021 16:53)#050804

Jiří497 napsal/a:

Jedna možnost:
If foundRange.Offset(0, 17).Value < DateSerial(Year(Date) - 1, Month(Date), Day(Date)) Then

Bohužel nefunguje a druhá možnost by nebyla ?

citovat

elninoslov(4.6.2021 17:18)#050806

foundRange je 1 bunka? Je v tom istom riadku ako dátum? Je to naozaj dátum alebo text? ... Malo by to fungovať ...
Prílohacitovat

Jiří497(4.6.2021 17:19)#050807

Další výstřel naslepo:

If Range("A5").Value < Format(DateSerial(Year(Date) - 1, Month(Date), Day(Date)), "dd.yy.mmmm") Then

Jako byste nevěděl, že s přílohou to mohlo být napoprvé přesně.citovat

Fantasyk(4.6.2021 18:23)#050808

Jiří497 napsal/a:

Další výstřel naslepo:

If Range("A5").Value < Format(DateSerial(Year(Date) - 1, Month(Date), Day(Date)), "dd.yy.mmmm") Then

Jako byste nevěděl, že s přílohou to mohlo být napoprvé přesně.

Tak teď děkuji za to, že jsi mě pamatujete :-) ( chápu po tolika otázkách co jsem tu měl "učnovských".), akurát ten soubor co dělám má momentálně přes 2MB a to neberu data, která obsahuje, takže už je dost složité to z toho vytáhnout.., abych tu vložil příklad.

PS: smekám kloubouk před Vámi a ostatními "kalibry", kteří tady radí ostatním.citovat

Jiří497(4.6.2021 19:16)#050809

A co tedy ten druhý příklad. Funguje nebo taky ne.

Pokud ne:
jaký formát má ten kontrolovaný datum?
je foundRange jedna buňka?

Jako přílohu můžete poslat jen ten jeden list bez maker, bez dat jen s těmi kontrolovanými datumy.citovat

Jiří497(4.6.2021 20:12)#050810

Příklad

Příloha: rar

50810_datum.rar (13kB, staženo 14x)

citovat

Fantasyk(6.6.2021 13:43)#050811

foundRange je jedna bunka a format mam nastaveny dd.mm.yyyy

stejnak mi to nějak nejde

Mám momentálně kod:
' kontrola platného GDPR
Dim GDPR As Integer, prijmeni As String

prijmeni = foundRange.Offset(0, 5).Value
Worksheets("Database").Unprotect Password:="xxxxx"
Sheets("Database").Select

If foundRange.Offset(0, 17).Value = "" Or DateSerial(Year(Date) - 1, Month(Date), Day(Date)) Then
GDPR = MsgBox(prijmeni & ": odevzdal(a) souhlas GDPR?", vbQuestion + vbYesNo, "Není platné GDPR")
Select Case GDPR

Case vbYes
foundRange.Offset(0, 17).Value2 = Date
id.Text = ""
Case vbNo
Worksheets("Database").Protect Password:="xxxxx", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True, AllowUsingPivotTables:=True
Sheets("Archiv").Select
ThisWorkbook.Worksheets("Archiv").Cells(Rows.Count, 1).End(xlUp).Offset(0, 0).Select
id.Text = ""
MsgBox "Je nutné odevzdat souhlas o GDPR!!!" & vbCrLf & "bez tohoto souhlasu nelze evidovat záznam o testu!", vbCritical
Exit Sub
End Select

Else

'pokracovani kodu

Pokud smažu podmínku .. or Dateserial.... tak to funguje, ale chci přidat pokud je datum v buňce starší než jeden rok, tak opět musí vyskočit okno ohledně souhlasu GDPR jinak pokračuje v kódu vyskakovacího oknacitovat

Jiří497(6.6.2021 15:12)#050812

Chybí vám tam podmínka.
Za "or" musí být to co jsem psal v prvním příspěvku. To co je mezi if - then napište mezi or - thencitovat

Fantasyk(6.6.2021 16:09)#050813

Jiří497 napsal/a:

Chybí vám tam podmínka.
Za "or" musí být to co jsem psal v prvním příspěvku. To co je mezi if - then napište mezi or - then

Ja jsem lopata

díky moc

stále se musím učit, jsem si myslel, že si to furt pamatuje tu prvotní podmínku..

fakt mockrát děkujicitovat

Téma: VBA - aktualni datum - rok

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje