Otomatik Sayfa Sonu ekleme

[hackerfriend]

Arkadaşlar merhabalar,

Elimde yüklü bir excel dosyası var. Ben burdaki verileri ayrı ayrı sayfalara bastırmak istiyorum. Baskı önizleme ile manuel sayfa sonları ekleyerek bunları ayrı ayrı bastırabiliyorum. Ancak bu epey vakit alıyor. Sayfa sonunu otomatik ekleyebileceğim bir makro mümkün müdür?

Makro şöyle çalışacak. Örneğin A sütununda müşteri numaraları var diyelim, sütun sıralı. A sütununda aynı müşteri numaralı kayıtlar bir sayfada, diğer müşteri numaraları ayrı sayfada olacak şekilde sayfa sonu önizleme (page break) konabilir mi?

Saygılarımla.

 

[hamitcan]

Sub SayfaSonuBelirle()
    On Error Resume Next
    For i = 1 To ActiveSheet.HPageBreaks.Count - 1
      ActiveSheet.HPageBreaks(i).Delete
    Next

    For j = 2 To [a65536].End(3).Row
    If Cells(j, "a") <> Cells(j + 1, "a") Then
        ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(j + 1, "a")
    End If
    Next
End Sub

 

[hackerfriend]

Hamitcan teşekkürler, çok işime yaradı.

Ayrıca bazı sütunlar için subtotal eklemek istedim. Onun için de aşağıdaki makroyu buldum. Belki kimilerinin işine yarar diye paylaşmak istedim. Makro hem alttoplam ekliyor hem de sayfa sonu ekliyor.

Sub InsertSubTotal()

    Range("A1").Select
    Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(4, 6), _
    Replace:=True, PageBreaks:=True, SummaryBelowData:=True

End Sub

Ekte örnek mevcuttur.

Sevgiler, saygılar.

 

[hamitcan]

Sizin kodunuz daha kısa ve güzel. Teşekkürler.

 

[unur]

İyi Akşamlar,
300 satırlık ve satır yükseklikleri farklı olan bir sayfam var.
A sutununda verim yok. Sayfa sonu olacak belirlemek istediğim satıra X işareti koyarak sayfa sonunu belirleme şansım varmı? Örneğin a15;a35;a52 satırlarına x koyarak sayfa sonunu belirlemek istiyorum.
İlgilenen arkadaşlara şimdiden Teşekkürler.

 

[hamitcan]

Sub SayfaSonuBelirle()
    On Error Resume Next
    For i = 1 To ActiveSheet.HPageBreaks.Count - 1
      ActiveSheet.HPageBreaks(i).Delete
    Next

    For j = 2 To [a65536].End(3).Row
   [color=red] If Cells(j, "a") = "x" Then[/color]
        ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(j + 1, "a")
    End If
    Next
End Sub

şeklinde dener misiniz ?

 

[unur]

Teşekkürler Hamit Bey;
Bilginize sağlık.

 

[baydeniro]

Çok teşekkürler sayın hamitcan ve sayın hackerfriend. Çok işimize yarayacak.

 

[muslum27]

Otomatik sayfa sonu eklemek istiyorum ama başaramadım

Filo Adı: ACIKGOZ IPLIK SAN. VE TIC.LTD.STI--108470

027AS171
Tarih - Saat Yakıt Tipi Tutar Litre Brm Fiyat Km Bayi İl
02.06.2013 12:40 Motorin 115,03 27,13 4,24 0 AKDEMİR TURİZM PETROL ÜRÜN.TAŞ. KUY.SAN.VE TİC. LTD.ŞTİ. GAZİATP
09.06.2013 14:30 Motorin 245,73 57,82 4,25 0 ERCANLAR SAĞLIK KUY.OTO.NAK.PET. GIDA İNŞ.TURZ.SAN.VE TİC.LTD.ŞT GAZİATP
Tplm Litre 84,95
Tplm Tutar 360,76

