İkinci Bir Üst Bilgi Oluşturmak.

[iplikci_80]

Arkadaşlar I sütunundaki "KAYITLI OLDUĞU SGK" değerine çift tıkladığımızda o değere ait bilgileri LİSTE sayfasına atan ve liste sayfasının başına örneğin OSMANİYE PERSONEL LİSTESİ 17 KASIM 2018 CUMARTESİ" şeklinde bir üst bilgi yazan kod mevcut. Benim yapmak istediğim "OSMANİYE PERSONEL LİSTESİ 17 KASIM 2018 CUMARTESİ" üst bilgisini altına " İŞ YERİ SGK SİCİL NUMARASI : ?" şeklinde bir üst bilgi daha oluşturarak ? yazan yere LİSTE sayfasındaki N sütunundaki şantiye göre, O sütunundaki sicil numaralarının getirilmesi hususunda yardımlarınızı rica ediyorum. Örneğin " İŞ YERİ SGK SİCİL NUMARASI : 2 2420 01 01 1071376 080 20 77 000" şeklinde.

 

[Necdet]

Merhaba,

Örnek olarak verilen aşağıdaki kodları kendinize uyarlayınız.

Sub SayfaBaslik()

    Dim Bas1 As String
    Dim Bas2 As String
   
    Bas1 = "Necdet"
    Bas2 = "EXCEL.WEB.TR"
    Sheets("Sayfa1").PageSetup.CenterHeader = Bas1 & Chr(10) & Bas2

End Sub