Otomatik Numaralandırma

[rrrccc]

Arkadaşlar aşağıdaki kodu değiştirerek "A" sütununa değil de başka bir sütuna otamatik numaralandırmak istiyorum. Misal "F" sütunu; Kodta nereyi değiştirmeliyim bulamadım. Yardımlarınız için teşekkür ederim.

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

 

[Murat OSMA]

Koddaki iki yerde Cells(i, 1).Value satırı var.
Buradaki 1 - ilk sütunu, yani A sütununu ifade eder.
Siz buradaki 1 in yerine F sütunu kaçıncı sütunsa o sütun sayısını yazacaksınız.
Ya da bu şekilde de yazabilirsiniz; Cells(i, "F").Value

 

[rrrccc]

Murat kardeşim cevap ve açıklama için çok teşekkür ederim. İnsan deneye yanıla öğreniyor.