Sayfa Numaraları ile ilgili sorun

[farukozgursoy]

Arkadaşlar excelde sayfa numarası eklemem gerekiyor. Fakat durum biraz farklı
Numaraların şu şekilde ilerlemesi gerekiyor.
00001
00002
00003
ancak 10. sayfada baştaki sıfırların 1 azalması 100. sayfadan sonra iki azalması gerekiyor.
00009
00010
00099
00100
Bunu nasıl yapabileceğimi bilmiyorum. Biraz aciliyetim var yardımcı olursanız sevinirim.

 

[Murat OSMA]

Şu kodları bir deneyiniz;

Sub Emre()
    Dim i As Integer
        For i = 1 To 111
            Sheets.Add
            If i < 10 Then
                ActiveSheet.Name = "0000" & i
            ElseIf i >= 10 And i < 100 Then
                ActiveSheet.Name = "000" & i
            ElseIf i >= 100 Then
                ActiveSheet.Name = "00" & i
            End If
        Next i
    i = Empty
End Sub

 

[farukozgursoy]

Şu kodları bir deneyiniz;

Sub Emre()
    Dim i As Integer
        For i = 1 To 111
            Sheets.Add
            If i < 10 Then
                ActiveSheet.Name = "0000" & i
            ElseIf i >= 10 And i < 100 Then
                ActiveSheet.Name = "000" & i
            ElseIf i >= 100 Then
                ActiveSheet.Name = "00" & i
            End If
        Next i
    i = Empty
End Sub

bunları nereye yapıştırmamız lazım acaba

 

[Yitik]

Modül içine yapıştırıp 1 defa çalıştırırsanız 00001 den 00111'e kadar 111 adet sayfa ekler çalışma kitabınıza. Sayfa isimleri tarif ettiğiniz gibi atanır.

Murat bey, for-next döngüsüyle neler yapılabildiği konusunda ufkumu biraz daha genişletti bu kod

 

[Murat OSMA]

Daha da genişlesin isterseniz; Excel Dershanesi başlığındaki For Next döngüsü ile ilgili konuya bakabilirsiniz.. http://www.excel.web.tr/f60/

İyi günler.

 

[farukozgursoy]

Makro özelliği etkinleştirilmemiş çalışma kitabına kaydedemezsiniz uyarısı alıyorum. Excelde VB kullanmayı bilmiyorum. Bakıyorum forumda ama içinden çıkamadım. Bugün bu işi halletmem lazım lütfen yardım

 

[Murat OSMA]

İnceleyiniz; http://www.excel.web.tr/f14/excel-ilk-acyly-taki-makrolary-etkinle-tir-kaldyrma-t93870.html

 

[farukozgursoy]

üstadım makroyu çalıştırdım fakat şu şekilde yanlışlık var. ben sayfaya üst bilgi olarak bu numaralandırmayı istedim. Şimdi çalıştırınca bana 111 tane sheet açtı ve onlara isim olarak bu numaraları verdi. Ben mi yanlış yaptım acaba

 

[Murat OSMA]

Sayfaya üst bilgi olarak mı istediniz ? Bunu mesajınızda göremedim. :dusun:

İstediğiniz numaralandırmayı A sütununda listelemek için;

Sub Emre()
    Dim i As Integer
        For i = 1 To 111
            If i < 10 Then
                Cells(i, 1) = "0000" & i
            ElseIf i >= 10 And i < 100 Then
               Cells(i, 1) = "000" & i
            ElseIf i >= 100 Then
                Cells(i, 1) = "00" & i
            End If
        Next i
    i = Empty
End Sub

Belki yine yanlış anlamış olabilirim. :dusun:

 

[farukozgursoy]

Hemen deniyorum hocam

 

[tukayf]

hocam siz sayfa numaralandırmayı mı sordunuz. alt bilgi-üst bilgi olarak

 

[farukozgursoy]

Evet dediğiniz gibi bu A sütununa yazdı. Ve hücre biçimlendirmeden dolayı muhtemelen baştaki sıfırları eklemeden yazdı. Bunu sayfanın üst bilgi kısmına sağ üst köşeye her sayfaya 1 numara gelecek şekilde ayarlamam lazım. Ama nasıl

 

[farukozgursoy]

hocam siz sayfa numaralandırmayı mı sordunuz. alt bilgi-üst bilgi olarak

Evet sayfa numaralandırma olacak. Üstbilgi kısmına sağ tarafa eklenecek. Numaralar 1,2,3 gibi değil 00001,00002, şeklinde olacak. 00009 dan sonra 1 soldan bir adet 0 silecek ve 00010 olacak. 99dan sonra bir sıfır daha silecek 00100 yazacak. Bu şekilde 750 sayfa listelemem lazım. Herkese şimdiden çok teşekkür ederim.

 

[tukayf]

ekleden üst bilgi>ardından sayfa numarası &[sayfa] çıkan yere & işaretinden önce 0000 koyunuz. ama 3 sıfır olacak kısımlar hakkında word deki bi uygulama yapılabilir mi bilmiyorum makroyla belki bi çözümü vardır. şimdilik bu şekilde deneyin.

 

[farukozgursoy]

Evet ilk benimde aklıma o geldi. ama sonrasında sıfırları silmediği için problem oluyor. Bu belgenin çıktısı noterden onaylanacağı için noter çok titiz bu konuda

 

[farukozgursoy]

Peki word de bu yapılabilir mi? Yapılırsa o da işimi bir nebze de olsa görecektir.

 

[tukayf]

Word de yapılır. Farklı bir şey sormuştum ama sizin sorunuzun cevabı da linkte mevcut.
http://www.excel.web.tr/f51/wordde-sayfa-numarasy-t121575.html

Şimdilik hiç bir şekilde çözüme ulaşamadıysanız yazdırırken sayfa numarasına önce 0000 atıp 1-9 sayfaları yazdırınız daha sonra 0'ın birini silip 10-99 sayfaları yazdırınız en sonra iki 0'ı birden silip 100-999 sayfaları yazdırınız aklıma gelen en hızlı çözüm bu.

 

[farukozgursoy]

Word de yapılır. Farklı bir şey sormuştum ama sizin sorunuzun cevabı da linkte mevcut.
http://www.excel.web.tr/f51/wordde-sayfa-numarasy-t121575.html

yok hayır bu uygulamaya sabah bakmıştım. bu benim için çözüm değil. Sorum aslında çok açık. Word sayfa numarası olarak 1 2 3 4 5 6 veriyor

Bizim istediğimiz 00001 00002 00003 00010 00100

bunu da üst bilgi olarak yazmak istiyorum.

 

[tukayf]

hocam aynı şekilde burada da sayfa numarasının başına 0 koyacaksınız. daha sonra 9. sayfanın sonuna ve 99. sayfaların sonuna kesme ekleyeceksiniz. Ardından öncekini bağla seçeneğini deaktif ettikten sonra önde bulunan 0'ın birini 99. sayfadan sonra da 2.sini sileceksiniz.

 

[farukozgursoy]

hocam elinize sağlık excel olmasa da bu da çok makbule geçti. Çok teşekkür ederim. Saygılar sunarım