Sayfa numarasını kapaktan aldırma

[kazimf]

Merhaba üstadlar,

Her ay hazırladığım 30 sayfalık bir rapor var bu raporların sayfa numarasını kapak sheet inden aldırmak istiyorum. Otomatik aldıramamamın sebebi Raporlar uzun ve karışık olduğundan ayrı ayrı saklıyorum. araya bir rapor eklendiğinde tüm sayfa numaraları değiştirmem gerekiyor.

Kapak sayfasına sheet adını girsem yanına da bunun sayfa numarası nı yazıp değiştirdiğimde macro ile ilgili sayfaların numarasını güncelleyebilirmiyim.

şimdiden teşekkürler.

 

[Emir Hüseyin Çoban]

. . .

Sub KOD()
On Error Resume Next
son = [A65536].End(3).Row
For i = 2 To son
If Cells(i, "A") <> "" Then
Sheets(i).PageSetup.RightFooter = "Sayfa: " & Cells(i, "B")
Else: End If
Next i
MsgBox " B i t t i "
End Sub

. . .

 

[kazimf]

Çok işime yaradı Eline sağlık teşekkürler.