otomatik sipariş nosu atama

[hüseyin91]

makro olarak bunu kullanıyorum. sadece o hücreye bir değer girildiğinde sıralı otomatik bir rakam atsın istiyorum. aşağıdaki koda ne eklemeliyim

saygılarımla


Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 2 And Target.Value <> "" Then
Cells(Target.Row, 1) = ne yazmalıyım
End If
End Sub

 

[veyselemre]

Cells(Target.Row, 1) = Cells(Target.Row, 1)+1

 

[mlakdag]

Belki benim bir hatalı uygulamam sebebiyledir tam bilemiyorum ama Sayın veyselemre'nin çözümünü uyguladığımda tüm satırların 1 değerini aldığını gördüm.
Cells(Target.Row, 1) = Cells((Target.Row) - 1, 1) + 1 şeklindeki küçük bir değişiklikle 1. satıra manuel 1 konulmak koşuluyla artan bir seri yakalamak mümkün oldu. Ancak arada boş olarak atlanan satır olursa tekrar 1'den başlıyor.

Saygılarımla.

 

[veyselemre]

Formülde bunu yapmasını istiyor sanıyorum. B sütununda her değişiklik yapıldında A sütununda ilgili değer bir artması için yazıldığını düşünüyorum.