Çalışma sayfalarında ardışık numaralar vermek

[Arsuz]

Merhaba arkadaşlar,

1. Çalışma sayfasında 00001 yazan bir hücre 2. çalışma sayfasında aynı hücrede 00002 ve ardışık devam ettirebilmenin yöntemi var mıdır?

 

[cems]

Excel 2010 Türkçe sürümü için formülleri aşağıdaki şekilde düzenleyin

İlk Çalışma Sayfası:

• A1 hücresine 00001 yazın.
• A2 hücresine aşağıdaki formülü girin:

=METİN(DEĞER(A1)+1; "00000")

Bu formülü, ihtiyacınız olduğu kadar aşağıya doğru kopyalayabilirsiniz.

İkinci Çalışma Sayfası:

• A1 hücresine 00002 yazın.
• A2 hücresine aşağıdaki formülü girin:

=METİN(DEĞER(A1)+1; "00000")

Bu formülü de ihtiyacınız olduğu kadar aşağıya doğru kopyalayabilirsiniz.

Bu formüller, hücrelerde ardışık numaraların oluşturulmasını sağlar ve her bir hücredeki değeri bir artırır. İlk çalışma sayfasında 00001den başlayacak ve ikinci çalışma sayfasında 00002den başlayacak şekilde ardışık olarak devam edecektir.

 

[DoğanD]

Merhaba,

VBA ile bir yol verebilirim. Formül ile yapılabilir mi emin değilim. Koddaki A1 verisini dilediğiniz hücre adresi ile değiştirip uygulayabilirsiniz. Yine 5 basamaklı koda göre yazdım, değişecekse koddaki 5 rakamını değiştirebilirsiniz.

Sub SayfaNo()
Dim i
For i = 1 To Sheets.Count
Sheets(i).[A1] = "'" & WorksheetFunction.Rept("0", 5 - Len(i)) & i
Next i
End Sub

 

[Arsuz]

Yanıtınız için teşekkür ederim. Doğru ifade edemedim sanırım. Ekran görüntüsündeki gibi devam etmesini sağlamak istiyorum. Mümkünse

 

[cems]

1. İlk Çalışma Sayfası (Sayfa1):
   • D1 hücresine manuel olarak 0001 yazın.
2. İkinci Çalışma Sayfası (Sayfa2):
   • D1 hücresine aşağıdaki formülü girin:
     excel
     =METİN(DEĞER(Sayfa1!D1)+1; "0000")
3. Üçüncü Çalışma Sayfası (Sayfa3):
   • D1 hücresine aşağıdaki formülü girin:
     excel
     =METİN(DEĞER(Sayfa2!D1)+1; "0000")

Bu formüller, her sayfadaki D1 hücresinde ardışık numaralar oluşturmanızı sağlar. İlk sayfadaki değeri manuel olarak girmeniz gerekirken, sonraki sayfalarda formüller kullanarak otomatik olarak artan numaralar elde edebilirsiniz.

 

[muratgunay48]

Çalışma Kitabı bölümüne

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Range("D1") <> "" Then
        Sh.Name = Left(Range("D1"), 31)
    End If
End Sub

Yazın. Sayfaları çoğalttığınız zaman hangi sayfa iseniz D1 hücresinde yazanı sayfa ismi yapar.
Ancak bildiğiniz gibi 00001 yazabilmek için Hücre biçimlendirmeyi METİN olarak ayarlamanız gerekecektir.
Kolay gelsin.

 

[Korhan Ayhan]

@cems ,

Paylaştığınız fonksiyonu denediniz mi? Bu fonksiyonlar excelde var mı?

 

[Arsuz]

cevaplar için ayrı ayrı teşekkür ediyorum

 

[muratgunay48]

@cems ,

Paylaştığınız fonksiyonu denediniz mi? Bu fonksiyonlar excelde var mı?

Hocam dikkatinizden kaçmamış, böyle olmaz sanki. Siz daha iyi bilirsiniz tabi
Arkadaş 5 haneli istemiş
O taktirde
=METNEÇEVİR((A1)+1; "00000")
Şeklinde daha doğru olmaz mı?

 

[Korhan Ayhan]

Farklı bir konuda da dile getirdim...

Yapay zeka motorlarından cevap alıp direkt forumda paylaşmak böyle durumlara sebep olabiliyor. Yapay zeka tarafından önerilen çözümü bir gözden geçirip forumda öyle paylaşmakta fayda var..