sayfadaki bir hürceye yazdırma sayfa no. atama? - Sayfa 3

**Seyit Tiken** · 07-01-2006, 16:34

ALTERNATİF.

Sub auto_open()
[a1] = [a1] + 1
End Sub

İgili Çalışma Kitabını her kapatıp açtığınızda ilgili hücrede bir rakam artar.

emraha · 09-01-2006, 08:29

Levent bey size yaptığım çalışmanın eski ve yeni halini gönderiyorum. Belgenin içindeki değer hatalarının neden kaynaklandığını bir türlü bulamadım. sanırım mantıksak bir çakışma oldu fonksiyon makrosuyla sizin yaptığınız makro arasında. Tabi yeterli bir bilgim olmadığı için bir çözüm getiremiyorum. alt sekmeler değiştikçe 2 ve 3 rakamlarından değer hatası alıyorum. yardımınızı can simiid gibi bekliyorum

NOT: eski.xls belgesi çalışır halde olan.
yeni.xls belgesi güncellediğimiz ancak sorun yaşanan.

emraha · 09-01-2006, 10:41

üstte yolladığım dosya ile ilgili makrolardan bana yardım edebilecek olan var mı?

treatrock · 06-01-2014, 08:06

Selamlar
Excel de biraz yeniyim.
Levent Bey bahsettiğiniz kodu nereye ekleyeceğiz acaba.
Bende aynı şekilde sayfa numarası eklemeye çalışıyorum

Saygılar

**denese** · 18-05-2017, 16:10

Alıntı:

Levent Menteşoğlu tarafından gönderildi

Aşağıdaki kodu deneyin.

[vb:1:8f03beda35]Sub yazdir()
say = ActiveSheet.HPageBreaks.Count + 1
For a = 1 To say
[j2] = "Sayfa No: " & a
ActiveSheet.PrintOut From:=a, to:=a
Next
End Sub
[/vb:1:8f03beda35]

Merhaba,

J2 hücresinin, örneğin 5 sayfalık bir belge için, 1/5, 2/5, 3/5, 4/5, 5/5 şeklinde görünmesini istiyorum. Yardımcı olabilir misiniz?

**denese** · 19-05-2017, 14:36

Kod hakkında yardımcı olabilecek kimse yok mu?

**YUSUF44** · 19-05-2017, 14:40

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)

[J2] = "'" & a & "/" & say

şeklinde deneyin.

**denese** · 19-05-2017, 14:43

Alıntı:

YUSUF44 tarafından gönderildi

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)

[J2] = "'" & a & "/" & say

şeklinde deneyin.

Çok teşekkür ederim Sn. YUSUF44

murat67.67 · 29-11-2017, 10:02

yukarıdaki kod çalışıyormu? ben calıştıramadım

murat67.67 · 29-11-2017, 10:03

[vb:1:8f03beda35]Sub yazdir()
say = ActiveSheet.HPageBreaks.Count + 1
For a = 1 To say
[j2] = "Sayfa No: " & a
ActiveSheet.PrintOut From:=a, to:=a
Next
End Sub
[/vb:1:8f03beda35]

kod çalışıyormu

07-01-2006, 16:34	#21
Seyit Tiken Uzman Giriş: 22/08/2005 Şehir: MARDİN Mesaj: 3,699 Excel Vers. ve Dili: Excel : 2010	ALTERNATİF. Sub auto_open() [a1] = [a1] + 1 End Sub İgili Çalışma Kitabını her kapatıp açtığınızda ilgili hücrede bir rakam artar. __________________ • Sizi, Boş Yere Yarattığımızı ve Bize Döndürülmeyeceğinizi mi Sandınız? (Müminun-115) • Ve Kim Benim Zikrimden Yüz Çevirirse, O Taktirde Mutlaka Onun İçin Sıkıntılı Bir Geçim (Hayat) Vardır. Ve Kıyâmet Günü Onu, Kör Olarak Haşredeceğiz (Tâhâ-124) • İnsanın En Büyük Dostu Allah'tır - (MİHR)

09-01-2006, 08:29	#22
emraha Giriş: 05/12/2005 Şehir: İzmir Mesaj: 185 Excel Vers. ve Dili: Office 2016 Eng	eski&yeni Levent bey size yaptığım çalışmanın eski ve yeni halini gönderiyorum. Belgenin içindeki değer hatalarının neden kaynaklandığını bir türlü bulamadım. sanırım mantıksak bir çakışma oldu fonksiyon makrosuyla sizin yaptığınız makro arasında. Tabi yeterli bir bilgim olmadığı için bir çözüm getiremiyorum. alt sekmeler değiştikçe 2 ve 3 rakamlarından değer hatası alıyorum. yardımınızı can simiid gibi bekliyorum NOT: eski.xls belgesi çalışır halde olan. yeni.xls belgesi güncellediğimiz ancak sorun yaşanan. __________________ Office 2003 - Türkçe

09-01-2006, 10:41	#23
emraha Giriş: 05/12/2005 Şehir: İzmir Mesaj: 185 Excel Vers. ve Dili: Office 2016 Eng	üstte yolladığım dosya ile ilgili makrolardan bana yardım edebilecek olan var mı? __________________ Office 2003 - Türkçe

19-05-2017, 14:40	#27
YUSUF44 Destek Ekibi Giriş: 04/01/2006 Şehir: Manisa, Kula Mesaj: 6,708 Excel Vers. ve Dili: İş : Ofis 2016 - Türkçe Ev: Ofis 2016 - Türkçe	Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar) [J2] = "'" & a & "/" & say şeklinde deneyin. __________________ Sorularınızı örnek dosyayla desteklemeniz çözüme ulaşmanızı kolaylaştırır. Altın Üye olmanızı öneririm. Altın Üye değilseniz dosyanızı dosya yükleme sitelerinden birine yükleyip linkini paylaşabilirsiniz.

Konu Araçları
Yazıcı Çıktısını Göster Sayfayı E-posta ile Yolla
Görünüm Modları
Düzenli Mod Karışık Moda Geç Konu Moduna Geç

06-01-2014, 08:06	#24
treatrock Giriş: 06/01/2014 Mesaj: 5 Excel Vers. ve Dili: 2013 Türkçe	Selamlar Excel de biraz yeniyim. Levent Bey bahsettiğiniz kodu nereye ekleyeceğiz acaba. Bende aynı şekilde sayfa numarası eklemeye çalışıyorum Saygılar

19-05-2017, 14:36	#26
denese Altın Üye Giriş: 17/03/2011 Şehir: Ordu Mesaj: 226 Excel Vers. ve Dili: Office 2016 Türkçe	Kod hakkında yardımcı olabilecek kimse yok mu?

29-11-2017, 10:02	#29
murat67.67 Giriş: 15/01/2013 Şehir: istanbul Mesaj: 3 Excel Vers. ve Dili: 2003	yukarıdaki kod çalışıyormu? ben calıştıramadım

29-11-2017, 10:03	#30
murat67.67 Giriş: 15/01/2013 Şehir: istanbul Mesaj: 3 Excel Vers. ve Dili: 2003	[vb:1:8f03beda35]Sub yazdir() say = ActiveSheet.HPageBreaks.Count + 1 For a = 1 To say [j2] = "Sayfa No: " & a ActiveSheet.PrintOut From:=a, to:=a Next End Sub [/vb:1:8f03beda35] kod çalışıyormu