Hücre Doluluğuna göre otomatik sıra no verme

[sin77]

Merhaba arkadaşlar. Ekte gönderdiğim dosyada B sutunundaki hücre dolu ise karşısına gelen A sutunundaki numarayı kendi yazmasını istiyorum. Sıra numarası atlamadan. nasıl makrolandırabilirim acaba. tşk.

 

[uzmanamele]

merhaba
bu işinizi görür mü?
A6 hücreye 1 yazın,
A7 hücreye aşağıdaki formülü yazarak A sütunu boyunca kopyalayınız.

=EĞER(B7<>"";MAK($A$6:A6)+1;"")

 

[sin77]

tşk ederim. bunu makro ile nasıl yazabiliriz. Formüller fazla yer kaplıyorda.

 

[sin77]

tşk ederim. Bunu nasıl makrolandırabiliriz acaba. formüller fazla yer kaplıyorda.

 

[uzmanamele]

merhaba

aşağıdaki kod işinizi görür mü?
ilgili sayfanın kod bölümüne yazınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("b6:b65536")) Is Nothing Then Exit Sub
If Target.Count <> 1 Then Exit Sub
If Target = "" Then Exit Sub
ssn = Application.WorksheetFunction.Max(Range("a6" & ":" & "a" & Target.Row - 1))
Target.Offset(0, -1) = ssn + 1
End Sub

 

[sin77]

olmadı. Kod bölümüne yazdım ama herhangi bir değişiklik olmadı.

 

[sin77]

olmadı arkadaş.kod bölümüne yazdım ama sayı vermede değişiklik olmadı. örnek dosya ekleyebilirmisin?

 

[uzmanamele]

merhaba

ek dosyayı inceleyiniz.

basit bir formül dosyanızın çalışmasını etkilemez. makro her derde deva değildir, mümkün olduğunca yerleşik fonksiyonlarla çözüm aramanızı tavsiye ederim.