Sıra Numarası Verdirme

[iplikci_80]

Sayfa1 B5 hücresinden başlamak üzere veriler girdikçe A5 hücresinden başlamak üzere artırarak sıra numaraları 1,2,3.... gidecek, Sayfa1 de yeni sıra verirken Sayfa2 deki sıra numaralarının en büyüğüne göre, yani 5 ise 6 .. vs gibi sıralama yapıyor. Benim yapmak istediğim şey sıralamanın Sayfa1 A5 hücresinden başlamasını sağlamak ve sehven de olsa B1 hücresine veri gidiğimde A1 hücresi değişiyor. Bu konuda yardımlarınızı bekliyorum.

 

[numan şamil]

Merhaba
Pek anlamadım ama
Kodlarınızı şeklinde denermisiniz

Dim b5BuYuk As Double
Dim b5Buyuk2 As Double
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.[COLOR="Red"]Row[/COLOR] > 4 Then
    bBuYuk = WorksheetFunction.Max(Columns(1))
    bBuyuk2 = WorksheetFunction.Max(Sheets(2).Columns(1))
    If bBuyuk2 > bBuYuk Then bBuYuk = bBuyuk2
    bBuYuk = bBuYuk + 1
Target.Offset(0, -1) = bBuYuk
End If
End Sub

 

[iplikci_80]

Numan Bey sıralamayı her iki sayfanın da A5 hücresinden hücresinden itibaren artırılmasını sağlamak istiyorum. Örnekteki gibi Sayfa2 nin A3 hücresine bir değer girildiğinde A5 itiberan olması.