027BK305
Tarih - Saat Yakıt Tipi Tutar Litre Brm Fiyat Km Bayi İl
06.06.2013 17:13 EcoForce 252,28 60,5 4,17 0 ERCANLAR SAĞLIK KUY.OTO.NAK.PET. GIDA İNŞ.TURZ.SAN.VE TİC.LTD.ŞT GAZİATP
12.06.2013 11:33 Motorin 739,03 173,89 4,25 0 BOZKANLAR PETROL ÜRN. SAN. VE TİC. A.Ş. ŞANLIURFA
13.06.2013 06:46 EcoForce 1.354,75 324,88 4,17 0 ERCANLAR SAĞLIK KUY.OTO.NAK.PET. GIDA İNŞ.TURZ.SAN.VE TİC.LTD.ŞT GAZİATP
Tplm Litre 559,27
Tplm Tutar 2346,06

027R5050
Tarih - Saat Yakıt Tipi Tutar Litre Brm Fiyat Km Bayi İl
02.06.2013 09:09 Motorin 250,08 58,98 4,24 0 AKDEMİR TURİZM PETROL ÜRÜN.TAŞ. KUY.SAN.VE TİC. LTD.ŞTİ. GAZİATP
11.06.2013 16:58 Motorin 302,06 71,24 4,24 0 AKDEMİR TURİZM PETROL ÜRÜN.TAŞ. KUY.SAN.VE TİC. LTD.ŞTİ. GAZİATP
15.06.2013 21:41 Motorin 198,09 46,72 4,24 0 AKDEMİR TURİZM PETROL ÜRÜN.TAŞ. KUY.SAN.VE TİC. LTD.ŞTİ. GAZİATP
Tplm Litre 176,94
Tplm Tutar 750,23

027V5667
Tarih - Saat Yakıt Tipi Tutar Litre Brm Fiyat Km Bayi İl
02.06.2013 14:28 Motorin 100 23,58 4,24 0 AY-TAT OTOMOTİV İNŞAAT TURİZM GIDA SANAYİ VE DIŞ TİCARET LTD. ŞT GAZİATP
10.06.2013 19:52 Motorin 305,03 71,94 4,24 0 AY-TAT OTOMOTİV İNŞAAT TURİZM GIDA SANAYİ VE DIŞ TİCARET LTD. ŞT GAZİATP
Tplm Litre 95,52
Tplm Tutar 405,03
EcoForce Motorin Toplam
TL 1.607,03 2.255,05 3.862,08
LT 385,38 531,3 916,68

Filo Adı: ADNAN ÇOKAY--122201

027ET790
Tarih - Saat Yakıt Tipi Tutar Litre Brm Fiyat Km Bayi İl
05.06.2013 13:35 Motorin 245,67 57,94 4,24 0 ŞAHİNTAŞ PET. OTO. SAN. VE TIC. A.Ş. GAZİATP
10.06.2013 13:10 Motorin 125 29,48 4,24 0 ŞAHİNTAŞ PET. OTO. SAN. VE TIC. A.Ş. GAZİATP
13.06.2013 18:05 Motorin 207,04 48,83 4,24 0 ŞAHİNTAŞ PET. OTO. SAN. VE TIC. A.Ş. GAZİATP
13.06.2013 18:10 Motorin 67,33 15,88 4,24 0 ŞAHİNTAŞ PET. OTO. SAN. VE TIC. A.Ş. GAZİATP
Tplm Litre 152,13
Tplm Tutar 645,04
Motorin Toplam
TL 645,04 645,04
LT 152,13 152,13

Filo Adı: ADS MEDİKAL LAB.VE SAĞ.--111110

06DC0404
Tarih - Saat Yakıt Tipi Tutar Litre Brm Fiyat Km Bayi İl
04.06.2013 08:42 Motorin 268,35 63,44 4,23 0 UZALTAŞ İNŞ.TAH.İTH.İHR.LTD.ŞTİ. ANKARA
Tplm Litre 63,44
Tplm Tutar 268,35

