Eğer fonksiyonu yardımı

[cavanoos]

Merhaba;

Ekteki excelde B2 hücresinde formülüm var. Bunu değiştirmek istiyorum.
Yapmak istediğim şey şudur:
A2 hücresi boş ise, B2 hücresi de boş olacak.
A2 hücresi dolu ise, B2 hücresi, B sütunundaki en büyük sayı değerini görüp, bir fazlasını hesaplamalı.
Ekteki örnekte bu sayı 3 olmalı

Yardımcı olabilir misiniz ?

 

[Mahir64]

Merhaba,

Deneyiniz.

=EĞER(A2="";"";MAK($B$1:B1)+1)

 

[cavanoos]

Mahir Bey;

Formülünüz çalışıyor, teşekkür ederim.
Fakat bir istisnası var, konuyu eksik anlattığımın farkına vardım.
A10 hücresine değer giriyorum. B10 hücresi, 1 nolu değeri veriyor.
A8 hücresine değer giriyorum. B8 hücresi 1 nolu değeri veriyor. İstediğimiz değer 2 idi.
B sütununda önceki verilen değerleri değiştirmeden, bu işlem mümkün mü ?

 

[ÖmerFaruk]

Bu durumda MAKRO kullanmanız gerekir.
Aşağıdaki kodu sayfanızın KOD sayfasına yapıştırın.
A sütununda hücrelerde değişiklik yaptığınızda (aynı anda tek hücrede) B sütununa gerekli sıralamayı yapacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A2:A" & Range("A1").CurrentRegion.SpecialCells(xlCellTypeLastCell).Row)) Is Nothing Then Exit Sub
    Range("B" & Target.Row) = WorksheetFunction.Max(Range("B2:B" & Range("A1").CurrentRegion.SpecialCells(xlCellTypeLastCell).Row)) + 1
End Sub

 

[cavanoos]

Teşekkür ederim, güzel olmuş, sorunum çözülmüştür.