• DİKKAT

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

özel altbilgiyi al, tarihide otomatik

M

mutluedenercan

Katılım
9 Aralık 2009
Mesajlar
532
Excel Vers. ve Dili
2007,5
efendim,

yazdırma sayfasına yazarken özel alt bilgiyi ayarlıyoruz ya...

işte o özel altbilgi sabit yapma yerine, L6 hücresinde yazanı aldırabilirmiyiz

( özel altbilgi sol kısmı, sayfanın l6 hücresinde yazana göre ayarlancak otomatik )

2 - özel altbilgi sağ kısmının başına ise, o günün tarihini otomatik alacak,
( yani , otomatik tarih , altına Okul Müdürü sabit )

nasıl ayarlıyabilirim

teşekkür
 
. . .

Kodları Buçalışmakitabı kod bölümüne yapıştırın.

Mavi ile belirttiğim kısmı ilgili sayfa ismine göre değiştirin.

Kod: 
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If ActiveSheet.Name <> "[COLOR="Blue"]Sayfa1[/COLOR]" Then Exit Sub
    With ActiveSheet.PageSetup
        .LeftFooter = Range("L6")
        .RightFooter = Date & Chr(10) & "Okul Müdürü"
    End With
End Sub

. . .
 
tamam oldu....hocamm, ilave ettiğim alt satıra gelmedi...

.LeftFooter = Range("L6") & "Koordinatör Öğretmen"
.RightFooter = Date & Chr(10) & "Okul Müdürü" & "Salih AYDIN"

Koordinatör öğretmen i yanına deyil altına yazsın, salih aydınıda altına yazsın

neyi değiştirem
 
. . .

Kod: 
 Range("L6") & [COLOR="Blue"]chr(10)[/COLOR] & "Koordinatör Öğretmen"

Chr(10) ilave etmelisiniz. Alt satıra geçme işlemini yapar.

. . .
 
run time eror 438 hatası verdi...


.Range ("L6") & Chr(10) & "Koordinatör Öğretmen"
.RightFooter = Date & Chr(10) & "Okul Müdürü" & Chr(10) & "Salih AYDIN"

böyle yaptıydım

2 - birde başka sayfam daha var, onuda böyle otomatik yaptırırsam , aynı kodun komplesini yine sayfa ismini değiştirerek altına ilave ettim, diğer sayfada olmamıştı ( hem sayfa 2 , hemde sayfa 4 de çıktı alınca bu çalışsın istediydim )
 
. . .

Örnek dosya yükleyin, üzerinde çalışalım.

. . .
 
. . .

Şu şekilde deneyiniz.

Yalnız sayfa4 ile sayfa2 nin yapıları yanı değil. Hücre adresilerini değiştirmelisiniz.

Kod: 
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    
    If ActiveSheet.Name = "Sayfa4" Then
        With ActiveSheet.PageSetup
            .LeftFooter = Range("L6") & Chr(10) & "Koordinatör Öğretmen"
            .RightFooter = Date & Chr(10) & "Okul Müdürü" & Chr(10) & "Salih AYDIN"
        End With
    End If
    
    If ActiveSheet.Name = "Sayfa2" Then
        With ActiveSheet.PageSetup
            .LeftFooter = Range("L6") & Chr(10) & "Koordinatör Öğretmen"
            .RightFooter = Date & Chr(10) & "Okul Müdürü" & Chr(10) & "Salih AYDIN"
        End With
    End If
    
End Sub

. . .
 
peki hocam sayfa1 G5 hücresinden ismi al desem nasıl yaparım

.LeftFooter = Sayfa1!G5 denedim olmadı
 
Hocam tamam olduda,, sayfa2 deki yazdır düğmesi çalışıyordu şimdi o run time hatası verdi, ne ilgisi var bu yapılanla onun anlamadım .. örneği eklemiştim bi bakarmısınz
 
. . .

Yazdırma işlemini sayfadaki butondan yapıyorsanız, butona şu kodları ilave edin.

Kod: 
Public Sub CommandButton1_Click()
    Call satır_gizle
    Sheets("Sayfa2").Range("A1:H100").Select