34JR4529
Tarih - Saat Yakıt Tipi Tutar Litre Brm Fiyat Km Bayi İl
04.06.2013 10:20 Motorin 157,78 37,3 4,23 0 HYB PETROL ÜRÜNLERİ OTOM. GIDA İNŞ.TEKSTİL TİC. LTD. ŞTİ. ANKARA
06.06.2013 15:18 Motorin 150 35,46 4,23 0 NUR PETROL MOB.DEK.TUR.TEKS.OTOM ANKARA
11.06.2013 14:13 Motorin 167,55 39,61 4,23 0 ŞAHİN (İSKİTLER) PETROL TİCARET A.Ş. ANKARA
14.06.2013 15:15 Motorin 153,97 36,4 4,23 0 NUR PETROL MOB.DEK.TUR.TEKS.OTOM ANKARA
Tplm Litre 148,77
Tplm Tutar 629,3

34JR4530
Tarih - Saat Yakıt Tipi Tutar Litre Brm Fiyat Km Bayi İl
04.06.2013 16:53 Motorin 175 41,37 4,23 0 UZALTAŞ 2 İNŞ.TAAH. İTH. İHR. ANKARA
07.06.2013 16:51 Motorin 183,16 43,3 4,23 0 UZALTAŞ 2 İNŞ.TAAH. İTH. İHR. ANKARA
11.06.2013 14:50 Motorin 185,4 43,83 4,23 0 UZALTAŞ 2 İNŞ.TAAH. İTH. İHR. ANKARA
14.06.2013 16:07 Motorin 178,25 42,14 4,23 0 UZALTAŞ 2 İNŞ.TAAH. İTH. İHR. ANKARA
Tplm Litre 170,64
Tplm Tutar 721,81

34JR4531
Tarih - Saat Yakıt Tipi Tutar Litre Brm Fiyat Km Bayi İl
04.06.2013 15:04 Motorin 161,84 38,26 4,23 0 UZALTAŞ 2 İNŞ.TAAH. İTH. İHR. ANKARA
07.06.2013 10:02 Motorin 162,39 38,39 4,23 0 DOĞANCAN AKAR.İNŞ.GIDA TİC. VE SAN. ANKARA
10.06.2013 10:15 Motorin 155,16 36,68 4,23 0 DOĞANCAN AKAR.İNŞ.GIDA TİC. VE SAN. ANKARA
12.06.2013 14:49 Motorin 143,9 34,02 4,23 0 UZALTAŞ 2 İNŞ.TAAH. İTH. İHR. ANKARA
15.06.2013 13:54 Motorin 158,92 37,57 4,23 0 ŞAHİN (SÖĞÜTÖZÜ) PETROL TİCARET A.Ş. ANKARA
Tplm Litre 184,92
Tplm Tutar 782,21

34JR6249
Tarih - Saat Yakıt Tipi Tutar Litre Brm Fiyat Km Bayi İl
03.06.2013 15:56 Motorin 145,1 34,14 4,25 0 ALLAR PETROL (3) OTO.DERİ.GIDA TUR. TEMİZ.NAKL.ORM.ÜRÜN.SAN. VE BOLU
07.06.2013 20:21 Motorin 239,59 56,64 4,23 0 TURTAY İNŞ. PETROL AKARY.NAKL. ANKARA
15.06.2013 08:45 Motorin 218,31 51,61 4,23 0 MAVİ BEYAZ AKARY.İNŞ.PETROL PAZ. SAN. ANKARA
Tplm Litre 142,39
Tplm Tutar 603

34JR6250
Tarih - Saat Yakıt Tipi Tutar Litre Brm Fiyat Km Bayi İl
04.06.2013 09:33 Motorin 190,15 44,74 4,25 0 BAYSEL PETROL ÜRÜNLERİ GIDA NAK. VE İNŞ. SAN. LTD. ŞTİ. KONYA
07.06.2013 10:57 Motorin 150,27 35,44 4,24 0 HATEM AKARYAKIT LPG GIDA KONFK.İNŞ. K.MARAŞ
11.06.2013 14:13 Motorin 230,07 54,39 4,23 0 MAVİ BEYAZ AKARYAKIT İNŞ. PET. ANKARA ANKARA
Tplm Litre 134,57
Tplm Tutar 570,49
Motorin Toplam
TL 3.575,16 3.575,16
LT 844,73 844,73

