numara güncelleme

[emrebengul]

date'nin altında no yazan kısmın karşısında BB 0030 yazıyor dosyayı kaydetip sonra tekrar açtıktan sonra BB 0031 yazılmasını istiyorum. Yani her kaydettiğimde o saynın 1 artmasını istiyorum. yardımlarınız için teşekkür ederim

 

[emrebengul]

doğru anlatabildim mi acaba?

 

[Necdet]

Merhaba,

Aşağıdaki kodları BuÇalışmaKitabı'nın kod bölümüne kopyalayıp deneyiniz.

Private Sub Workbook_Open()

    Dim d, _
        s   As Long
    
    d = Split(Range("H3"), " ")
    
    d(2) = d(2) + 1
    
    Range("H3") = d(0) & " " & d(1) & " " & Format(d(2), "0000")
    
End Sub

 

[EmrExcel16]

Merhaba alternatif olarak