Makro İle Alt Sağ Bilgi Yapma ( İmza Amaçlı)

[Sarigol_937]

Bu makro ile Sayfa1 deki A1 ve A2 hücresindeki veriyi birleştirip A4 hücresine yazıyor ve A4 hücresindeki veriyide alt bilgi yapar. En alttaki vba kodlarındaki Sheets kısmındaki Sayfa1,Sayfa2,Sayfa3 diye giden kısma istediğimiz kadar sayfa ekleyip ismini sayfa adlarımınızı yazarak sadece istediğimiz sayfalara altbilgi yapabiliriz. Sadece Sayfa 1 de bir buton oluşturup bir tuşa basınca tüm sayfalarda altbilgi değişir. Birde örnek dosya ekliyorum.


Modüle içine yapıştırın:


Public mytext As String, evntext As String

Sub Sorgu()
Dim hucre As Range

Sheets("Sayfa1").Visible = True
Sheets("Sayfa1").Select

For Each hucre In Range("A1:A2")

sonuc = sonuc & Chr(10) & hucre.Value
Next hucre

x = Mid(sonuc, 2, Len(sonuc) - 1)


Range("A4:A4").Select
Range("A4").HorizontalAlignment = xlCenter

Selection.Merge
Selection.Value = x

kOntrol = 1
'mytext = InputBox("Alt bilgiyi giriniz.!")
'If mytext = "" Then Exit Sub
evntext = "&""Times New Roman""&10 " & Range("A4").Value & ""
Range("A4").HorizontalAlignment = xlCenter
Sheets("Sayfa1").PageSetup.RightFooter = evntext
Sheets("Sayfa2").PageSetup.RightFooter = evntext
Sheets("Sayfa3").PageSetup.RightFooter = evntext

ActiveSheet.PrintPreview
mytext = vbNullString: evnext = vbNullString
kOntrol = 0


End Sub

 

[Sarigol_937]

sayfa2 ve Sayfa3 teki önizlemeleri görebilmek için sayfaya bir iki har yazın yeter vri boşken önizleme yapmaz.İhtiyacı olan arkadaşlar kullansın benim çok işime yaradı.

 

[xternet]

Sayın Sarigol_937;

Tam da aradığım kodu yazmışsınız. Zihninize sağlık.

 

[Sarigol_937]

Bişiy değil kardeş, böyle güzel bir forumda herşeyi bulma ve öğrenme imkanın her zaman vardır.

 

[jeoferkan]

Konuyu hortlatmak gibi olmasın. güzel bir kod elinize sağlık ama sayfaları modülden girilmedikçe alt bilgi alınamıyor. Yanı yeni sayfalar eklendiğinde yeni sayfalara alt bilgi eklemiyor. yeni eklenen sayfalara bu bilgiyi eklemek adına bir sayfa listesi gelse ve o sayfa listesinden istenilen sayfalara bu bilgi eklense ne güzel olurdu?

 

[jeoferkan]

Sanırım yapılamıyor.
olmuyorsa zorlamayacaksın.....