numara güncelleme

emrebengul

Altın Üye
Katılım
5 Aralık 2015
Mesajlar
297
Excel Vers. ve Dili
Excel Vers. ve Dili Ofis 2019 TR 32 Bit
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
 

Ekli dosyalar

emrebengul

Altın Üye
Katılım
5 Aralık 2015
Mesajlar
297
Excel Vers. ve Dili
Excel Vers. ve Dili Ofis 2019 TR 32 Bit
doğru anlatabildim mi acaba?
 

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,181
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,

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

Kod:
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
 
Üst