Numaratörle form numarası verme ve kapanışta kaydetme

[deepblackend]

Arkadaşlar herkese merhaba,
Ekte gönderdiğim formda FIF çalışma sayfası her açılışta gizli olsun ve "Fason İşlem Formu Aç" butonu tıklandığında görünsün istiyorum. Buton tıklandığında FIF çalışma sayfasındaki J3 hücresindeki 4 haneli rakam her defasında yine 4 hane olarak bir artsın ve dosya kapatıldığında bu şekilde kaydolsun. Yardımlarınızı bekliyorum. Teşekkürler.

 

[Ömer]

Arkadaşlar herkese merhaba,
Ekte gönderdiğim formda FIF çalışma sayfası her açılışta gizli olsun ve "Fason İşlem Formu Aç" butonu tıklandığında görünsün istiyorum. Buton tıklandığında FIF çalışma sayfasındaki J3 hücresindeki 4 haneli rakam her defasında yine 4 hane olarak bir artsın ve dosya kapatıldığında bu şekilde kaydolsun. Yardımlarınızı bekliyorum. Teşekkürler.

Merhaba,

ThisWorbook sayfasına,

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("FIF").Visible = False
End Sub
 
Private Sub Workbook_Open()
    Sheets("FIF").Visible = False
End Sub

Moduledeki kodların yerine,

Sub numaratör()
 
    [COLOR=red]Sheets("FIF").Visible = True
[/COLOR]    Sheets("FIF").Select
    [J3] = [J3] + 1
    ActiveWorkbook.Save
    
End Sub

Eğer sayfalar arası geçişte de gizlenmesini istiyorsanız. FIF sayfasının kod bölümüne,

Private Sub Worksheet_Deactivate()
    Sheets("FIF").Visible = False
End Sub

.

 

[deepblackend]

Çok teşekkürler. Sadece bir problemim var, form numarası 0001 şeklinde görünsün ve 0002, 0003 şeklinde ilerlesin istiyorum. Şu an tek hane görünüyor. Buda olursa süper olacak.

 

[deepblackend]

Bir ilave daha form her açılışta temizlensin yani D5, H5, D6, H6, D7, D8, H8, B10 hücrelerine girilen veriler her açılışta silinsin ve bu şekilde boş form açılsın. Bunuda ekeleyebilirseniz sevinirim.

 

[Ömer]

Bir ilave daha form her açılışta temizlensin yani D5, H5, D6, H6, D7, D8, H8, B10 hücrelerine girilen veriler her açılışta silinsin ve bu şekilde boş form açılsın. Bunuda ekeleyebilirseniz sevinirim.

Initialize yordamındaki kodlara kırmızı ilaveyi yapın

Private Sub UserForm_Initialize()
    Calendar1.Value = Now
    [COLOR=red]Range("D5, H5, D6, H6, D7, D8, H8, B10") = ""
[/COLOR]End Sub

Moduleki kodlarıda aşağıdaki gibi değiştirin.

Sub numaratör()
 
    Sheets("FIF").Visible = True
    Sheets("FIF").Select
    [J3] = [COLOR=red]Format([/COLOR][J3] + 1[COLOR=red], "0000")
[/COLOR]    ActiveWorkbook.Save
    
End Sub

 

[deepblackend]

teşekkürler ömer bey. Ancak kodları eklediğimde formda takvimden her tarih seçişimde seçili hücreleri temizliyor. ben sadece ilk açılışta temizlensin istiyorum. Ayrıca bir sorum olacak formda takvim ilgili hücreyi seçtiğimde çıkıyor. Hücreyi çift tıkladığımda çıkmasını sağlayabilirmiyiz?