[COLOR="SeaGreen"]    'If Application.Dialogs(xlDialogPrintPreview).Show = True Then
    'Else[/COLOR]
[COLOR="Blue"]    With ActiveSheet.PageSetup
        .LeftFooter = Range("L6") & Chr(10) & "Koordinatör Öğretmen"
        .RightFooter = Date & Chr(10) & "Okul Müdürü" & Chr(10) & "Salih AYDIN"
    End With[/COLOR]
    ActiveSheet.Range("A1:H100").PrintOut Copies:=1
[COLOR="SeaGreen"]    'End If[/COLOR]
    Call satır_göster
    Sheets("Sayfa2").Range("A5").Select
End Sub

. . .
 
Hocam oldu, Allah CC rağzı olsun....

tabi daha öncaden ilave ettiğimiz . aktif sayfadaki kodla aynı olduğu için , o kodları iptal ettim..

doğru yapmışım demi,,
 
. . .

Yazdırma işlemlerini kendi eklediğiniz butonlar ile yapıyorsanız,
daha önceki verdiğim kodları bu butonların içine almalısınız.

Denemeler yaparak sonucu gözlemleyebilirsiniz.

. . .
 
http://s4.dosya.tc/server/gx41gm/t_.yaz2.rar.html

hocam şu eklediğim örneğe bi bakarmısınz, haftalık toplu düğmesi çalışıyor,,( öğretmenleri toplu süzüp yazdırıyor )

bu koda bakarak gerekli yeri değiştirerek , AYLIK TOPLU, düğmesi ekledim oda sayfa 4 deki formata göre dökecek, ( sayfa 4 deki yazdır da çalıştı ) bu düğmede haftlalık düğmesi ile aynı kodda tek farkı sayfa4 de göre çıkaracak, neden olmuyo..bi bakebilirmisinz

teşekkür
 
Son düzenleme:
. . .

Tablonuzun yapısını ve kullanım mantığını bilmediğim için anlayamadım.

. .
 
Hocam, AYLIK TOPLU DÖKÜM düğmesinin kodu:

Private Sub CommandButton10_Click()
Dim Say As Integer
Dim Bak As Integer
Say = Cells(10000, "AF").End(xlUp).Row
For Bak = 9 To Say
Range("G5").Value = Cells(Bak, "AF").Value

Sayfa4.CommandButton1_Click


MsgBox "Siz tek tek uğraşmayın diye!" & vbLf & "Tümünü gönderdim.." & vbLf & "Daha ne yapayım..", vbExclamation, " *** Ercan BALKAN ***"
End Sub

Compile error veriyor,,,

Haftalık Toplu Döküm , düğmesinin kodu ile aynı o çalışıyor bu neden çalışmıyor, anlamadım..

Bunun amacı:
Hocam, AF stunda listelenen isimleri teker teker, G5 deki arama penceresinde aratıp süzmüş gibi yapıyor ,sayfa 4 de atıyor ve oradaki yazdır düğmesine basıyor, bu kod , Haftalık Toplu Düğmesini incelerseniz, aynı orada çalıştı...hem manuel yapınca yani, bir ismi g5 de aratınca,
hem sayfa2 ye oradaki formata göre, hemde sayfa 4 de oradaki formata göre o ismi listeliyor
ve sayfa 4 deki düğme çalışıyor...

Bi yardım edermisinz....
 
Merhaba
Aşağıdaki şekilde deneyin çalışacaktır.
Yukarıda "For" döngüsü sonunda "Next" yazılmamış.
Run ("Sayfa4.CommandButton1_Click")
Next
Genişletmek için tıkla ...

Ayrıca "Sayfa4" kod sayfasında sayfa açılmadan hücrelerin seçilmesi istenmiş;
İlk satıra 4.sayfayı açacak kod ekleyiniz.
"Sayfa4" 1. buton:
Kod: 
 Private Sub CommandButton1_Click()
[COLOR="red"]Sheets("Sayfa4").Select[/COLOR]
Call satır_gizle
Sheets("Sayfa4").Range("A1:L100").Select
'......
'.......
 
Son düzenleme:
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst