Hücreye girilen değerin diğer hücrelerle karşılaştırmak

[feraset045]

arkadaşlar benim 5 sütunlu bir tablom var e6,f6,g6,h9,ı6 diye ben bunlara yaklaşık 20-30 tane sırasıyla birim fiyat giriyorum.amacım EĞER ilk sutunun 1 satırından son satırına kadar diğer süturlardan büyük ise msgbox ile uyarı versin

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu ilgili sayfanın kod bölümüne uygulayıp denermisiniz.

Not: Lütfen soru başlıklarınızı forum kurallarına uygun olarak belirleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Application.Intersect(Target, [E6:K56]) Is Nothing Then Exit Sub
    If Not IsEmpty(Target) And IsNumeric(Target) Then
    For X = 5 To 11
    If Not IsEmpty(Cells(Target.Row, X)) Then
    If Target > Cells(Target.Row, X) Then
    KONTROL = KONTROL & vbCrLf & Cells(Target.Row, X).Address(0, 0) & "  HÜCRESİNDEKİ DEĞERDEN BÜYÜKTÜR."
    End If: End If: Next
    If KONTROL = Empty Then GoTo SON
    MsgBox "GİRİLEN DEĞER " & Target & vbCrLf & KONTROL, vbCritical, "DİKKAT !"
    End If
SON:
End Sub

 

[feraset045]

pardon cost control hoca işe yaradı teşekkürler bir daha dikkat ederim konu başlığına yanlız bir sorun var şimdi ben ilk olarak e sütununu girmem gerekiyor ve diğer hücreler boş olduğu için onada mesaj veriyor

 

[Korhan Ayhan]

Selamlar,

Soru başlığınız tarafımdan düzeltilmiştir. Ayrıca üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

 

[feraset045]

cost control hoca yine olmadı ya denedim olmuyor başlangıçta sutunlar boş olduğu için ilk e sütunu var yani (verilerin diğier sütunlardan büyük olmaması gereken sütun). ilk e sütunu giriyorum sonra diğerlerini giriyorum olmuyor eğer diğerlerini önce girersem oluyor.acaba e sütununu önce yazarsam olmuyor

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

 

[hakancarlo]

excelde sayfa 1'de A1 hücresine bir bilgi yazıp diğer sayfalarda o bilgiyi nasıl bulabilirim?mesela sayfa 1'de A1 hücresine ANKARA yazsam diğer sayfaların birinde yazan ANKARA kelimesine nasıl ulaşırım?Yardımcı olursanız sevinirim.teşekkürler.

 

[hakancarlo]

LÜtfen Yardim Edİn.

excelde sayfa 1'de A1 hücresine bir bilgi yazıp diğer sayfalarda o bilgiyi nasıl bulabilirim?mesela sayfa 1'de A1 hücresine ANKARA yazsam diğer sayfaların birinde yazan ANKARA kelimesine nasıl ulaşırım?Yardımcı olursanız sevinirim.teşekkürler.