makroyla footer ayaRI

[lionamic]

MAKROYLA ALTBAÞLIKTA BULUNAN SAYIYI 1 SAYI YUKARI YÜKSELTEBİLİRİM.BU MAKROYU ÇALIÞTIRDIÐIMDA TÜM SAYFALARDAKİ ALTBAÞLIK SAYILARININ 1 EKLENEREK YÜKSELMESİNİ İSTİYORUM.TEÞEKKÜRLER.

 

[Hüseyin]

ALTBAÞLIKTA

Nedir?

 

[lionamic]

ALTBAÞLIK = FOOTER

 

[jale]

Merhaba,
Altaki kod sayfanın headerına sayfanın adını ,footerınada sayfa numarasını yazar.1of 5 gibi.

Sub tester()
   Dim ws As Worksheet
   For Each ws In ActiveWorkbook.Worksheets
     With ws.PageSetup
       .LeftHeader = "&A"
       .LeftFooter = "Page &P of &N"
     End With
   Next ws
End Sub

 

[Hüseyin]

ALTBAÞLIK = FOOTER

Pardon mesaj başlığında yazıyormuş, dikkat etmemişim.

 

[lionamic]

BENİM İSTEDİÐİM SAYFA NUMARASI DEÐİL.ZATEN ELİMDE SAYFAYA VERDİÐİM NUMARA VAR Ã?RNEÐİN "1423" GİBİ.AMA BEN BUNU HERGÜN ELİMLE GİRİP BİR ARTTIRIYORUM.YANİ "1423" SE 1 ARTTIRARAK "1424" OLSUN İSTİYORUM.

TEÞEKKÜRLER

 

[Hüseyin]

Selam,
Jale hanımın verdiği kodu biraz değişitrdim.
Bu numarayı Sheet1 sayfasının K1 hücresine yazmanız gerekiyor.
Bundan sonra makroyu her çalıştırdığınızda bu numara 1 artırılıyor ve footera yazılıyor.

Böyle olurmu?

Sub tester()
Dim ws As Worksheet
Dim No As Integer
No = Sheets("Sheet1").Range("K1").Value + 1
Sheets("Sheet1").Range("K1").Value = No
For Each ws In ActiveWorkbook.Worksheets
With ws.PageSetup
.LeftFooter = No
End With
Next ws
End Sub

 

[Haluk]

Alternatif:

heh heh..... değişik bir şey yapalım derken çorba oldu......

Edit:

Bu da çorbanın kendisi...

Sub Test()
    Static y
    x = InStr(1, Sheet1.PageSetup.CenterFooter, "+")
    If x > 0 Then
        xx = Mid(Sheet1.PageSetup.CenterFooter, x + 1, 98)
        y = xx + 1
    Else
        y = 0
    End If
    MyStr = "&P+" & y
    Sheet1.PageSetup.CenterFooter = MyStr
End Sub

 

[Hüseyin]

heh heh..... değişik bir şey yapalım derken çorba oldu......

Denemedim ama...
Sonuç olarak yenecek kıvama geldimi bu çorba? :lol:

 

[Haluk]

Sonuç olarak yenecek kıvama geldimi bu çorba?

heh heh.... walla karıştırırken dibi tutmuş olabilir, emin değilim...... :mrgreen:

 

[lionamic]

HÜSEYİN BEY SİZİN GÃ?NDERDİÐİNİZ MAKRO İÞİME YARADI.ÇOK TEÞEKKÜRLER.

 

[lionamic]

HÜSEYİN BEY GÃ?NDERDİÐİNİZ MAKROYU ÇALIÞTIRDIÐIMDA K1 HÜCRESİNİ
1 YÜKSELTİP FOOTER'A EÞİTLİYOR,FAKAT BUNU ÇALIÞMA KİTABIMDAKİ BÜTÜN ÇALIÞMA SAYFALARI İÇİN YAPIYOR.BÜTÜN ÇALIÞMA SAYFALARIMIN FOOTERIN-INDA AYNI SAYIYI GÃ?RÜYORUM.BEN SADECE TEK ÇALIÞMA SAYFASININ FOOTER-INI DEÐİÞTİRMEK İSTİYORUM.BUNUN İÇİN MAKRO NE OLMALIDIR.TEÞEKKÜRLER.