[Yardım]  Çıktı Aldıkça Artan Numaratör

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Çıktı Aldıkça Artan Numaratör

İleti#1)  S1R » 03 Arl 2018 17:47

Herkese merhaba,

İş yerimde kullandığım bir form var ve bunu numaralandırmak istiyorum. İrsaliye mantığındaki gibi çıktı aldıkça bir artacak şekilde bir numara vermem mümkün mü? Çok aradım ama bir örneğini bulamadım. [ilginc]
Kullanıcı avatarı
S1R
 
Adı Soyadı:Soner UÇAR
Kayıt: 23 Oca 2014 19:09
Konum: İSTANBUL / KARTAL
Meslek: Lojistik
Yaş: 30
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İST / TUZLA

Cevap: Çıktı Aldıkça Artan Numaratör

İleti#2)  şahin » 03 Arl 2018 23:19

Merhaba
Örnek dosyanız varsa onun üzerinde çalışalım.
Kullanıcı avatarı
şahin
Siteye Alışmış
 
Kayıt: 30 Eyl 2016 23:24
Meslek: memur
Yaş: 29
İleti: 370
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Çıktı Aldıkça Artan Numaratör

İleti#3)  S1R » 04 Arl 2018 09:10

Merhaba,

Dosyayı ekledim. G2 Hücresindeki sayı her yazdırmadan sonra bir artsın diye uğraşıyorum.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
S1R
 
Adı Soyadı:Soner UÇAR
Kayıt: 23 Oca 2014 19:09
Konum: İSTANBUL / KARTAL
Meslek: Lojistik
Yaş: 30
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İST / TUZLA

Cevap: Çıktı Aldıkça Artan Numaratör

İleti#4)  veyselemre » 04 Arl 2018 15:42

Başlangıçta G2 deki numarayı 0 yapın, aşağıdaki kodu (Bu çalışma kitabı / This Workbook ) kısmına yerleştirin, her yazdırmadan önce G2 deki sayı bir artırılacak, dediğiniz gibi yazdırmadan sonra değil yazdırmadan önce artacaktır. Diğer türlü yapmak için yazdırma komutunu da kodla yapmak gerekir.
Kod: Tümünü seç
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If ActiveSheet.Name = "Yükleme Kontrol Formu" Then Range("G2").Value = Range("G2").Value + 1
End Sub
Kullanıcı avatarı
veyselemre
Siteye Alışmış
 
Kayıt: 28 Nis 2015 17:53
Meslek: SERBEST
Yaş: 103
İleti: 235
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çubuk

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Çıktı Aldıkça Artan Numaratör

İleti#5)  S1R » 05 Arl 2018 17:35

Ben de biraz araştırdıktan sonra aşağıdaki koda ulaştım. İşimi gördü, başka faydalanmak isteyen olur diye ekliyorum.

İlgilenen herkese teşekkürler.

Kod: Tümünü seç
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim i As Long
Cancel = True
Application.EnableEvents = False
Application.Dialogs(xlDialogPrinterSetup).Show
With Sheets("Sheet1")
    For i = 1 To .Range("a1").Value
        .Range("b1").Value = .Range("b1").Value + 1
        .PrintOut
    Next i
End With
Application.EnableEvents = True
End Sub

Kullanıcı avatarı
S1R
 
Adı Soyadı:Soner UÇAR
Kayıt: 23 Oca 2014 19:09
Konum: İSTANBUL / KARTAL
Meslek: Lojistik
Yaş: 30
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İST / TUZLA


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Bing[Bot], Google Adsense [Bot] ve 6 misafir

Bumerang - Yazarkafe