iki koşula göre if fonksiyonu

[kucukdunyam]

Sevgili Arkadaşlar, Basit bir soru ama,

A1 ile A20 hücreleri arasına herhangi bir değer girildiğinde, A25 Hücresi 5 ten büyükse, Uyarı Mesajı Versin.

bunu yapabilirmisiniz. teşekkür ederim.

 

[Huseyinkis]

Ekteki formulu A1:A20 ve A25 haric biryere kopyalayın

=EĞER(TOPLA(A1:A20)<>0;EĞER(A25>5;"Uyarı Mesajı";"");"")

 

[kucukdunyam]

Yalnız formüllerle değil, vba makro ile yapmam gerekiyor,

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bülümüne kopyalayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A1:A20]) Is Nothing Then Exit Sub
If [A25] > 5 Then MsgBox "A1-A20 ye değer girildi ve A25 hücresinin değeri 5 ten büyük, Ne yapayım?"
Son:
End Sub

 

[kucukdunyam]

çooooooooooooooooook teşekkür ederim. dün bir iki saat uğraşmıştım bu konuyla

 

[Necdet]

Güle güle kullanınız

 

[kucukdunyam]

ya üstad. bir ilave daha isteyeceğim, yazmış olduğunuz kodu çoğaltmak istiyorum., örneğin,
a1:a20 arasında işlem yapıldığında eğer a25 5 ten büyükse uyar,
b1:b20 arasında işlem yapıldığında eğer b25 5 ten büyükse uyar,
c1:c20 arasında işlem yapıldığında eğer c25 5 ten büyükse uyar, ... gibi

 

[Huseyinkis]

çooooooooooooooooook teşekkür ederim. dün bir iki saat uğraşmıştım bu konuyla

Ben Farklı Anladım galiba A1:A20 de değer girişi olacak ve A25 5 den büyük olacak.

A25 hücresi A1:A20 nin toplamı değilse aşağıdaki formulu de alternatif olarak kullanabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A25")) Is Nothing Then Exit Sub
If WorksheetFunction.Sum(Range("A1:A20")) <> 0 And Range("A25").Value > 5 Then
MsgBox "Uyarı"
End If

End Sub

 

[kucukdunyam]

ya üstad. bir ilave daha isteyeceğim, yazmış olduğunuz kodu çoğaltmak istiyorum., örneğin,
a1:a20 arasında işlem yapıldığında eğer a25 5 ten büyükse uyar,
b1:b20 arasında işlem yapıldığında eğer b25 5 ten büyükse uyar,
c1:c20 arasında işlem yapıldığında eğer c25 5 ten büyükse uyar, ... gibi

 

[Huseyinkis]

ya üstad. bir ilave daha isteyeceğim, yazmış olduğunuz kodu çoğaltmak istiyorum., örneğin,
a1:a20 arasında işlem yapıldığında eğer a25 5 ten büyükse uyar,
b1:b20 arasında işlem yapıldığında eğer b25 5 ten büyükse uyar,
c1:c20 arasında işlem yapıldığında eğer c25 5 ten büyükse uyar, ... gibi

D hücresine göre yukarıdaki formulu değiştirsdim siz daha fazla uztmak isterseniz A120 kısmını ve For i = 1 to 4 kısmını değiştiriniz burdaki 4 = D hücresidir 5 olasaydı E olurdu siz sayarak işlem yapın.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A1:D20]) Is Nothing Then Exit Sub
for i = 1 to 4 
If Cells(25,i).value > 5 Then MsgBox "A1-A20 ye değer girildi ve A25 hücresinin değeri 5 ten büyük, Ne yapayım?"
next
Son:
End Sub

 

[Necdet]

ya üstad. bir ilave daha isteyeceğim, yazmış olduğunuz kodu çoğaltmak istiyorum., örneğin,
a1:a20 arasında işlem yapıldığında eğer a25 5 ten büyükse uyar,
b1:b20 arasında işlem yapıldığında eğer b25 5 ten büyükse uyar,
c1:c20 arasında işlem yapıldığında eğer c25 5 ten büyükse uyar, ... gibi

Merhaba,

Aşağıdaki kodda kırmızı ile belirlediğim değeri siz kendinize göre değiştirebilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A1:[B][COLOR=red]C[/COLOR][/B]20]) Is Nothing Then Exit Sub
If Cells(25, Target.Column) > 5 Then MsgBox Split(Target.Address, "$")(1) & "25 hücresinin değeri 5 ten büyük, Ne yapayım?"
Son:
End Sub

 

[kucukdunyam]

ya üstad, satırlara da ihtiyacım oldu, satırlar için yapınca neyi değişitrimmem lazım,
yani
A1:E1 satına veri girince F1 hücresi 5 ten büyükse Uyarı Mesajı Versin
A2:E2 satına veri girince F2 hücresi 5 ten büyükse Uyarı Mesajı Versin
A3:E3 satına veri girince F3 hücresi 5 ten büyükse Uyarı Mesajı Versin

 

[Necdet]

ya üstad, satırlara da ihtiyacım oldu, satırlar için yapınca neyi değişitrimmem lazım,
yani
A1:E1 satına veri girince F1 hücresi 5 ten büyükse Uyarı Mesajı Versin
A2:E2 satına veri girince F2 hücresi 5 ten büyükse Uyarı Mesajı Versin
A3:E3 satına veri girince F3 hücresi 5 ten büyükse Uyarı Mesajı Versin

Merhaba,

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A:E]) Is Nothing Then Exit Sub
If Cells(Target.Row, "F") > 5 Then MsgBox "F" & Target.Row & " Hücresinin Değeri 5 ten Büyük"
Son:
End Sub

 

[Necdet]

Sonuç ne oldu ki?

 

[kucukdunyam]

merhaba ekteki dosyada düzenlemeler yapabilirmisiniz.
HER AYA İKİDEN FAZLA X KONULDUĞUNDA VE, AG NİN AH'DEN BÜYÜK OLMASI DURUMUNDA UYARI VERSİN

 

[kucukdunyam]

Yalnız boş hücrelere veri girşi yaparken uyarıları görmek istiyorum. Mevcut hali sadece ag nin ah den büyük olması durumunda veriyor. Ben buna ilave ayrıca her aya iki veya fazla işaret konulduğunda da olmasını istiyorum.

 

[kucukdunyam]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [I:AG]) Is Nothing Then Exit Sub
If Cells(Target.Row, "AG") > Cells(Target.Row, "AH") Then MsgBox "Görevli Memurun Görev Sayısı : " & Cells(Target.Row, "AH") & " dir", vbInformation
Son:
End Sub
If Intersect(Target, [I:L]) Is Nothing Then Exit Sub
If Cells(Target.Row, "AL") > 1 Then MsgBox "Bir Aya İkiden Fazla Görev Verdiniz", vbInformation

Son:
End Sub


BU İKİ KOŞULU NASIL SAĞLIKLI ÇALIŞTIRABİLİRİM

 

[kucukdunyam]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [I:AG]) Is Nothing Then Exit Sub
If Cells(Target.Row, "AG") > Cells(Target.Row, "AH") Then MsgBox "Görevli Memurun Görev Sayısı : " & Cells(Target.Row, "AH") & " dir", vbInformation

If Intersect(Target, [I:L]) Is Nothing Then Exit Sub
If Cells(Target.Row, "AL") > 1 Then MsgBox "Bir Aya İkiden Fazla Görev Verdiniz", vbInformation
If Intersect(Target, [M]) Is Nothing Then Exit Sub
If Cells(Target.Row, "AJ") > 1 Then MsgBox "Bir Aya İkiden Fazla Görev Verdiniz", vbInformation
If Intersect(Target, [Q:T]) Is Nothing Then Exit Sub
If Cells(Target.Row, "AK") > 1 Then MsgBox "Bir Aya İkiden Fazla Görev Verdiniz", vbInformation

Son:
End Sub
HATTA BÖYLE ÜÇ DÖRT KOŞULU NASIL YAZARIM,

 

[kucukdunyam]

yardımcı olabilirmisiniz

merhabalar!

ekli listede B3:B11 HÜCRELERİNDE FORMÜL İLE YAPTIRDIĞIM İŞİ, MAKRO İLE YAPTIRMAK İSTİYORUM,

YANİ B3 HÜCRESİNE,
GİRİŞ SAYFASINDAKİ SEKTÖRÜ AKTAR OLAN KİŞİLERİ SÜZECEK, BUNLARDAN MÜKERRER NUMARADA (D SÜTUNUNA GÖRE) FARKLI KAÇ ADET NUMARA VAR BU SAYIYILARI BU SAFFAYA AKTARMAK İSTİYORUM.
YANİ ; GİRİŞ SAYFASINDA, AKTAR SEKTÖRÜ OLAN, İKİ FARKLI NUMARALI KİŞİ VAR,

 

[numan şamil]

merhabalar!

ekli listede B3:B11 HÜCRELERİNDE FORMÜL İLE YAPTIRDIĞIM İŞİ, MAKRO İLE YAPTIRMAK İSTİYORUM,

YANİ B3 HÜCRESİNE,
GİRİŞ SAYFASINDAKİ SEKTÖRÜ AKTAR OLAN KİŞİLERİ SÜZECEK, BUNLARDAN MÜKERRER NUMARADA (D SÜTUNUNA GÖRE) FARKLI KAÇ ADET NUMARA VAR BU SAYIYILARI BU SAFFAYA AKTARMAK İSTİYORUM.
YANİ ; GİRİŞ SAYFASINDA, AKTAR SEKTÖRÜ OLAN, İKİ FARKLI NUMARALI KİŞİ VAR,

Merhaba Ekli dosyayı incelermisiniz