Bir hücreye değer(değişken sayı) limit/sınır koyarak durdurma ?

[rewulation]

Arkadaşlar umarım açıklayabilirim ;
bu verilerin hepsi 1.satırda geçerlidir,
A1 : elle değer girilmekte deneme-yanılma yoluyla
B1: mevcut değer(51 mesela)
C1: =(2*A1+B1) burda da değişken hücremiz var.

Benim derdim bu hücreye 100 sınırı koyabilmek yani A1 kutusuna "50" yazdığımda formül gereği C1 101 oluyor ama ben bunun 100e ulaştığında "100" olarak kalmasını istiyorum, yani a1 kutusuna 70de yazsam C1 kutusu "100" olarak kalmalı.

Bu konuda yardımcı olma şansınız varmı ? Şimdiden teşekkür ederim.
Not: mevcut office programım çok yeni veya eski ise olmuyorsa ,farklı versiyonda oluru varsa onu da yükleyebilirim.

 

[Muzaffer Ali]

Merhaba.
=eğer((2*A1+B1) >100;100;(2*A1+B1) )

 

[Seyit Tiken]

Makro ile bir örnek yaptım, A1 hücresine değer girerek deneyiniz.

 

[YUSUF44]

Alternatif:

=MİN(100;(2*A1+B1))

 

[rewulation]

cevaplarınız için teşekkür ederim.@seyit bey dosyayı açamadım.
@dalgalikur size de teşekkür ederim Yusuf hocamınki daha pratik geldi sanki bana
@yusuf hocam sizin verdiğiniz daha kolay oldu yazması ilk excelde her kutuya tek tek girdim şimdi diğer excellere de gireceğim ama sonuncusu çok kalabalık belirli bir alan veya o çalışma sayfası için bunu toplu uygulayam>yoruz sanırım? bulabildiğim heryere tıklayıp girip çıkamaya çalıştım varsa zahmet vermeden bulabilir miyim diye ama bulamadım ????

 

[YUSUF44]

Ne yapmak istediğinizi tam anlayamadım ama manuel olarak yapabiliyorsanız hızlı ve otomatik olarak da yaptırılabilir.

 

[rewulation]

Ne yapmak istediğinizi tam anlayamadım ama manuel olarak yapabiliyorsanız hızlı ve otomatik olarak da yaptırılabilir.

yani bu eğer formülünü topluca bütün hücrelere uygulamanın yolu varmı diye sormak istedim?

 

[YUSUF44]

Belirttiğim gibi yapılabilir muhtemelen ama ne yapmak istediğinizi ben anlayamadım. Örnek dosya ile açıklarsanız yardımcı olmaya çalışırız.

 

[rewulation]

asd.xlsx dosyasını indir - download

asd.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

örnek bu dosyada hocam asıl dosya büyüktü yükleyemedim ,

8 ve 9. satırlar C ve Q sütünları alanında yani 2x15lik tablo içeriyor bu örnek dosya yer yer 2 3 formül var bahsettiğim gibi elle veri girişine (B) bağlı değişen.
Benim derdim asıl dosyalarda 70 90 satır olan yani 70x15 lik alanda tek tek min\eğer ifadesini yazmak çok zor olacağı için bu seçili alan veya excelin tamamı için MİN\EĞER formulünü TOPLU şekilde uygulama şansım varmı ?

 

[YUSUF44]

Paylaştığınız dosyayla önceki sorduğunuz soruya verilen formül(ler) arasında bağlantı yok. Hatta dosyanızda verilen formüller de yok. Hangi hücreye nasıl bir eğerli formül yazılacak? Tüm hücrelere mi, belirli hücrelere mi, aynı formül mü, hücresine göre farklı formül mü? Lütfen bizim anlayabileceğimiz bir şekilde örnekleyiniz.

 

[rewulation]

Paylaştığınız dosyayla önceki sorduğunuz soruya verilen formül(ler) arasında bağlantı yok. Hatta dosyanızda verilen formüller de yok. Hangi hücreye nasıl bir eğerli formül yazılacak? Tüm hücrelere mi, belirli hücrelere mi, aynı formül mü, hücresine göre farklı formül mü? Lütfen bizim anlayabileceğimiz bir şekilde örnekleyiniz.

Hocam baştan anlatıyorum

dosya özel olduğu için direkt veremiyorum malesef.
Resimde de yazdığım şekilde sorum şu:

Bu değer kısıtlamak için MİN ve EĞER Formülünü SARI işaretleyip alana Toplu uygulayabilir miyim ?
olmuyorsa bütün excele uygulanıyorsa nasıl yapabilirim ?

İlginize çok teşekkür ederim

 

[YUSUF44]

Şöyle bir şey mi istiyorsunuz? Aşağıdaki makro B3:O19 aralığında formül olan hücreleri =MİN(100;eskiformül) şekline dönüştürür:

Sub formul()
For Each hucre In [B3:O19]
    If hucre.HasFormula Then
        eski = Replace(hucre.Formula, "=", "")
        hucre.Formula = "=MIN(100," & eski & ")"
    End If
Next
End Sub

 

[rewulation]

Şöyle bir şey mi istiyorsunuz? Aşağıdaki makro B3:O19 aralığında formül olan hücreleri =MİN(100;eskiformül) şekline dönüştürür:

Sub formul()
For Each hucre In [B3:O19]
    If hucre.HasFormula Then
        eski = Replace(hucre.Formula, "=", "")
        hucre.Formula = "=MIN(100," & eski & ")"
    End If
Next
End Sub

Mükemmel hocam Çok teşekkür ederim Hayırlı ramazanlar