Filo Adı: AHMET TABUR--122223

027AF556
Tarih - Saat Yakıt Tipi Tutar Litre Brm Fiyat Km Bayi İl
05.06.2013 21:36 Motorin 150 35,37 4,24 0 AS-MU PETROL ÜRÜN.TURZ.SAN. VENAK.TİC.LTD.ŞTİ. GAZİATP
13.06.2013 14:00 Motorin 199,83 47,13 4,24 0 EDACAN PETROL NAKLİYAT İNŞAAT GAZİATP
Tplm Litre 82,5
Tplm Tutar 349,83
Motorin Toplam
TL 349,83 349,83
LT 82,5 82,5

Filo Adı: AKADEMİR END.MAK.TİC.PAZ.MEHMET OĞUZ OSANMAZ--123174

027L2190
Tarih - Saat Yakıt Tipi Tutar Litre Brm Fiyat Km Bayi İl
12.06.2013 23:10 Motorin 10,01 2,36 4,24 0 AS-MU PETROL ÜRÜN.TURZ.SAN. VENAK.TİC.LTD.ŞTİ. GAZİATP
Tplm Litre 2,36
Tplm Tutar 10,01

027VL640
Tarih - Saat Yakıt Tipi Tutar Litre Brm Fiyat Km Bayi İl
01.06.2013 16:38 Motorin 100 23,58 4,24 0 ŞAHİNTAŞ PET. OTO. SAN. VE TIC. A.Ş. GAZİATP
05.06.2013 08:02 Motorin 100 23,58 4,24 0 STFC PETROL ÜRÜN. İNŞ. TURZ. TEKS.GIDA SAN. İÇ VE DIŞ TİC. LTD. GAZİATP
10.06.2013 19:41 Motorin 100 23,58 4,24 0 ŞAHİNTAŞ PET. OTO. SAN. VE TIC. A.Ş. GAZİATP
14.06.2013 08:14 Motorin 100 23,58 4,24 0 STFC PETROL ÜRÜN. İNŞ. TURZ. TEKS.GIDA SAN. İÇ VE DIŞ TİC. LTD. GAZİATP
Tplm Litre 94,32
Tplm Tutar 400
Motorin Toplam
TL 410,01 410,01
LT 96,68 96,68

Filo Adı: AKANLAR IC VE DIS TIC.GIDA SAN.LTD.STI--108363

027F4795
Tarih - Saat Yakıt Tipi Tutar Litre Brm Fiyat Km Bayi İl
06.06.2013 19:20 Motorin 100 23,58 4,24 0 AS-MU PETROL ÜRÜN.TURZ.SAN. VENAK.TİC.LTD.ŞTİ. GAZİATP
12.06.2013 15:48 Motorin 200 47,17 4,24 0 EBED PETROL İTH.İHR.PETROL ÜRN. LTD.ŞTİ. GAZİATP
Tplm Litre 70,75
Tplm Tutar 300

027TE575
Tarih - Saat Yakıt Tipi Tutar Litre Brm Fiyat Km Bayi İl
01.06.2013 22:10 Motorin 335 79,01 4,24 0 ŞAHİNTAŞ PET. OTO. SAN. VE TIC. A.Ş. GAZİATP
13.06.2013 12:22 Motorin 307,4 72,5 4,24 0 AY-TAT OTOMOTİV İNŞAAT TURİZM GIDA SANAYİ VE DIŞ TİCARET LTD. ŞT GAZİATP
Tplm Litre 151,51
Tplm Tutar 642,4

