Otomatik Sayı ( A1 boşsa B1'e 1 yazsın )

[DeliBalta58]

Arkadaşlar bir döngü kurmalıyız.
A3 hücresini kontrol edecek Eğer hücrede veri varsa B3 hücresine otomatik sayı verecek.( 1 )
A4 hücresine bakacak veri varsa B4 ye 2 yazacak
A5 hücresine bakacak veri varsa B5 ye 2 yazacak
hücre boşsa otomatik sayı numarası verecek
yardımcı olabilirmisiniz?

bu formülle B3 hücresine

=EĞER(A3="";"";1)

B4 hücresine

=EĞER(A4="";"";B3+1)

diye oluyor ama formül kullanılmadan olmalı
Teşekkürler.

 

[AS3434]

B3
=eğer(B3="";"";eğersay($B$2:b2;">0")+1)
Yazın. çekerek aşağıya kopyalayın.

 

[DeliBalta58]

formül olarak değil makro olarak yapamadım.
İşlemin sonucunda excel de formül olmasını istemiyorum çünkü 1000 kayıt var dahada artıyor.Kb olan Excel kitabım Formül olenca mb çıkıyor

 

[AS3434]

Sub sırano()
    For X = 4 To [A65536].End(3).Row
    If Cells(X, 1) <> "" Then
    Cells(X, 2) = Cells(X - 1, 2) + 1
    End If
    Next
End Sub

 

[DeliBalta58]

elinize sağlık.

Bir sorun çıktı. Otomatik sayı vermeye 5.satırdan başlayarak veriyor

For x = 4 To [A65536].End(3).Row - 1
    If Cells(x, 1) <> "" Then
    Cells(x + 1, 2) = Cells(x, 2) + 1
    End If
    Next

bunu 2 satır geriye almak için

For x = 4 To [A65536].End(3).Row - 1

For x = 2

yaptım ama

Run-time error'13':
Type mismatch hatası çıkıyor
yanlışım nerde acaba ( Kusura bakmayınız Lütfen. Ugraştırıyorum sizi )

 

[DeliBalta58]

Tamam tamam sorunu çözdüm teşekkürler. Benim hatam.

Sub sırano()
    For X = 3 To [A65536].End(3).Row
    If Cells(X, 1) <> "" Then
    Cells(X, 2) = Cells(X - 1, 2) + 1
    End If
    Next

End Sub

 

[AS3434]

Sıra nosunu Butona bağlı kalmadan vermek isterseniz. Çalıştığınız Sayfanın kod sayfasına aşağıdaki kodları yazın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    For X = 3 To [A65536].End(3).Row
    If Cells(X, 1) <> "" Then
    Cells(X, 2) = Cells(X - 1, 2) + 1
    End If
    Next
    Application.EnableEvents = True
End Sub

 

[DeliBalta58]

İlginize tekrar teşekkürler Bu daha hoş oldu sanırım.

 

[freehot]

bu formülü çalıştırmak için ne yapıyoruz. ilk defa vba kısmı ile ilgileniyorum..

 

[HD1975]

Merhaba

Sıra nosunu Butona bağlı kalmadan vermek isterseniz. Çalıştığınız Sayfanın kod sayfasına aşağıdaki kodları yazın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    For X = 3 To [A65536].End(3).Row
    If Cells(X, 1) <> "" Then
    Cells(X, 2) = Cells(X - 1, 2) + 1
    End If
    Next
    Application.EnableEvents = True
End Sub

Yukarıdaki formülde sıra nosunu B sütununa değiled K sütünuna vermesi için ne gibi değişiklik gerekli.

Saygılar

 

[HD1975]

tamamdır

Tamam Çözdüm.

Saygılar