Fonksiyon veya koşula bağlı Üst bilgi ve Alt bilgi

[Ömer]

Merhaba,

Konu üzerinden oldukça zaman geçtiği için içeriği hatırlamadım. Sorunuzu örnek dosya ekleyerek detaylı açıklamanızı rica ederim.

.

 

[mrkync]

Yardım...

Yapmak istediğim şey Ocak İstatistik sayfasındaki b41 ile b51 arasını ocak sayfasındaki sol altbilgilere otomatik olarak ekletmek

 

[mrkync]

Yardımlarınızı bekliyorum

 

[asi_kral]

Yardımlarınızı bekliyorum

Merhaba
B44 - B45 - B47 hücreleri boş nasıl olacak bu. Örnek olarak siz elle yazsanız bizde ona göre koda çevirsek olmaz mı_?

 

[mrkync]

Çok özür dilerim Asi Kral. Yanlış yazmışım hakketen de aynı ekteki dosyanın Ocak İstatistik sayfasındaki B48;B49;B50;B51 hücrelerini birleştirip aynı şekilde alt alta, ocak sayfasının altbilgisine eklemek istiyorum. Tam olarak yapmak istediğim bu...

 

[asi_kral]

Çok özür dilerim Asi Kral. Yanlış yazmışım hakketen de aynı ekteki dosyanın Ocak İstatistik sayfasındaki B48;B49;B50;B51 hücrelerini birleştirip aynı şekilde alt alta, ocak sayfasının altbilgisine eklemek istiyorum. Tam olarak yapmak istediğim bu...

Merhaba
Ocak sayfasının kod bölümündeki kodları silin ve bu kodu ekleyin.

Option Explicit
Private Sub Worksheet_Activate()
Dim S1 As Worksheet
Set S1 = Sheets("Ocak İstatistik")
With ActiveSheet.PageSetup
.LeftFooter = S1.Range("B48") & Chr(10) & _
S1.Range("B49") & Chr(10) & S1.Range("B50") & _
Chr(10) & S1.Range("B51")
End With
End Sub

Not : Alt bilgi alanını büyütmelisiniz.
Sayfa Düzeni - Başlıkları Yazdır - Kenar Boşlukları - Altbilgi ayarları ile oynayın.