Formül olan hücreye veri doğrulama nasıl yaparım.

[merzey_turker]

Arkadaşlar Merhaba,

Ekteki dosyada izah ettim gerçi, listedeki borç ve alacak toplamlarının arasındaki fark, bir hücrede formüllü olarak sıfırı gösteriyor. listedeki borç veya alacağa bir rakam girdiğimde sıfırı gösteren hücre değişiyor. bu hücre değiştiğinde veri doğrulamanın beni uyarmasını istiyorum. Sıfır gösteren hücreye el ile giriş yapınca veri doğrulama çalışıyor. ama listedeki rakamlar değiştiğinde sıfır gösteren hücre değişiyor ama veri doğrulama çalışmıyor.

yardımcı olursanız sevinirim.
şimdiden teşekkür ederim.

 

[YUSUF44]

Veri doğrulamayla olur mu bilmem ama hücreye koşullu biçimlendirme uygulayarak 0'dan farklı olduğunda farklı biçim almasını sağlayabilirsiniz. Örneğin hücrenin kırmzıı dolgulu olması gibi.

 

[merzey_turker]

onu biliyorum, veri doğrulama oluyormu, o önemli benim için..

 

[merzey_turker]

yardımcı olacak kimse yokmu?? yoksa bu istediğim olmuyormu??

 

[Milady Meriç]

Veri doğrulamayı bende bir türlü oturtamadım.

Ama belki işinizi görürse, aşağıdaki kodu vba'da workbook altına yazarsanız, eğer F11 hücresi 0 değil ise uyarı mesajı verecektir. Alternatif olsun.

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)

If Range("f11").Value <> 0 Then
MsgBox ("BUTCE DENK DEGIL")
End If
End Sub

 

[merzey_turker]

teşkkür ederim..buda işimi görür..veri doğrulamada yapabilseydim daha iyi olacaktı ama..sağol üstadım...

 

[ataturkiyem11]

Veri doğrulamayı bende bir türlü oturtamadım.

Ama belki işinizi görürse, aşağıdaki kodu vba'da workbook altına yazarsanız, eğer F11 hücresi 0 değil ise uyarı mesajı verecektir. Alternatif olsun.

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)

If Range("f11").Value <> 0 Then
MsgBox ("BUTCE DENK DEGIL")
End If
End Sub

BU KOD ÇALIŞMIYOR? nasıl çalıştıracağız formüllü hücre değeri 0 altına düşünce msgbox iletisi istiyorum...

 

[ataturkiyem11]

Formül olan A1 hücresindeki değer, 0'ın altına düşünce yani -1 -2 -3.... gibi gösterince msgbox iletisi almak istiyorum arkadaşlar... Yardım edebilir misiniz...

 

[ataturkiyem11]

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
If Range("f11").Value < 2 Then
MsgBox ("?????????????????????")
End If
End Sub


Sanırım bu kod işimi gördü Teşekkürler.

 

[ugurcoskun]

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)

If Range("f11").Value <> 0 or Range("f11").Value < 0 Then
MsgBox ("BUTCE DENK DEGIL")
End If
End Sub