Otomatik seri kodu verme yardım!

[merten]

Merhabalar ek'te firma için yapılmış örnek seri kod listesi vardır. tabloya tarihi girmeye başladığımda otmatik olarak 2012-05 olan kodun 2012-06 diye yazmasını istiyorum. yardımcı olursanız sevinirim.

 

[Emir Hüseyin Çoban]

. . .

Sayfa1 in kod bölümüne

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
    If Intersect(Target, [A3:A200]) Is Nothing Then Exit Sub
    Cells(Target.Row, "d") = Format(Target, "yyyy-mm")
son:
End Sub

. . .

 

[Necdet]

Merhaba,

Sanırım bu şekilde daha doğru gibi (tam olayı anlamasam bile)

Private Sub Worksheet_Change(ByVal Target As Range)
 
    On Error GoTo Son
    If Intersect(Target, [A:A]) Is Nothing Or Target.Row < 4 Then Exit Sub
    Dim d
    d = Split(Cells(Target.Row - 1, "D"), "-")
    
    Cells(Target.Row, "D") = d(0) & "-" & Format(d(1) + 1, "00")
    
Son:
 
End Sub