Sağ hücre dolu ise solundaki hücre 1, 2 diye artsın

[ferhatgurbuz]

Yani B11 hücresinde herhangi bir sayı yada metin var ise A11 hücreis 1 olsun
aynı şekilde B12 de değer varsa A12 bukez 2 olsun

 

[Metin Karaağaç]

A11 hücresine =EĞER(B11>0;1;"")
A12 hücresien =EĞER(B12>0;(A11+1);"")
olarak deneyin.

 

[Orion1]

B11 ve B12 hücrelerine veri girip inceleyiniz.
Ekli dosyayı inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B11,B12")) Is Nothing Then Exit Sub
On Error GoTo hata
If Target.Value <> "" Then
    If Target.Address(False, False) = "B11" Then
        Target.Offset(0, -1).Value = 1
    End If
    If Target.Address(False, False) = "B12" Then
        Target.Offset(0, -1).Value = 2
   End If
   Else
   Target.Offset(0, -1).Value = ""
End If
hata:
End Sub

 

[İdris SERDAR]

Yani B11 hücresinde herhangi bir sayı yada metin var ise A11 hücreis 1 olsun
aynı şekilde B12 de değer varsa A12 bukez 2 olsun

A11 hücresine;

=IF(B11>0;ROW(A1);"")
=EĞER(B11>0;SATIR(A1);"")

formülünü girip, istendiği kadar aşağıya doğru kopyalayın.

.

 

[ferhatgurbuz]

Arkadaşlar teşekkür ederim.

 

[noxious]

=EĞER(B2="";"";ALTTOPLAM(3;$B$2:B2)) Bunuda deniyebilirsiniz aşağıya doğru istediğiniz kadar çekebilirsiniz