027U3250
Tarih - Saat Yakıt Tipi Tutar Litre Brm Fiyat Km Bayi İl
01.06.2013 09:29 Motorin 145,01 34,2 4,24 0 ACARSAN MOTORLU ARAÇ.PETROL GAZİATP
07.06.2013 23:56 Motorin 194,83 45,95 4,24 0 ŞAHİNTAŞ PET. OTO. SAN. VE TIC. A.Ş. GAZİATP
15.06.2013 22:03 Motorin 194,74 45,93 4,24 0 AY-TAT OTOMOTİV İNŞAAT TURİZM GIDA SANAYİ VE DIŞ TİCARET LTD. ŞT GAZİATP
Tplm Litre 126,08
Tplm Tutar 534,58
Motorin Toplam
TL 1.476,98 1.476,98
LT 348,34 348,34

Filo Adı: AKAYSAN PLASTIK GIDA TAS.TEKS.SAN. VE TIC.LTD.STI--109194

006ARM93
Tarih - Saat Yakıt Tipi Tutar Litre Brm Fiyat Km Bayi İl
11.06.2013 15:57 Motorin 371,51 87,62 4,24 0 AY-TAT OTOMOTİV İNŞAAT TURİZM GIDA SANAYİ VE DIŞ TİCARET LTD. ŞT GAZİATP
Tplm Litre 87,62
Tplm Tutar 371,51
Motorin Toplam
TL 371,51 371,51
LT 87,62 87,62

Filo Adı: AKFA İÇ VE DIŞ TİC.LTD.ŞTİ.--110475

027AK277
Tarih - Saat Yakıt Tipi Tutar Litre Brm Fiyat Km Bayi İl
01.06.2013 16:22 Motorin 203,65 48,03 4,24 0 AY-TAT OTOMOTİV İNŞAAT TURİZM GIDA SANAYİ VE DIŞ TİCARET LTD. ŞT GAZİATP
12.06.2013 18:08 Motorin 211,66 49,92 4,24 0 AY-TAT OTOMOTİV İNŞAAT TURİZM GIDA SANAYİ VE DIŞ TİCARET LTD. ŞT GAZİATP
Tplm Litre 97,95
Tplm Tutar 415,31

027P1111
Tarih - Saat Yakıt Tipi Tutar Litre Brm Fiyat Km Bayi İl
03.06.2013 20:42 Kurşunsuz 308,8 65,01 4,75 0 AY-TAT OTOMOTİV İNŞAAT TURİZM GIDA SANAYİ VE DIŞ TİCARET LTD. ŞT GAZİATP
Tplm Litre 65,01
Tplm Tutar 308,8

027U2222
Tarih - Saat Yakıt Tipi Tutar Litre Brm Fiyat Km Bayi İl
04.06.2013 02:02 Motorin 183,08 43,18 4,24 0 GÜRBÜZLER OTO.PET.ÜRN.SAN.TİC.LTD.ŞTİ. GAZİATP
04.06.2013 05:35 Motorin 247,79 58,44 4,24 0 KIZILDAĞ PETROL RES.NAK.İNŞ.OTO.SAN.VE TİC.LTD.ŞTİ. AKSARAY
05.06.2013 12:17 Motorin 180,07 42,57 4,23 0 YÜCEL GRUP PETROL(2) TURİZM KUYUM.İNŞ.TAŞ.SAN. VE TİC.LTD.ŞTİ. ANKARA
05.06.2013 20:53 Motorin 246,61 58,3 4,23 0 DİNÇ ( 2) PET. İNŞ.NAK.TAAH.SAN. VE TİC. GAZİATP
Tplm Litre 202,49
Tplm Tutar 857,55

027YY001
Tarih - Saat Yakıt Tipi Tutar Litre Brm Fiyat Km Bayi İl
10.06.2013 19:46 Motorin 220,56 52,02 4,24 0 DOĞUŞ (MÜCAHİTLER) RENT A CAR OTOM. GAZİATP
Tplm Litre 52,02
Tplm Tutar 220,56
Kurşunsuz Motorin Toplam
TL 308,8 1.493,42 1.802,22
LT 65,01 352,46 417,47

