Hücreye koşullu veri girişi

[a.cogurcu]

Örnek dosyada gerekli açıklamaları yaptım. A sütununa koşullu veri girişi yapmak istiyorum... yardımcı olan arkadaşlara şimdiden çok teşekkür ederim...

 

[ozgretmen]

Selam.Aşağıdaki gibi bir kod işinize yarar mı ? ( Biraz acemice bir kod ama , idare edin )
Sayfa X in kod bölümüne ekleyin.İyi çalışmalar...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim son, bak As Integer
son = ActiveCell.Row
bak = son - 1
If Range("A" & bak).Value = "KM001" And Range("AE" & bak).Value > 1.77 Then
MsgBox "Pastal eni 1,77 den fazla!"
Range("A" & bak).Select
Range("A" & bak).Value = ""
Else
End If
If Range("A" & bak).Value = "KM003" And Range("AE" & bak).Value > 1.77 Then
MsgBox "Pastal eni 1,77 den fazla!"
Range("A" & bak).Select
Range("A" & bak).Value = ""
Else
End If
If Range("A" & bak).Value = "KM005" And Range("Y" & bak).Value > 0 And Range("Z" & bak).Value > 0 Then
MsgBox "Drill çalışmalı pastal!"
Range("A" & bak).Select
Range("A" & bak).Value = ""
Else
End If
End Sub

 

[a.cogurcu]

Hocam emeğine sağlık güzel olmuş..... Işimi görecek....
Fakat; km005 için olan makroda "y" ve "z" nin her ikisi dolu olduğu zaman uyarı veriyor. Bir tanesi dolu olduğunda uyarı vermiyor, giriş yapılabiliyor. Acaba bunu çözebilir miyiz? Emeğine sağlık tekrar...

 

[ozgretmen]

Yardımcı olabildiysem ne mutlu.Aşağıdaki gibi düzeltin.iyi çalışmalar..

If Range("A" & bak).Value = "KM005" And Range("Y" & bak).Value [COLOR="#ff0000"]>= 0[/COLOR] And Range("Z" & bak).Value [COLOR="Red"]>= [/COLOR]0 Then

 

[a.cogurcu]

Seni biraz uğraştıracağız galiba... Galiba "=0" yazdığımızdan şimdi de a sütununa km005 girişi yapmama izin vermiyor

 

[ozgretmen]

Seni biraz uğraştıracağız galiba... Galiba "=0" yazdığımızdan şimdi de a sütununa km005 girişi yapmama izin vermiyor

Aşağıdaki şekilde tekrar deneyiniz...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim son, bak As Integer
son = ActiveCell.Row
bak = son - 1
If Range("A" & bak).Value = "KM001" And Range("AE" & bak).Value > 1.77 Then
MsgBox "Pastal eni 1,77 den fazla!"
Range("A" & bak).Select
Range("A" & bak).Value = ""
Else
End If
If Range("A" & bak).Value = "KM003" And Range("AE" & bak).Value > 1.77 Then
MsgBox "Pastal eni 1,77 den fazla!"
Range("A" & bak).Select
Range("A" & bak).Value = ""
Else
End If
If Range("Y" & bak).Value = 0 And Range("Z" & bak).Value = 0 Then
Else
If Range("A" & bak).Value = "KM005" And Range("Y" & bak).Value >= 0 And Range("Z" & bak).Value >= 0 Then
MsgBox "Drill çalışmalı pastal!"
Range("A" & bak).Select
Range("A" & bak).Value = ""
Else
End If
End If
End Sub

 

[a.cogurcu]

Teşekkür ederim....çalışıyor...

 

[ozgretmen]

Teşekkür ederim....çalışıyor...

Rica ederim.İyi çalışmalar.

 

[mertdalagan]

merhaba,
bunu makro suz yapmak mümkün mü?

 

[a.cogurcu]

yardımcı olabilecek arkadaşlar vardır muhakkak....