Userform'da Otomatik Sıra No gibi Kod oluşturma

[BASKICI]

Arkadaşlar otomatik sıra no işi tamam ama benim yapmak istediğim programda bu numara yerine mesela "1" yerine "SBS-0001" , "2" yerine "SBS-0002" diye gitmesini istiyorum. Bu mümkün müdür ? Saygılar

 

[Excelmy]

Sıra no verilen sayfanın kodlarına;

Private Sub Worksheet_Change(ByVal Target As Range)
Dim s As Long
If Intersect(Target, Range("b1:b65536")) Is Nothing Then Exit Sub
For i = 1 To Range("b65536").End(3).Row
If Cells(i, 2).Value = "" Then
Cells(i, 1).Value = ""
Else
s = s + 1
Cells(i, 1).Value = "SBS - " & s
End If
Next i
End Sub

Ekleyip kontrol ediniz.

 

[bumumercan]

bu sıra a2'den başlıyor. A3'den başlaması için ne yapmamız gerekiyor.

 

[Excelmy]

Aşağıdaki kod satırında ;

For i = [B][COLOR="Red"]3[/COLOR][/B] To Range("b65536").End(3).Row

 

[bumumercan]

Teşekkürler