İhale Birim Fiyatın altı ve üstü Uyarı VErmesi

[Yesilyurtlu]

Hayırlı Akşamlar.

Bugün zahmet verdim ama sizlere bu son sorum bugün. Yarına yetiştirmem lazım çünkü.

Ekte ihale birim fiyatı var. Sorumda ekte mevcut. Yardımlarınızı esirgemezseniz Teşekkür Ederim

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b1:b2]) Is Nothing Then Exit Sub
If [b1] > 0 And [b2] > 0 Then
If [b1] >= [b2] Then
[b3] = "uygun"
Else
[b3] = [b2] - [b1] & "  TL birim fiyatın üstünde"
End If
End If
End Sub

 

[Yesilyurtlu]

uzmanamele uzmanım TEşekkür Ederim. Sağolasın

 

[Yesilyurtlu]

Uzmanamele Uzmanım Bu Kodu aynı sayfa için
GEçici TEminat bedeli içinde kullandım ama Olmadı Onun için ne yapmalıyım.

Y12 = Yatırması Gereken Geçici Teminat Bedeli
C22 = Yatırdığı Geçici Teminat Bedeli
F22 = Sonuç Bölümü Eksik yada Fazla Bildiren Yer


Bu Kodu Yukarıda ki verdiğin Koda göre uyarladım olmadı.
Bu Konuda da Yardımcı olabilir misiniz

 

[sonsuzkalp]

yeşilyurtlu malatyanın neresindensin

 

[Yesilyurtlu]

yeşiltepe mah.

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b1:b2,y12:c22]) Is Nothing Then Exit Sub
If [b1] > 0 And [b2] > 0 Then
If [b1] >= [b2] Then
[b3] = "uygun"
Else
[b3] = [b2] - [b1] & "  TL birim fiyatın üstünde"

If [c22] >= [y12] Then
[f22] = [c22] - [y12] & " TL teminat bedeli FAZLA"
Else
[f22] = [y12] - [c22] & " TL teminat bedeli EKSİK"
End If
End If
End If
End Sub

 

[Yesilyurtlu]

Allah Razı Olsun uzmanamele UZMANIM.

Kod İşimi Gördü.

TEŞEKKÜR EDERİM

 

[Yesilyurtlu]

uzmanamele uzmanım
kod exceli kilitliyor.
1.kod hatasız 2.kod kilitliyor ve çok geç devreye giriyor

 

[uzmanamele]

merhaba

2. kod hatalıymış, bunu deneyin

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b1:b2, y12, c22]) Is Nothing Then Exit Sub
If [b1] > 0 And [b2] > 0 Then
If [b1] >= [b2] Then
[b3] = "uygun"
Else
[b3] = [b2] - [b1] & "  TL birim fiyatın üstünde"
End If
End If
If [C22] >= [Y12] Then
[f22] = [C22] - [Y12] & " TL teminat bedeli FAZLA"
Else
[f22] = [Y12] - [C22] & " TL teminat bedeli EKSİK"
End If
End Sub

 

[Yesilyurtlu]

uzmanamele UZMANIM

Şİmdi her iki kodda tamam Emeğine sağlık Hakkını Helal Et TEŞEKKÜR EDERİM