Yanlış tarihte makro çalışmayacak.

[zırzır]

Arkadaşlar,"sayfa.1"de B4,C4,D4,E4 hücrelerinden başlayıp B28,C28,D28,E28 hücrelerine kadar olan sütunlarda verilerim var,bu verileri makro ile "sayfa.2"ye aktarıyorum,Bu aktarma işini F1 deki hücreye bugünün tarihini yazarak yapıyorum, sizden ricam
a)=Bu günün tarihi yanlışsa "aktar" makrosu çalışmayacak ve uyarı verecek.
b)=E28 hücresinde veri yoksa yine "aktar" makrosu çalışmayacak.
ilginize şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Bu tür durumlarda IF komutu ile sorgulama yapabilirsiniz.

Sub AKTAR()
    If [F1] <> Date Then
    MsgBox "G&#304;RD&#304;&#286;&#304;N&#304;Z TAR&#304;H HATALIDIR !", vbExclamation, "UYARI !"
    Exit Sub: End If
    If [E28] = "" Then
    MsgBox "BO&#350; H&#220;CRE TESB&#304;T ED&#304;LD&#304; !", vbExclamation, "UYARI !"
    Exit Sub: End If
    'KODLARINIZ...
End Sub

 

[zırzır]

Sayın COST_CONTROL ellerinize sağlık,teşekkür ederim.

 

[zırzır]

Sayın COST_CONTROL,yazdığınız kodlardaki E28 hücresi yerine "B5,C5,D5,E5"ten başlayıp "B28,C28,D28,E28" kadar olan dört sütundaki 96 hücrenin birinde veri olmazsa "aktar" makrosu çalışmasın (yanlış kaydı önlemek için) yapabilirmiyiz.

 

[geren36]

cost_control' un yazdığı kodu şöyle değiştirin lütfen;

Sub AKTAR()
a = Worksheetfunction.Countblank(range("b5:e28"))
If [F1] <> Date Then
MsgBox "G&#304;RD&#304;&#286;&#304;N&#304;Z TAR&#304;H HATALIDIR !", vbExclamation, "UYARI !"
Exit Sub: End If
If a > 0 Then
MsgBox "BO&#350; H&#220;CRE TESB&#304;T ED&#304;LD&#304; !", vbExclamation, "UYARI !"
Exit Sub: End If
'KODLARINIZ...
End Sub

 

[zırzır]

Sayın geren36,ilginize teşekkür ederim,ellerinize sağlık.

 

[geren36]

rice ederim, iyi çalışmalar..