Değişken üstbilgi..

[ycaliskan]

Merhabalar, açtığım ilk konu başlığı sorunumu tam yansıtmadığı için yeni bir konu açtım..

Aşağıdaki makro a2 hücresindeki veriyi 18 punto olarak sayfa üst bilgisine yansıtmakta..

benim istediğim konu ise bu makro ile veri filtreleme yaptığımda a sütununun 2. hücresine hangi veri denk geliyorsa onun üst bilgiye yansıması.. be şekilde sabit bir üst bilgi geliyor elbette..


Sub üstbilgi()
Application.ScreenUpdating = False
For a = 1 To Sheets.Count
Sheets(a).PageSetup.CenterHeader = "&18" & Sheets(a).[a2].Text
Next
Application.ScreenUpdating = False
End Sub

 

[Ömer]

Merhaba,

Sheets(a).[a2].Text

yerine aşağıdaki satırı yazarak deneyin.

Sheets(a).Range("A1").End(xlDown).Text