• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Otomatik Üst bilgi

Mdemir63

Mdemir63

Altın Üye
Katılım
7 Temmuz 2006
Mesajlar
2,992
Excel Vers. ve Dili
Ofis2010 32Bit Türkçe
Selamlar,

Sayfa2 de ki A1 hücresindeki bilgiyi Sayfa1 in Üst bilgisine getirmek istiyorum.

Saygılar
 

Ekli dosyalar

komutan63' Alıntı:
Selamlar,

Sayfa2 de ki A1 hücresindeki bilgiyi Sayfa1 in Üst bilgisine getirmek istiyorum.

Saygılar
Genişletmek için tıkla ...

merhaba
bir commanbutton oluşturup sayfanın kod bölümüne
Kod: 
Private Sub CommandButton1_Click()
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = [A1]
.RightHeader = ""
End With
End Sub
bu kodu yapıştırınız.
eki inceleyiniz
 

Ekli dosyalar

İhsan Tank' Alıntı:
merhaba
bir commanbutton oluşturup sayfanın kod bölümüne
Kod: 
Private Sub CommandButton1_Click()
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = [A1]
.RightHeader = ""
End With
End Sub
bu kodu yapıştırınız.
eki inceleyiniz
Genişletmek için tıkla ...

Hocam teşekkürler.
 
Selamlar,

Tekrar rahatsız ediyorum. verdiğiniz örnekler güzeldi. fakat ben özellikle
Sayfa2 de A1 hücresine bilgi girişi yaptığımda o bilgi otomatik olarak Sayfa1 in üst bilgisine aktarılsın demek istemiştim. Bunu yapabilirmiyiz?

Saygılar
 
komutan63' Alıntı:
Selamlar,

Tekrar rahatsız ediyorum. verdiğiniz örnekler güzeldi. fakat ben özellikle
Sayfa2 de A1 hücresine bilgi girişi yaptığımda o bilgi otomatik olarak Sayfa1 in üst bilgisine aktarılsın demek istemiştim. Bunu yapabilirmiyiz?

Saygılar
Genişletmek için tıkla ...

Sayfa2'nin kod bölümüne
Kod: 
Private Sub Worksheet_Deactivate()
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = Sheets("Sayfa2").Range("A1")
.RightHeader = ""
End With
End Sub
bu kodu yazınız.
sayfa2'den çıktığınız anda otomatik üst bilgi çıkar
 
İhsan Tank' Alıntı:
Sayfa2'nin kod bölümüne
Kod: 
Private Sub Worksheet_Deactivate()
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = Sheets("Sayfa2").Range("A1")
.RightHeader = ""
End With
End Sub
bu kodu yazınız.
sayfa2'den çıktığınız anda otomatik üst bilgi çıkar
Genişletmek için tıkla ...

Selamlar,
Hocam istediğim buydu sağolun. Ancak; bu sayfa 2 A1 hücresindeki bilgiyi
diğer sayfalara da getirebilirmiyiz. Yani Sayfa3, Sayfa4, Sayfa5 gibi.

Saygılar
 
komutan63' Alıntı:
Selamlar,
Hocam istediğim buydu sağolun. Ancak; bu sayfa 2 A1 hücresindeki bilgiyi
diğer sayfalara da getirebilirmiyiz. Yani Sayfa3, Sayfa4, Sayfa5 gibi.

Saygılar
Genişletmek için tıkla ...

merhaba
bu kod yapıyor istediğinizi. sayfa2'den sonra istediğiniz sayfayı seçin otomatik işlem yapsın.
 
komutan63' Alıntı:
Selamlar,
Hocam istediğim buydu sağolun. Ancak; bu sayfa 2 A1 hücresindeki bilgiyi
diğer sayfalara da getirebilirmiyiz. Yani Sayfa3, Sayfa4, Sayfa5 gibi.

Saygılar
Genişletmek için tıkla ...
Merhaba

İhsan beyin kodu diğer sayfalarda da çalışır
Mesala sayfa ekleyin ve Önce sayfa2 ye gelin ordan direk yeni eklediğiniz sayfaya gidin ve baskı önizleme yapın sayfa2 a1 deki bilgi yeni sayfanızın üst bilgisi olacaktır.
 
Selamlar,

Hocam tamam seçtiğimiz sayfalara atıyor. Ancak ben örneğin Sayfa1 e yazdırdım diyelim Sayfa3 seçtiğimde orayada yazacak. ben onu istemiyorum. Çünkü yazmasını istemediğim sayfayı seçince de yazıyor. Umarım anlatabilmişimdir.

Saygılar
 
komutan63' Alıntı:
Selamlar,

Hocam tamam seçtiğimiz sayfalara atıyor. Ancak ben örneğin Sayfa1 e yazdırdım diyelim Sayfa3 seçtiğimde orayada yazacak. ben onu istemiyorum. Çünkü yazmasını istemediğim sayfayı seçince de yazıyor. Umarım anlatabilmişimdir.

Saygılar
Genişletmek için tıkla ...

merhaba
tam olarak nasıl bir işlem istediğinizi bilmiyorum ama
Kod: 
Private Sub Worksheet_Deactivate()
[COLOR="Red"]With Sheets("Sayfa1").PageSetup
With Sheets("Sayfa3").PageSetup[/COLOR]
.LeftHeader = ""
.CenterHeader = Sheets("Sayfa2").Range("A1")
.RightHeader = ""
[COLOR="red"]End With
End With[/COLOR]End Sub
buda hem Sayfa1'e Hemde Sayfa3'e işlem yapar.
kırmızı yerleri çoğaltınız ve sayfa adlarını ayarlayınız.

eğer ki yok ben Sayfa1'den Sayfa3'e Geçtiğimde Gene otomatik Üst bilgi çalışsın istiyorsanız.
Aynı Kod'u Sayfa1'in kod bölümünede yapıştırınız.
 
Son düzenleme:
İhsan Tank' Alıntı:
merhaba
tam olarak nasıl bir işlem istediğinizi bilmiyorum ama
Kod: 
Private Sub Worksheet_Deactivate()
[COLOR=red]With Sheets("Sayfa1").PageSetup[/COLOR]
[COLOR=red]With Sheets("Sayfa3").PageSetup[/COLOR].LeftHeader = ""
.CenterHeader = Sheets("Sayfa2").Range("A1")
.RightHeader = ""
[COLOR=red]End With[/COLOR]
[COLOR=red]End With[/COLOR]End Sub
buda hem Sayfa1'e Hemde Sayfa3'e işlem yapar.
kırmızı yerleri çoğaltınız ve sayfa adlarını ayarlayınız.

eğer ki yok ben Sayfa1'den Sayfa3'e Geçtiğimde Gene otomatik Üst bilgi çalışsın istiyorsanız.
Aynı Kod'u Sayfa1'in kod bölümünede yapıştırınız.
Genişletmek için tıkla ...

Selamlar,
Hocam işte bu
Çok teşekkürler
Saygılar
 
Selamlar,

Hocam rahatsız ediyorum ama ekteki dosyaya uyguladım
Sayfa3 e yazdı, Sayfa1 e yazmadı. İlgilenebilirmisiniz?

Saygılar
 

Ekli dosyalar

komutan63' Alıntı:
Selamlar,

Hocam rahatsız ediyorum ama ekteki dosyaya uyguladım
Sayfa3 e yazdı, Sayfa1 e yazmadı. İlgilenebilirmisiniz?

Saygılar
Genişletmek için tıkla ...

kodu bununla değişir misiniz
Kod: 
Private Sub Worksheet_Deactivate()
With Sheets("Sayfa1").PageSetup
.LeftHeader = ""
.CenterHeader = Sheets("Sayfa2").Range("A1")
.RightHeader = ""
End With
With Sheets("Sayfa3").PageSetup
.LeftHeader = ""
.CenterHeader = Sheets("Sayfa2").Range("A1")
.RightHeader = ""
End With
End Sub
 
Teşekkürler hocam elinize sağlık
Saygılar
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst