Sistem tarihi ile sayfa tarihinin mukayesesi

[zırzır]

Arkadaşlar,excel sayfasındaki A1 hücresinde tarih yazılı.B1 hücresinde "=şimdi" formülü ile bilgisayarın tarihi ve C1 hücresinde ise sayfa içindeki bilgileri,başka sayfalara aktaran "aktar" butonu var.Sistem tarihi değiştiğinde örnek:05 olduğunda A1'deki tarih'de 05 değilse "aktar" butonu çalışmamalı ve "Lütfen tarihi düzeltin"uyarısı çıkmalı.İki tarih eşit olursa buton çalışmalı.Arkadaşlar acil yardımlarınızı bekliyorum.Saygılar

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub AKTAR()
    If [A1] <> Date Then
    MsgBox "L&#252;tfen tarihi d&#252;zeltiniz.", vbInformation
    Exit Sub
    End If
    'Bu b&#246;l&#252;me aktar&#305;m yapan kodlar&#305;n&#305;z&#305; yaz&#305;n.
End Sub

 

[zırzır]

Sayın COST_CONTROL,gecenin bu saatinde ilgine teşekkür ederim.Ancak aşağıdaki kodu,sizin koda nasıl adapte ederim.Aktar butonu "AS"sayfasında bulunuyor.

Sub puant()
Set s1 = Sheets("AS")
Set s2 = Sheets("FİDER")
Set s3 = Sheets("154")
For bak1 = 4 To 34
If s2.Range("A" & bak1) = s3.Range("AB1") Then
s2.Select
s2.Range("A" & bak1).Select
Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 17)) = s1.Range("B40:R40").Value
End If
Next
End Sub

 

[Korhan Ayhan]

Selamlar,

A1 hücresindeki tarih çalışmanızın hangi sayfasında belirtmemişsiniz. Eğer AS sayfasında ise aşağıdaki şekilde denermisiniz.

Sub Puant()
    Set S1 = Sheets("AS")
    Set S2 = Sheets("FİDER")
    Set S3 = Sheets("154")
    [B][COLOR=RED]If S1.[A1] <> Date Then
    MsgBox "L&#252;tfen tarihi d&#252;zeltiniz.", vbInformation
    Exit Sub
    End If[/COLOR][/B]
    For Bak1 = 4 To 34
    If S2.Range("A" & Bak1) = S3.Range("AB1") Then
    S2.Select
    S2.Range("A" & Bak1).Select
    Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 17)) = S1.Range("B40:R40").Value
    End If
    Next
End Sub

 

[zırzır]

Sayın COST_CONTROL,verdiğiniz kodu kopyaladım ana sayfa 154 tarih AB1 de,
Tarihi değiştirdiğim zaman uyarı yazısı geliyor ama "154" sayfasındaki verileri "154 fider puant" sayfasına kopyalama yapıyor,"AS" sayfasındaki veriler ise güzel çalışıyor.Birde AC1 deki sistem tarihini 01 iki haneli sayı olarak yazamazmıyız.

 

[zırzır]

Arkadaşlar işler yarım kaldı,yardım edermisiniz.

 

[zırzır]

Sayın COST_CONTROL,ilgilenirseniz sevinirim.

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanızda "puant" ve "puant1" adıyla iki adet kodlama bulunuyor. Başka bir kodla bu iki kodu peşpeşe çalıştırıyorsunuz.

"puant" isimli koda benim önerdiğim kontrolü eklediğiniz için istediğiniz uyarıyı alıyorsunuz. Fakat kod otomatik olarak "puant1" makrosuna geçtiği için ve bu kodada tarih sorgulamasını eklemediğiniz için doğal olarak aktarım işlemine devam ediliyor.