Makroyu tarihle sınırlamak

[acolkesen1]

Herkese iyi günler. Çalışma kitabımda bir sayfayı aynı kitap içinde bir başka sayfaya kopyalarken bu işlemi günün tarihi belirlediğim tarihten küçükse yapmasın ve uyarı mesajı versin istiyorum. Aşağıdaki makro öneğin 01.05.2008 tarihinden önce çalıştırılırsa " 01.05.2008 tarihinden önce bu işlemi yapamazsınız" gibi bir mesaj versin istiyorum.Acaba mümkün müdür? İlgilenen arkadaşlara teşekkür ederim..


Sub Makro1()
'
Cells.Select
Selection.Copy
Sheets("Sayfa1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Sayfa2").Select
Range("E5").Select
End Sub

 

[Ferhat Pazarçevirdi]

Merhabalar

Kodunuzu aşağıdaki gibi revize ediniz.

Sub Makro1()
If Date < DateSerial(2008, 5, 1) Then
   MsgBox DateSerial(2008, 5, 1) & " tarihiniden önce olmaz", vbCritical, "UYARI"
Else
  Cells.Select
  Selection.Copy
  Sheets("Sayfa1").Select
  ActiveSheet.Paste
  Application.CutCopyMode = False
  Sheets("Sayfa2").Select
  Range("E5").Select
End If
End Sub

 

[acolkesen1]

Değerli Ferhat, ilginiz için çok teşekkür ederim. Elinize sağlık. Gönderdiğiniz kod çok işime yarıyacak.. Tekrar teşekkür eder iyi günler dilerim..

 

[acolkesen1]

İzninzle bir sorum daha olacak aynı konuda..Tarih belirttiğimiz satırda aynı yere bir hücre adresini nasıl yazarız acaba? Yani örneğin A1 hücresinde hangi tarih yazılıysa o tarihe göre bir uyarı verdirtebilirmiyiz? Anlayacağınız bu işte çok da iyi değilim..

 

[Ferhat Pazarçevirdi]

Kodunuzu aşağıdaki gibi revize ediniz.

Sub Makro1()
If IsDate(Range("A1")) = False Then
   MsgBox "Hücredeki bilgi tarih formatında değil", vbCritical, "UYARI"
   Exit Sub
End If
If Date < Range("A1") Then
   MsgBox Range("A1") & " tarihiniden önce olmaz", vbCritical, "UYARI"
Else
  Cells.Select
  Selection.Copy
  Sheets("Sayfa1").Select
  ActiveSheet.Paste
  Application.CutCopyMode = False
  Sheets("Sayfa2").Select
  Range("E5").Select
End If
End Sub

 

[acolkesen1]

Değerli Ferhat bey, ilginize çok teşekkür ederim. Elinize sağlık..İyi çalışmalar dilerim.Herşey gönlünüzce olsun..

 

[Ferhat Pazarçevirdi]

Rica ederim... Sizlere de iyi çalışmalar ...