mesaj kutusu ile sayfa yazdırma adedi gir (sayfa boş bile olsa yazdırır) Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
 
Sub Changing_Section_Headers()
    Dim c As Range, rngSection As Range
    Dim cFirst As Range, cLast As Range
    Dim rowLast As Long, colLast As Integer
    Dim r As Long, iSection As Integer
    Dim iCopies As Variant
    Dim strCH As String

Set c = Range("A1").SpecialCells(xlCellTypeLastCell)
    rowLast = c.Row
    colLast = c.Column

iCopies = InputBox( _
        "Number of Copies", "Changing Section Headers", 1)

If iCopies = "" Then Exit Sub

Set cFirst = Range("A1")     ' initialization start cell
    For r = 2 To rowLast    ' from first row to last row
        If ActiveSheet.Rows(r).PageBreak = xlPageBreakManual Then
            Set cLast = Cells(r - 1, colLast)
            Set rngSection = Range(cFirst, cLast)

iSection = iSection + 1
            Select Case iSection
            '   substitute your CenterSection Header data ...
                Case 1: strCH = "Section 1"
                Case 2: strCH = "Section 2"
            '   etc
            '   Case n: strCH = "Section n"
            End Select

ActiveSheet.PageSetup.CenterHeader = strCH

rngSection.PrintOut _
                Copies:=iCopies, Collate:=True

Set cFirst = Cells(r, 1)
        End If
    Next r

'   Last Section ++++++++++++++++++++++++++++
    Set rngSection = Range(cFirst, c)

iSection = iSection + 1
'   substitute your Center Header data ...
    strCH = "Last Section ..."   ' or  strCH = "Section " & iSection

ActiveSheet.PageSetup.CenterHeader = strCH

rngSection.PrintOut _
        Copies:=iCopies, Collate:=True
End Sub

Benzer Sonuçlar
No	Makro Adı
1	mesaj kutusu ile sayfa yazdırma adedi gir (sayfa boş bile olsa yazdırır)
2	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
3	makrolar kutusu ve makrolar görünsün
4	Dosyayı kim açtı 2
5	sayfa sekmelerine koruma atamak
6	kayıt engelenebilir mi?
7	dosya adı, yolu ve çalışma sayfası adını fornsiyonlarla yazdır
8	klasör ve dosya makrolarındaki yolları kendine göre düzenle
9	sayfa isimleri mesaj kutusunda sıralı
10	seçilen alanları bir kağıtta yazdırır eder
11	seçilen alanlari bir kağitda yazdırır eder
12	forma otomatik resim getirme
13	yazdırmak için süzme şart olsun 2
14	veri olan iki ayrı sütunu birleştirme
15	dosyayı kim açtı
16	eğer sayfa boş ise alt bilgiye tarihi ekler değilse ekleyer ve yazdırır
17	ehatalıysa formülünün izahı
18	alt alta kayıt işlemi
19	yer tanımlama makrosu
20	menü çubuğunun silinmesi ve özel bir menünün oluşturulması

Benzer Sonuçlar

Makro Adı

mesaj kutusu ile sayfa yazdırma adedi gir (sayfa boş bile olsa yazdırır)

excelde kendi eklenti ve fonksiyonlarınızı oluşturun

makrolar kutusu ve makrolar görünsün

Dosyayı kim açtı 2

sayfa sekmelerine koruma atamak

kayıt engelenebilir mi?

dosya adı, yolu ve çalışma sayfası adını fornsiyonlarla yazdır

klasör ve dosya makrolarındaki yolları kendine göre düzenle

sayfa isimleri mesaj kutusunda sıralı

seçilen alanları bir kağıtta yazdırır eder