DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Nedir?ALTBAÞLIKTA
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
Pardon mesaj başlığında yazıyormuş, dikkat etmemişim.ALTBAÃLIK = FOOTER
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
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
Denemedim ama...heh heh..... değişik bir şey yapalım derken çorba oldu......
heh heh.... walla karıştırırken dibi tutmuş olabilir, emin değilim...... :mrgreen:Sonuç olarak yenecek kıvama geldimi bu çorba?