çalışma kitabı her açıldığında seri numarası verme

[smyrnafb]

benim bir sorunum var bir teklif formatı üzerinde çalışıyorum bu çalışma kitabını her açtığımda bir hücreye seri numarası vermesini istiyorum yada girdiğim ilk seri numarasını her açıldığında 1 arttırmasını istiyorum örnegin her deparmanın kendine ait bir seri numara başlangıcı olacak örn(S1250) örn(SD1250) bu sayılılar her seferinde bir attırmasını istiyorum işin içine harf girince olmuyo

 

[Necdet]

Merhaba,

Aşağıdaki kodları ThisWorkbook'un kod bölümüne kopyalayınız ve sayfa adı ile hücre adresini kendinize göre değiştiriniz.

Private Sub Workbook_Open()
Sheets("Sayfa1").[A1] = Sheets("Sayfa1").[A1] + 1
End Sub

 

[smyrnafb]

otomatik numara arttırması

slm benim bir sorunum var bir teklif formtı üstünde çalışıyorum bir hücreye verdiğim seri numarsını çalışma kitabını her açtığım da bir arttırmasını istiyorum örn(S1250) (S1251) (S1253) gibi bunu çalışma kitabına girdiğim de yada açtığımda klavye üzerinde herhangibi bir kısayol tuşuna bastığımda yapmasını istiyorum yardımcı olursanız sevinirim

 

[Necdet]

Merhaba,

Örnek bir dosya ekleyiniz lütfen.

 

[N.Ziya Hiçdurmaz]

Yanıt

Dosyayı açıp entere basınız.

Sub AUTO_OPEN()
Application.OnKey "{RETURN}", "TEST"
End Sub
Sub TEST()
[A1].Select
Selection.AutoFill Destination:=Range("A1:A2"), Type:=xlFillDefault
[A2].Cut [A1]
End Sub