otomatik numara

[noname77]

deneme yarınnn

sayın necdet bey
öncelikle ankaraya selamlar benim gibi excel heveslisi ama vb bilmeyen birine yardım ettiğiniz için çok tsk ederim. yarın bunu işyerinde deneyeceğim. size sonucu yarın bildiririm. emeğinize sağlık.

 

[noname77]

makroda sayfa 2 ye özet bilgi her print edildiğinde değilde 3. print komutunda olması durumunu sağlarsanız çok memnun olacağım. kendim makro kodunda yapayım dedim ama hangi komut ne ifade ediyor çözemedim.

 

[Necdet]

Merhaba, Küçük değişiklikle kodlarınız hazır.

ThisWorkbook'un kod sayfasına kopyalayınız.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name <> "Sayfa1" Then Exit Sub
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s1.[K1] = s1.[K1] + 1
If s1.[K1] > 2 Then
    s1.[K1] = 0
    s1.[F3] = s1.[F3] + 1
    Set Bul = s1.Columns(1).Find("FATURA")
    If Not Bul Is Nothing Then
        
        Sat = s2.[A65536].End(3).Row + 1
        s2.Cells(Sat, "A") = Sat - 1
        s2.Cells(Sat, "B") = s1.[C5]
        s2.Cells(Sat, "C") = s1.Cells(Bul.Row, "B")
        s2.Cells(Sat, "D") = s1.Cells(Bul.Row, "D")
    Else
        MsgBox "FATURA Yazısını Bulamadım ........"
    End If
End If
End Sub

 

[noname77]

özür

sayın necdet hocam geçen hafta ay sonu olduğu için çok yoğundum ve deneme yapamadım.inşallah bu hafta sorun çıkmaz ve sonucu bildiririm. yaptığınız çalışma ftt için özet bir taslaktı bunu orijinalleştirebilirsek çok memnun olacağım.

 

[noname77]

son aşamalar

sayın necdet hocam saygılar
teslim tutanağı için üstünde çalıştığım "deneme" adını verdiğim dosyayı bir incelerseniz çok memnun olacağım. daha önce taslak ftt için yaptığınız makroyu buna uyulamada vakıf olamadım. dosyanın içerisinde neler olması gerektiğini yine not ettim. kendimde ufak eklemelerde bulundum. sizinde ayrıca tavsiyeleriniz varsa bilmek isterim. hayırlı ramazanlar tekrar saygılarımla.

 

[Necdet]

Merhaba,

Aşağıdaki kodlar yine ThisWorkbook'un içinde olmalı.

FTT sayfası içinde N1 ve M1 hücreleri kontrol amaçlı kullanılıyor. N1 Hücresi 1 ise her liste alındığında, 3 ise her 3 liste alındığında Fatura numarasını 1 arttırır.

Dosyayı inceleyiniz, atladığım birşey varsa bildiriniz. Aradan zaman geçince insan ne yaptığını unutuyor, malum yaşlılık

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name <> "FTT" Then Exit Sub
Set s1 = Sheets("FTT")
Set s2 = Sheets("RAPOR")
Dim Adet As Integer
If s1.[N1] = 3 Then
    Adet = 2
Else
    Adet = 0
End If
s1.[M1] = s1.[M1] + 1
If s1.[M1] > Adet Then
    s1.[M1] = 0
    s1.[K7] = s1.[K7] + 1
    Set Bul = s1.Columns(3).Find("TOPLAM:")
    If Not Bul Is Nothing Then
        
        Sat = s2.[A65536].End(3).Row + 1
        s2.Cells(Sat, "A") = Sat - 1
        s2.Cells(Sat, "B") = CDate(s1.[K6])
        s2.Cells(Sat, "C") = s1.[K7]
        s2.Cells(Sat, "D") = s1.[C9]
        s2.Cells(Sat, "E") = s1.Cells(s1.[A65536].End(3).Row, "A")
        s2.Cells(Sat, "F") = s1.Cells(Bul.Row, "H")
    Else
        MsgBox "FATURA Yazısını Bulamadım ........"
    End If
End If
End Sub

 

[noname77]

deneme devam

sevgili hocam
elinize sağlık herşey güzel işliyor fakat her print aldığımda ftt no (k7) +1 artıyor. normalde 3 print ten sonra yani 4. de numaranın yükselmesi lazım.
m1 hücreside de hiç artmıyor. ???
bir de son isteğim olabilir mi? örneğin 15 fatura bilgisi olduğu zaman printten çıkan kağıtta en alttaki bilgi ile ortasında belirgin bir boşluk oluyor. onu hücre gizleden yapabiliyorum ama bir üstad olarak sizin değişik ve kolaylaştırıcı bir fikriniz olabilr mi?

 

[Necdet]

Merhaba,

Bir önceki mesajımı tam olarak okumadınız sanırım. M1 hücresini kaç kere liste alındığını kontrol için kullandım. Bu sizi ilgilendirmiyor, buraya hiç dokunmayın.

N1 hücresinin değeri önemli 1 yada 3 olmalı. 1 ise her defasında, 3 ise 3 defa döküm alındığında fatura numarasını arttırıyor.

B69 Hücresine formül uyguladım, umarım hoşunuza gider.

Aradaki boşluklara gelince, ben hayatımda hiç fatura yazdırmadım :hihoho:

 

[noname77]

tskler

sayın necdet hocam kusura bakmayın ramazan ayı neticesi gerçekten algılamam zayıfladı sizi yorduysam çok özür dilerim ama yardımlarınızdan ötürü size ne kadar tsk etsem az. sağlığınıza duacıyım bundan sonra
ankaraya sevgiler/saygılar

 

[Necdet]

Rica ederim, güle güle kullanınız.

 

[noname77]

artık son

necdet hocam ek li dosyada herşey mükemmel ama "rapor" sayfasının e sütununda bir türlü ft sayısı atmıyor(yazmıyor) diğerleri tam. yine inşallah fırca yemem sizden

 

[Necdet]

Merhaba,

Benim denemelerimde yazıyor ama ufak bir değişiklik yaptım. Fatura altındaki yazıdaki formülü değiştirdim.

 

[noname77]

ellerinize emeğinize sağlık çok güzel olmuş.

saygılarımla

 

[egon77]

Merhaba,

Benim denemelerimde yazıyor ama ufak bir değişiklik yaptım. Fatura altındaki yazıdaki formülü değiştirdim.

Sayın Necdet Hocanın yardımıyla oluşturulan teslim tutanak dosyasında bir takım revize durumlar oluştu. Bu sebepten desteğe ihtiyacım var. Herşeyi sıfırdan düşünürsek:
1.[k7] hücresi beforeprint ile her 2.printte +1 artmalı
2.[m1] hücresi kaçıncı printte olduğumuz göstermeli
( (mesela [k7]=1 [m1]=1
[k7]=1 [m1]=2(burda [k7] 2.printte hemen +1 artmalı)
[k7]=2 [m1]=1....))
3.Rapor sayfasına da her [m1] numarasında o sayfadaki bilgileri kayıt etmeli. Onun da açıklamasını ek' li dosyada gösterdim.
4. En önemlilerinden biri de rapor sayfasında yaptığım formatta [h2]hücresine gelecek bimler.
Desteğiniz için şimdiden teşekkür ederim.