Parametre Değişmediyse Makro Uyarı versin

[o2l3m]

S2:T12 Aralığına Gün ve vardiya girerek Makro çalıştırıyorum.
Eğer S2:T12 paremetresinde hiçbirşey değiştirmediysem ve makroyo 2. defa çalıştırırsam uyarı verirmi?

 

[TanerSaydam]

Değer bir başka satıra daha yazdırır ve bir kontrol makrosu yazarsınız. Vardiya makronuza da önce o makroyu çalıştırırsınız. O zaman olabilir.

Örnek şeyle:

A1 sütununa veri giriyorum diyelim. Eğer girdiğim veri bir önceki ile aynıysa uyarı versin istiyorum. Üstte dediğim gibi A1 sütunun değerini E1'e de yazdırıyorum. Sonra aşağıdaki kod ile kontrol ettirmem gerek.

Sub Uyarı ()
If Range("A1").Value = Range("E1").Value Then
Msgbox "Aynı değeri girdiniz!",VBOkOnly,"UYARI!"
End If
End Sub

Mantığı bu şekilde düşünürseniz istediğiniz şekilde kodlayabilirsiniz.

 

[o2l3m]

Ok. Mantığı anladım.
Peki S Stünunda Gün, T stünunda Vardiya var.
Her ikisini birden nasıl kontrol ettirebilirim.

Örneğin S2:T12 Aralığındaki Gün ve vardiyayı AD2:AE12 Aralığında baksın.

 

[askm]

Eğer her ikisi birden eşit ise durumunu sorgulamak için and kullanınız. Yok sadece ikisinden birinin eşit mi değil mi sorgulaması için or kullanınız.

Sub Uyarı ()
If Range("S2").Value = Range("AD2").Value and Range("T2").Value = Range("AE2").Value Then
Msgbox "Aynı değeri girdiniz!",VBOkOnly,"UYARI!"
End If
End Sub

 

[o2l3m]

Çok teşekkür ediyorum. Kodlar çalışıyor.

Fakat birt sonraki gün, tarih ve vardiya bir alt satıra denk gelebiliyor. Böyle olunca verdiğimiz kriteri sebebi ile uyarı vermedi.

S2:T12 Aralığındaki Gün ve vardiyayı AD2:AE12 Aralığında bakamaz mı?

 

[askm]

Örnek dosya ekleyebilirseniz dediğiniz gibi kod yazmaya çalışırız.

 

[o2l3m]

Dosya ekteki gibidir.

 

[askm]

Sayfanın kod bölümüne yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [S2:T12]) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
For i = 2 To 12
    If Cells(Target.Row, "S") = Cells(i, "AD") And Cells(Target.Row, "T") = Cells(i, "AE") Then
        Cells(Target.Row, "S").Select
        MsgBox "Aynı değeri girdiniz!", vbOKOnly, "UYARI!"
        Exit Sub
    End If
Next i
End Sub

 

[o2l3m]

Çok teşekkür ediyorum. Kolay Gelsin.

 

[askm]

Rica ederim. İyi çalışmalar.