Filo Adı: AKILAY DIŞ TİCARET A.Ş.--109762

34BA8026
Tarih - Saat Yakıt Tipi Tutar Litre Brm Fiyat Km Bayi İl
07.06.2013 15:31 Motorin 160,49 38,03 4,22 84.065 OTTOMAN PETROL HAFRİYAT İNŞAAT NAKLİYAT TUR. SAN VE TİC. LTD.ŞTİ İSTANBUL
14.06.2013 19:59 Motorin 159,47 37,79 4,22 84.606 PRESTİJ PTR.TEKS.GIDA İNŞ.TURZ.SAN.TİC.LTD. İSTANBUL
Tplm Litre 75,82
Tplm Tutar 319,96

34BA8027
Tarih - Saat Yakıt Tipi Tutar Litre Brm Fiyat Km Bayi İl
08.06.2013 13:45 Motorin 162,39 38,48 4,22 76.669 PRESTİJ PTR.TEKS.GIDA İNŞ.TURZ.SAN.TİC.LTD. İSTANBUL
14.06.2013 16:23 Motorin 158 37,44 4,22 77.234 PRESTİJ PTR.TEKS.GIDA İNŞ.TURZ.SAN.TİC.LTD. İSTANBUL
Tplm Litre 75,92
Tplm Tutar 320,39

34TU4818
Tarih - Saat Yakıt Tipi Tutar Litre Brm Fiyat Km Bayi İl
05.06.2013 11:44 Motorin 159,77 37,86 4,22 0 RENK PETROL SAN. İSTANBUL
09.06.2013 09:15 Motorin 158,88 37,65 4,22 0 TSK MEHMETÇİK MASLAK İSTANBUL
14.06.2013 14:40 Motorin 164,66 39,02 4,22 0 RENK PETROL SAN. İSTANBUL
Tplm Litre 114,53
Tplm Tutar 483,31

34TU4846
Tarih - Saat Yakıt Tipi Tutar Litre Brm Fiyat Km Bayi İl
03.06.2013 16:28 Motorin 152,55 36,15 4,22 0 FLORYA AKARYAKIT GIDA İNŞAAT İSTANBUL
08.06.2013 17:31 Motorin 145,67 34,52 4,22 0 ÇAĞDAŞ PETROL ÜRÜNLERİ PAZARLAMA İSTANBUL
14.06.2013 20:00 Motorin 166,31 39,41 4,22 0 RENK PETROL SAN. İSTANBUL
Tplm Litre 110,08
Tplm Tutar 464,53
Motorin Toplam
TL 1.588,19 1.588,19
LT 376,35 376,35

Filo Adı: AK-MAKS SOĞUTMA VE ISITMA SAN.VE TİC.LTD.ŞTİ--114167

027R6848
Tarih - Saat Yakıt Tipi Tutar Litre Brm Fiyat Km Bayi İl
06.06.2013 09:29 Motorin 265 62,5 4,24 0 GÜRBÜZLER OTO.PET.ÜRN.SAN.TİC.LTD.ŞTİ. GAZİATP
08.06.2013 17:50 Motorin 304,6 71,84 4,24 0 EBED PETROL İTH.İHR.PETROL ÜRN. LTD.ŞTİ. GAZİATP
15.06.2013 09:16 Motorin 315,71 74,46 4,24 0 ACARSAN MOTORLU ARAÇ.PETROL GAZİATP
Tplm Litre 208,8
Tplm Tutar 885,31

027RL848
Tarih - Saat Yakıt Tipi Tutar Litre Brm Fiyat Km Bayi İl
06.06.2013 13:48 EcoForce 160,04 38,47 4,16 0 ŞAHİNTAŞ PET. OTO. SAN. VE TIC. A.Ş. GAZİATP
Tplm Litre 38,47
Tplm Tutar 160,04

