tarih kontrollü macro

[gurbuzs]

ekteki dosyada çok basit bi macro var..
A1 deki tarihte belirli tarihe ulaşınca mesaj kutusu çıkacak ve macro çalışmayacak..
bu konuda yardım edebilir misiniz...

 

[Orion1]

If Range("A1").Value >= CDate("28.03.2009") Then
    MsgBox "28.03.2009 tarihine eşit veya geçti.."
    Exit Sub
End If

 

[gurbuzs]

macro2 nin içine ekledim..
yıldız olan macroda çalışması lazım..olmadı..
yanlış mı yapıyorum acaba..
macro çalıştır dediğimde mesaj vermesini istiyorum...

If Range("A1").Value >= CDate("28.03.2009") Then
    MsgBox "28.03.2009 tarihine eşit veya geçti.."
    Exit Sub
End If

 

[gurbuzs]

tamam hallettim..ben tarih alanını =now() yapmıştım
direk tarih yazınca oluyor...
çok çok çok teşekkürler...
AMA
bugün yaptım pazartesi sistem tarihi =now() olmalı ki ğ.tesiden sonra çalışmasın..
onu nasıl yaparız...
TAMAM onu da hallettim
görünen formatla aynı yapınca oldu...
selamlar...

 

[gurbuzs]

peki 2 tarih ve saat arası olursa nasıl olur..
26.03.2009 11:00 ile 26.03.2009 17:00
arası nasıl olur...

 

[Orion1]

peki 2 tarih ve saat arası olursa nasıl olur..
26.03.2009 11:00 ile 26.03.2009 17:00
arası nasıl olur...

If Range("A1").Value >= CDate("26.03.2009 11:00") And _
Range("A1").Value <= CDate("26.03.2009 17:00") Then
    MsgBox "iki tarih aralığana eşit.."
    Exit Sub
End If

 

[gurbuzs]

bu tarih aralığında çalışmıyor
ama ben tam tersini istiyorum bu aralıklarda çalışacak..

sizi yordum farkındayım ama ihtiyaç işte..
çok saolun hızınıza hayran oldum

If Range("A1").Value >= CDate("26.03.2009 11:00") And _
Range("A1").Value <= CDate("26.03.2009 17:00") Then
    MsgBox "iki tarih aralığana eşit.."
    Exit Sub
End If

 

[Orion1]

Sub Macro2()
'
' Macro2 Macro
'

'
If Range("A1").Value >= CDate("26.03.2009 11:00") And _
Range("A1").Value <= CDate("26.03.2009 17:00") Then
    ActiveCell.FormulaR1C1 = "1"
    Range("C3").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("C4").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("B4").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("B5").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("C5").Select
    ActiveCell.FormulaR1C1 = "w"
    Range("C6").Select
    ActiveCell.FormulaR1C1 = "w"
    Range("B7").Select
    ActiveCell.FormulaR1C1 = "w"
    Range("C7").Select
    ActiveCell.FormulaR1C1 = "w"
    Range("C6").Select
Else
    MsgBox "iki tarih aralığanda değil.."
    Exit Sub
End If
End Sub

 

[gurbuzs]

muhteşemsin ne diim ki...
daha bişi kalmadı...
çok çok saol
allah ne muradın varsa versin arkadaşım