userform yardımı

[ferhat73]

ekdeki sorumla ilgili yardım rica ediyorum.

(sıra no içinde otomatik sıralama)

iyi çalışmalar

 

[Levent Menteşoğlu]

Sıra noları her seferinde yeniden sıralatmaya gerek yok. Yapmanız gereken tüm kodlar içindeki sıralama yapan satırlardaki A sütunu yerine B sütunundan başlatın.

Range("A2:E300").Sort.... yerine Range("B2:E300").Sort....

 

[Orion1]

Dosyanız ekte.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D14:D65536]) Is Nothing Then Exit Sub
On Error Resume Next
Target.Offset(0, -1).Value = WorksheetFunction.Max(Range("C14:C65536")) + 1
End Sub