Belgeye Tarih ve Sayı verilmesi

[SeSi]

Merhaba,

Evraklarıma otomatik tarih ve sayı vermek istiyorum. F6 hücresinde 2006 / 0001 şeklindeki sayının bir sonraki sayfada otomatik olarak 2006 / 0002 şeklinde değişerek armasını sağlayabilir miyiz?

Teşekkürler.

 

[Levent Menteşoğlu]

Bir örnek dosya eklermisiniz.

 

[Seyit Tiken]

Ekli dosyayı inceleyiniz.

 

[SeSi]

Sayın Seyit Tiken,

Sizin örneğiniz farklı bir yol. Fakat ben bunu otomatik olarak yapmak istiyorum. Bir önceki sayfadan otomatik artarak takip edecek.
Örnek dosya ektedir.
Teşekkürler.

 

[karamurselli]

=SOLDAN(Sayfa1!F6;4)&" / "&"000"&SAĞDAN(Sayfa1!F6;4)+1

 

[karamurselli]

şimdi aklıma geldi
rakamlarınız 9 dan büyük olursa formül sonucu 00010 gibi olur.
bunu nası halledicez bilmiyorum.

 

[SeSi]

Sayın karamurselli,
Ben makroyla istiyorum.
Mümkün mü?

Teşekkürler.

 

[Seyit Tiken]

Sıkıştırılmış dosyanızı açamıyorum. İşyerimdeki bilgisayarmda sıkıştırma programı olmadığı için. Burda, otomatikten kastınız nedir?

 

[SeSi]

Sayın Seyit Tiken,

Otomatikten kastim; bir sonraki sayfanın F6 hücresine tarih ve sayı bir önceki sayfanın F6 hücresinden otomatik alınarak, yıl bölümü (2006 / ) sabit kalacak, sayı bölümü (0001) 0002, 0003 ... şeklinde sayfalar arttıkça değişecek.

Teşekkürler.

 

[abdi]

Sayfa 2 nin kod kısmına yazacaksınız

Private Sub Worksheet_Activate()
Dim b As String
Dim i As Integer

s1 = Sayfa1.Range("f6").Value

a = Mid(Right(s1, 4), 1, Len(Right(s1, 4)))

Sayfa2.Range("f6").Value = Mid(Left(s1, 4), 1, Len(Left(s1, 4))) & "/ 000" & a + 1

Debug.Print s1
Debug.Print a

End Sub

 

[karamurselli]

Private Sub Workbook_NewSheet(ByVal Sh As Object)
şeklinde olması ve workbook'a yazılması gerekmiyor mu?
yanlış anlaşılmasın makrolar konusunda acemiyim, ben de öğrenmeye çalışıyorum.

 

[SeSi]

Sayın abdi,

Yalnız bir sorun var. Sayfa isimleri farklı. Sayfa1, 2, 3..... diye değil. Makroyu sayfa ismine göre değil de bir önceki sayfanın F6 hücresine göre değiştirebilir miyiz?

Teşekkürler.

 

[abdi]

Sayın karamurselli,
arkadaş ilgili sayfa sekmesine tıkladığında
ilgili sayfanın değeri yeniden hesaplanacaktır
ben böyle bir çözüm önerdim değişik varyasyonlar olasılık dahilinde olup benim bilgim dahilinde değildir.
kısacası herkes yoğurdu farklı yer
(yani ben bildiğim metodu uyguladım sonuca gittim anlamında)

bu kodlar ilgili sayfaların Sayfa2;sayfa3;sayfa4 vb şeklinde devam ediyorsa
ilgili sayfaların Private Sub Worksheet_Activate() kod kısmına yazılacaktır

Sayfa2.Range("f6").Value = Mid(Left(s1, 4), 1, Len(Left(s1, 4))) & "/ 000" & a + 1

kısmı ise hangi sayfada isek Sayfa3 ise

Sayfa3.Range("f6").Value = Mid(Left(s1, 4), 1, Len(Left(s1, 4))) & "/ 000" & a + 1

şeklinde düzeltilecektir.

saygı ve sevgilerimle
çalışmalarınızda başarılar dilerim.

 

[karamurselli]

Sayın karamurselli,
arkadaş ilgili sayfa sekmesine tıkladığında
ilgili sayfanın değeri yeniden hesaplanacaktır
ben böyle bir çözüm önerdim değişik varyasyonlar olasılık dahilinde olup benim bilgim dahilinde değildir.
kısacası herkes yoğurdu farklı yer
(yani ben bildiğim metodu uyguladım sonuca gittim anlamında)

Ben Sn. Sesi'nin sayfalarının hazır olmadığını ve yeni sayfa oluşturduğu zaman bu makronun çalışmasını istediğini düşünmüştüm.
O yüzden söylediğim şekilde olması gerektiğini yorumladım.
Tabii ki herkesin yöntemi farklıdır, önemli olan sonuca gitmek.
İyi çalışmalar. :arkadas:

 

[Seyit Tiken]

Ekli dosyayı inceleyiniz. Formu, Auto_open nesnesine atayabileceğiniz gibi, excelin kendi ikonları arasına düğme ekleyip komutlandırabilirsiniz.

 

[abdi]

Sayın Sesi bide bu şekilde denermisiniz.

Private Sub Worksheet_Activate()
Dim a As String
Dim b As String
Dim i As Integer

s1 = ActiveSheet.Previous.Range("f6").Value

a = Format(Mid(Right(s1, 4), 1, Len(Right(s1, 4))), "0000")
')
ActiveSheet.Range("f6").Value = Mid(Left(s1, 4), 1, Len(Left(s1, 4))) & "/ 000" & a + 1

Debug.Print s1
Debug.Print a

End Sub

 

[SeSi]

Sayın abdi,

Maalesef kodları çalıştıramadım. Hata veriyor. Sizde çalıştı mı?

 

[abdi]

Sayın SESİ
ekteki dosya isteğinizi umarım karşılar

saygılar sevgiler çalışmalarınızda başarılar dilerim.

 

[SeSi]

Teşekkürler.
Tam istediğim gibi.

 

[abdi]

rica ederim
çalışmalarınızda başarılar dilerim