Koşullu değer

[kemal turan]

Üstadlar merhaba,

A1 hücresi 1 ise B1 hücresini 2 yapacak( yani bir üst sayı 1000 ise 1001 gibi) işlev varmı.

 

[kemal turan]

üstadlar bayram tatilinde harhalde

 

[Korhan Ayhan]

Merhaba,

B1 hücresindeki değer sürekli artacak mı?

Örnek;

B1 boş A1 20 ise B1 = 20
A1 5 ise B1 = 20 + 5 şeklindemi gidecek?

 

[Korhan Ayhan]

Merhaba,

Eğer üstteki mesajımdaki gibi bir sonuç istiyorsanız aşağıdaki kodu sayfanızın kod bölümüne uyarlayın.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Target <> "" And IsNumeric(Target) Then
        Range("B1") = Range("B1") + Target
    End If
Son: Application.EnableEvents = True
End Sub

Aslında bu işlemi makro kullanmadan döngüsel başvuru kullanarakta yapabilirsiniz. Profilinizde 2010 kullandığınız yazıyor. 2010 versiyonda yerini tam olarak bilmediğim için tarif edemeyeceğim.

2003 versiyona göre;

ARAÇLAR-SEÇENEKLER-HESAPLAMA menüsünü açın.
YİNELEME seçeneğini aktif hale getirin ve altındaki 100 değerini 1 olarak değiştirip tamam diyerek işlemi tamamlayın.

Daha sonra B1 hücresine aşağıdaki formülü uygulayın.

=B1+A1

A1 hücresine değer girdikçe B1 hücresi değişecektir.

 

[kemal turan]

KORHAN BEY MERHABA,
Ben satışlar sahifemden MAK işlevi ile en son cari numarayı çekiyorum.Yeni cari no yu elle değilde otomatik olarak gelsin istiyorum.Forumdaki bir önceki soruma bakabilrseniz orada c2 hücresi M2 ye göre değer alsın istiyorum.
Teşekkürler

 

[kemal turan]

Çözüm için işleve gerek kalmadı.(B1=A1+1) şeklinde basitçe bir çözüm işimi çözdü.

 

[Korhan Ayhan]

Merhaba,

Ben ilk mesajınızdan sizin çözdüğünüz şekilde bir sonuç çıkaramadım maalesef. Bu sebeple anladığım kadarıyla çözümler sundum. Sonuç olarak çözüme ulaşmanıza sevindim.