027Z8485
Tarih - Saat Yakıt Tipi Tutar Litre Brm Fiyat Km Bayi İl
01.06.2013 13:20 Motorin 210,01 49,53 4,24 0 ACARSAN MOTORLU ARAÇ.PETROL GAZİATP
14.06.2013 19:11 Motorin 220,56 52,02 4,24 0 ŞAHİNTAŞ PET. OTO. SAN. VE TIC. A.Ş. GAZİATP
Tplm Litre 101,55
Tplm Tutar 430,57
EcoForce Motorin Toplam
TL 160,04 1.315,88 1.475,92
LT 38,47 310,35 348,82

Filo Adı: AKSAN SAGLIK URUN.SAN.TIC.LTD.STI--109045

027AAB63
Tarih - Saat Yakıt Tipi Tutar Litre Brm Fiyat Km Bayi İl
06.06.2013 10:22 Kurşunsuz 280,2 58,99 4,75 0 CEVHER OTOMOTİV BEN.TURZ.SAN.TİC. GAZİATP
Tplm Litre 58,99
Tplm Tutar 280,2

027S3739
Tarih - Saat Yakıt Tipi Tutar Litre Brm Fiyat Km Bayi İl
11.06.2013 07:33 EcoForce 224,47 53,96 4,16 0 AY-TAT OTOMOTİV İNŞAAT TURİZM GIDA SANAYİ VE DIŞ TİCARET LTD. ŞT GAZİATP
Tplm Litre 53,96
Tplm Tutar 224,47

027VN900
Tarih - Saat Yakıt Tipi Tutar Litre Brm Fiyat Km Bayi İl
11.06.2013 11:41 97 Kurşunsuz 232,27 47,89 4,85 0 EDACAN PETROL NAKLİYAT İNŞAAT GAZİATP
Tplm Litre 47,89
Tplm Tutar 232,27
97 Kurşunsuz EcoForce Kurşunsuz Toplam
TL 232,27 224,47 280,2 736,94
FİLO İSİMLERİNE GÖRE SAYFA SONU EKLEMEK İSTİYORUM YARDIMCI OLURMUSUNUZ?

 

[delta328]

Sayfa sonu ekleme

sub sayfasonubelirle()
    on error resume next
    for i = 1 to activesheet.hpagebreaks.count - 1
      activesheet.hpagebreaks(i).delete
    next

    for j = 2 to [a65536].end(3).row
    ıf cells(j, "a") <> cells(j + 1, "a") then
        activewindow.selectedsheets.hpagebreaks.add before:=cells(j + 1, "a")
    end ıf
    next
end sub

hamitcan bey, bu makroyu kullandım çok teşekkür ederim. Makroya ek bişeyler yapıp, tablodaki 1. Satırdaki verileri diğer sayfaların başlangıcına ekleme sansımız varmı. Yardımlarınızı rica ederim.

 

[bilal5412]

Sub SayfaSonuBelirle()
    On Error Resume Next
    For i = 1 To ActiveSheet.HPageBreaks.Count - 1
      ActiveSheet.HPageBreaks(i).Delete
    Next

    For j = 2 To [a65536].End(3).Row
    If Cells(j, "a") <> Cells(j + 1, "a") Then
        ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(j + 1, "a")
    End If
    Next
End Sub

Merhaba, konu çok eski tarihte açılmış fakat ekli makroya her sayfa sonu grubu için sayfa sayısı/toplam sayfa bilgisi eklenebilir mi

 

[alparslansutbas]

Merhaba,
benim de bir konuda yardımlarınıza ihtiyacım var, bir hesap dökümü sayfasında otomatik sayfa sonları oluşturuyorum ama hesabın içeriğine göre bir sayfaya 1,2,3 hesap dökümü giriyor, eğer son hesap dökümü diğer sayfaya taşıyorsa onu tamamen diğer sayfaya alan bir makroya ihtiyacım var,
yani mesela otomatik sayfa sonu oluşturdum,her hesap dökümünün başına X ve sonuna Y yaptım eğer sayfa sonu bu X ve Y arasında kaldıysa üstteki X 'e sayfa sonu yapacak,
yardımlarınız için şimdiden teşekkür ederim.