Excelden İyi Anlayan Yok Mu?

Kodla Büyü

zodiac

Hiperaktif Üye
Hiperaktif
Süper Üye
Mesajlar
3,007
merhaba, excel dosyasında, sayfa sonundaki isimlerin olduğu satırı satırı her sayfada yenilenmesini nasıl yapabilirim? teşekkür ederim

BU MAKRO'yu ekteki dosyada çalıştırabilecek biri var mı? Yapmak istediğim şey şu; baskı önizleme neticesinde oluşan herbir sayfanın sonuna sayfanın en son satırındaki isimlerin olduğu bölümü eklemek istiyorum. Her sayfanın altında imza gibi o kişilerin ismi çıksın istiyorum.

Sub aktar()
sonsatir = Sheets("XXX XXXXX").Range("a65536").End(3).Row
For i = 2 To Sheets.Count
Sheets("XXX XXXXX").Range("a" & sonsatir & ":bq" & sonsatir).Copy Sheets(i).Range("a65536").End(3)(2, 1) ' bu şekilde yaparsanız sayfaların son dolu satırının bir alt satırına aktarır.
Sheets("XXX XXXXX").Range("a" & sonsatir & ":bq" & sonsatir).Copy Sheets(i).Range("a55") ' satır sabit ise bu şekilde kullanabilirsiniz
Next
End Sub
 

Ekli dosyalar

  • sayfa altı.rar
    1.4 MB · Görüntüleme: 93
Re: Excel Yardım Lütfen Çok Önemli

Sanırım altbilgiyi soruyorsun hocam.

Dosya> yazdır> sayfa yapısı açarsan üstbilgi altbilgi sekmesinden yapabilirsin.
 
Re: Excel Yardım Lütfen Çok Önemli

latcakir' Alıntı:
Sanırım altbilgiyi soruyorsun hocam.

Dosya> yazdır> sayfa yapısı açarsan üstbilgi altbilgi sekmesinden yapabilirsin.

Hocam o şekilde olmuyor denedim
 
Re: Excel Yardım Lütfen Çok Önemli

İstediğim şey excel dosyasının en son satırındaki bölümü her sayfanın altında göstermek, alt bilgi ile olmuyor.
 
Belki yardımcı olur.... :idea: :idea: :idea: :idea:
 

Ekli dosyalar

  • Desktop.zip
    1.4 MB · Görüntüleme: 46
Notepad ile istediğiniz şekilde yazın, alt bilgi olarak notepaden kopyala yapıştır yapın.
 
Selamun aleyküm hocam bu fazla uzun değil ki her sayfanın altına kopyala yapıştır yapın olsun bitsin inşallah hayırlısıyla saygı ve selamlar.
 
Aydın ÖZTÜRK' Alıntı:
Selamun aleyküm hocam bu fazla uzun değil ki her sayfanın altına kopyala yapıştır yapın olsun bitsin inşallah hayırlısıyla saygı ve selamlar.

Aleyküm Selam Hocam, yüzlerce excel dosyası var ve bazı dosyalarda çok sayfalardan oluşuyor, bu dediğiniz yöntemle yapmak hem çok vakit alıyor hemde her sayfa altı için özel ayar yapmak gerekiyor. MAKRO yazarak yapılabiliyor ama yolladığım dosyada ben çalıştıramadımi anlayan varsa çalıştırabilir mi bo MAKRO'yu? teşekkür ederim.
 
Sayfalardaki satır yükseklikleri eşit değilse hata olur. Eger esitse son satir bilgisini döngünün icine koymalisiniz.
 
İsimler belki son sayfaya taşabilir. XXX XX.. sayfası 1. sayfa olsun.
Sub Aktar()
Application.ScreenUpdating = False
Sheets("XXX XXXXX").Range("A55:BZ55").Copy
For i = 2 To Sheets.Count
son = Sheets(i).Cells(Rows.Count, 1).End(3).Row + 1
Sheets("XXX XXXXX").Range("A55:BZ55").Copy Sheets(i).Cells(son, 1)
Sheets(i).Rows(son).RowHeight = 75.75
Next
End Sub
 
mokumus67' Alıntı:
İsimler belki son sayfaya taşabilir. XXX XX.. sayfası 1. sayfa olsun.
Sub Aktar()
Application.ScreenUpdating = False
Sheets("XXX XXXXX").Range("A55:BZ55").Copy
For i = 2 To Sheets.Count
son = Sheets(i).Cells(Rows.Count, 1).End(3).Row + 1
Sheets("XXX XXXXX").Range("A55:BZ55").Copy Sheets(i).Cells(son, 1)
Sheets(i).Rows(son).RowHeight = 75.75
Next
End Sub

Hocam dediğinizi gönderdiğim dosyada uygulayabilir misiniz? Ben yapamadım söylediğinizi, teşekkür ederim.
 
Vba editörüne bir tane Modül ekleyeyin.
Kodu module yapistirin.
Bir tane ekle menüsünden sekil ekleyin
Sag tiklayip makro ata deyin
Aktar makrosunu seçip tiklayin.
 
mokumus67' Alıntı:
Vba editörüne bir tane Modül ekleyeyin.
Kodu module yapistirin.
Bir tane ekle menüsünden sekil ekleyin
Sag tiklayip makro ata deyin
Aktar makrosunu seçip tiklayin.

Hocam o kadar bilgim yok maalesef, gönderdiğim dosyaya ekleyebilir misiniz rica etsem?
 
Geri
Üst