2 cell toplamı 100u geçmesin

[isarican]

S.A Arkadaşlar A1 Ve B1 Hücresindeki sayının toplamının 100 ü geçmemesini isityorum nasıl yapabilirim



Benim Yapabildiğim a1 hücresi 100ü geçmesin
b1 hücresi 100ü geçmesin yapabiliyorum.

AMa bu dediğimi veri/doğrulamadan yapamıyorum nasıl yaparım

 

[İdris SERDAR]

A1 ve B1 hücrelerinde:

Data / Validation / Settings/ Allow / Custom /Formula'ya

=(A1+B1)<=100

form&#252;l&#252;n&#252; yaz&#305;n.

.

 

[Orion1]

Merhaba.
Örnek dosyayı inceleyiniz.

 

[isarican]

@Sezar @yurttas Tşk ederim sagolun arkadaşlar

 

[isarican]

Arkadaşlar Yalnız A1 hücresi ve b1 siliyorum. A1e 100den fazla değer girebiliyorum. Aynı şekilde A1ve b1 boş iken sadece b1e 100den > değer girebiliyorum. Bunuda engelleyebilirmiyiz.


A1e 1000 Yazıp b1e 0bile yazsam uyarı veriyo a1+a2 toplamı 100ü gecemez diye

 

[Seyit Tiken]

A1 ile B1 hücrelerini seçin > Veri Doğrulama > Tüm Sayı > Arasında > En Az : 1
En Fazla : 100, kutucuklara yazıp enterleyin.

 

[isarican]

A1 ile B1 hücrelerini seçin > Veri Doğrulama > Tüm Sayı > Arasında > En Az : 1
En Fazla : 100, kutucuklara yazıp enterleyin.

Onu bende biliyorum Sayın Seyit Tiken


Ancak hem bu şekil olacak hemde a1+a2=100ü geçmeyecek.


Sizin yaptırdığınız

a1= 1 ile 100arasında olacak
b1= 1ile 100arasında olacak


Birde 2sinin toplamının 100ü geçmesini istemiyorum

 

[Ali]

A1 ve B1 hücrelerini seçtikten sonra

Veri-Doğrulama-Veri Doğrulama-İzin Verilenler-Ayarlar-İzin verilen- Özel formül kısmınada

=TOPLA(A1:B1)<=100 yazdığınızda olması gerekir.

 

[İdris SERDAR]

Arkadaşlar Yalnız A1 hücresi ve b1 siliyorum. A1e 100den fazla değer girebiliyorum. Aynı şekilde A1ve b1 boş iken sadece b1e 100den > değer girebiliyorum. Bunuda engelleyebilirmiyiz.


A1e 1000 Yazıp b1e 0bile yazsam uyarı veriyo a1+a2 toplamı 100ü gecemez diye

Ignore Blank /Boşluğu Yoksay kutusunu boş bırakarak deneyin.

Örnek dosya ekte.



..

 

[Orion1]

Merhaba.
Makro ile aşağıdaki gibi bir çözüm buldum.Çalışma sayfanızın kod bölümüne yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:B1]) Is Nothing Then Exit Sub
If Target.Column = 1 Then
    If Range("A1").Value + Range("B1").Value > 100 Then
        MsgBox "A1 ve B1 Hücrelerinin toplamı 100'ü geçemez..!!", vbCritical
        Range("A1").Select
    End If
End If
If Target.Column = 2 Then
    If Range("A1").Value + Range("B1").Value > 100 Then
        MsgBox "A1 ve B1 Hücrelerinin toplamı 100'ü geçemez..!!", vbCritical
        Range("B1").Select
    End If
End If
End Sub

 

[isarican]

Ignore Blank /Boşluğu Yoksay kutusunu boş bırakarak deneyin.

Örnek dosya ekte.



..

nasıl yapıldığını anlatarak (balık tutmasını öğretmek) yardım ettiginden tşk ederim sağolasın. Bu sayede kendim nasıl yapıldığını öğrendim Sadece boşluğu yoksay kutusunu boş bırakcakmışız.


@Sezar Sizede tşk ederim. sağolun makrolu çözümünüzden dolayı


Ve diğer yardım eden arkadaşlara tşk ederim

Her sorunuma çözüm getirebiliyorsunuz. Sizlerin yardımınıza teşekkür olarak bende bu forumda yardım istiyen diğer üyelere bildigim konularda yardım ediyorum