Taksit Sayısı Kadar Sıralı Senet Dökümü

[zaruri]

Ekte yapmaya başladığım taksit tablosu ve senet dökümü çalışmasında,

Ekte görünen senetten, taksit adedi kadar yazıcıya göndermek istiyorum.
Bu konuda yardım ederseniz sevinirim.

Ayrıca; Tarih sıralamasında, şubat ayı ve 31 li aylar sıralamayı bozmakta,

 

[YUSUF44]

Aşağıdaki makroyla yazdırabilirsiniz:

Sub yaz()
    ActiveWindow.SelectedSheets.PrintOut Copies:=[P3], Collate:=True, _
        IgnorePrintAreas:=False
End Sub

Aylarla ilgili sorunuz örneğin 30 ocaktaki satış için ilk taksit 29 şubat olacaksa C6'ya aşağıdaki formülü yazıp aşağı doğru kopyalayın:

=EĞER(B6="";"";MİN(SERİAY($C$3;B6);(TARİH(YIL($C$3);AY($C$3)+B6;GÜN($C$3)))))

 

[zaruri]

Hocam, bende arayıp duruyordum,
Çok teşekkür ederim.
Her ikisi de güzel çalışıyor.

 

[zaruri]

Senet 1 adet yazdırıyor,
5 adet ve farklı vadelerde (listedeki vadelerde ve tutarlarda)
yazdırılması için ne yapabiliriz?

 

[YUSUF44]

Aşağıdaki gibi deneyin:

Sub yaz()
For i = 1 To [B3]
    [O3] = i
    [R3] = Cells(i + 3, "C")
    [U3] = Cells(i + 3, "D")
    ActiveWindow.SelectedSheets.PrintOut Copies:=[P3], Collate:=True, _
        IgnorePrintAreas:=False
Next
End Sub

 

[zaruri]

Şimdi; Her senedi 5'er adet olmak üzere yazdırıyor.
toplam da 25 adet yazdırıyor.

 

[YUSUF44]

Copies:=[P3]

Kısmında [P3] yerine her senetten kaç adet olacaksa onu yazın

Copies:=1

Gibi

 

[zaruri]

Üstadım; Hayırlı günleriniz olsun.
Senet adetleri sürekli değişiyor.
B3'de yazılı olan senet adeti kadar dökülmesi gerekiyor.
İşlemi nasıl yaptıracağımı kavrayamadım.

 

[YUSUF44]

Makro zaten B3’teki sayı kadar senet hazırlamıyor mu? Ben o şekilde düzenlemiştim.

 

[zaruri]

Üstadım
5'er adet gönderiyor,
Son ekleme ile hata verdi.

 

[Ziynettin]

ActiveWindow.SelectedSheets.PrintOut Copies:=P1, Collate:=True, _
IgnorePrintAreas:=False

satırındaki P1 1 olarak yazın.

Sub yaz()
For i = 1 To [B3]
    [O3] = i
    [R3] = Cells(i + 3, "C")
    [U3] = Cells(i + 3, "D")
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
Next
End Sub

 

[Ziynettin]

Benzer çalışma.

Sub yazdır()
Sheets("Sayfa1").Select
son = Range("B" & Rows.Count).End(3).Row
son1 = Range("B6:B" & son).Find("*", Range("B" & son), xlValues, , xlByRows, xlPrevious).Row
If son1 > 5 Then
    a = Range("B6:D" & son1).Value
    For i = 1 To UBound(a)
        [O3] = a(i, 1)
        [P3] = UBound(a)
        [R3] = a(i, 2)
        [U3] = a(i, 3)
        [U14] = [C3]
        [Q7] = ParaCevir((CDbl(a(i, 3))))
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, _
        Collate:=True, IgnorePrintAreas:=False
    Next i
End If
End Sub

 

[zaruri]

Değerli Üstadlarım.
Önceki çalışmadai P'yi kaldırdım, resimdeki durum oluştu, 1. döküm tarih ve tutar boş, 2. de başlıklar geldi.
1. ve 2. rakamlar 4.ve 5. olarak geldi.

Son durum bu vaziyette.

 

[zaruri]

Konuyla ilgili resim ekte;

 

[YUSUF44]

Dosyayı o haliyle paylaşır mısınız?

 

[zaruri]

Hayırlı Günler, İyi haftalar.
Dosya ekte.
İlginize teşekkür eder, iyi çalışmalar dilerim.

 

[zaruri]

Değerli Üstadlarım,
İlginize teşekkür ederim.
Formda bir zamanlar bulduğum zarf dökümünü senet yazılımına uyarladım ve işimi gördü.

Emeği geçenlere teşekkür ederim.
İyi ki, varsınız.

 

[zaruri]

Değeli Üstatlar;

Salgın öncesi Sayenizde kullandığımız formül ağırlıklı çalışmaya yeni bir soluk getirmek istiyoruz.
Sizlerden ricam, yardımlarınız ile biraz aşama kaydetmek istiyoruz.

yeni düşüncemiz;
1 taksit bedeli ile taksit sayısını çarpıp toplam tutarı gördükten sonra yan tabloya aktarmak.
Geri kalan çalışmaların tamamı yapılmış olarak mevcut.
formüllerle kullandığımız çalışmayı userform ile biraz daha rahat bir çalışma ortamına çekmek istiyoruz.

İlgi ve alakalarınızı bekler. İyi çalışmalar dileriz.

 

[ÖmerFaruk]

Böyle demişsiniz.
Geri kalan çalışmaların tamamı yapılmış olarak mevcut.

Formunuza 1.Taksit bedeline ait bir değer girilemiyor.
Diğer textboxlara hiç bakmadım.

Formunuzu bir kontrol edin. Neler tamam neler eksik bir kez daha gözden geçirirseniz güzel olacak.

 

[zaruri]

Değerli Hocam, Bu çalışmada sadece TextBox_TT1 ile TextBox_TT14
arasına gelecek tutarların "alt toplamının" TextBox26 ya gelmesi kaldı.

Bir toplam TextBox85 de var, fakat, bu alt toplamın TextBox26' ya gelmesi,
işlemin sağlaması olsun diye düşündük.
şimdi TextBox ların alt toplamını excel.web.tr de arıyorum,
Biraz yol kat ettim fakat yardımcı olursanız bizi rahatlatmış olursunuz.

İlginize şimdiden teşekkür ederim.