Devreden Bakİyelİ DÖkÜman Aldirmak

[taseraydin]

DEĞERLİ ÜSTAD ARKADAŞLAR

Sayfadakİ Verİlerİn
Bellİ Bİr Formda HazirlanmiŞ Şablona
Bİrden Fazla Sayfalarda
Devreden Bakİyelİ DÖkÜman Aldirmak

YARDIMLARINIZ İÇİN ŞİMDİDEN TEŞEKÜRLER

 

[taseraydin]

Yardim Edebİlecek Muhakkak Bİr ArkadaŞ Vardir Emİnİm

 

[musculus]

İstediğin şeyi biraz daha açabilirmisin ?

 

[taseraydin]

şöyle izah edeyim
hazırlamış olduğum sayfada yüz satırdan fazla veriler var
bu verileri
hazırlamış olduğum elli satırlı şablona aktararak sayfa sayfa yazdırmak istiyorum fakat her sayfada devreden bakıye ile devretmesi gerekiyor

devretmeden sayfa sayfa yazdıran macro aşağıdaki gibi ancak devreden bakiyeli olması gerekiyor

Private Sub CommandButton1_Click()
Set s1 = Sheets("KAYIT")
Set s2 = Sheets("LISTE")
t = s1.[a65536].End(3).Row - 1
k = Application.WorksheetFunction.RoundUp(t / 50, 0)
Set alan2 = s2.Range("a4:e55")
For a = 1 To k
Set alan1 = s1.Range(s1.Cells((((a - 1) * 50) + 2), 1), (s1.Cells((((a - 1) * 50) + 51), 5)))
alan2.Value = alan1.Value
s2.PrintOut
Next
End Sub

 

[taseraydin]

değerli arkadaşlar
şu konuya bir el atın lütfen
Sevgiler,Saygılar

 

[Ferhat Pazarçevirdi]

Verilerinizde tutarsızlıklar var.

Özellikle "Net Tutar" sütununda metin formatlı sayılar var ve bu sayılar normal formül kullanımını geçersiz kılıyor.

Örneğin "Liste" sayfasında "C55" hücresine yazdığınız "=Topla(C5:C54)" yanlış sonuç döndürüyor. Bunu "=TOPLA(SAYIYAÇEVİR(C5:C54))" dizi formülü ile değiştirdim.

Ya verilerinizi tutarlı hale getirin (sayı gibi görünen metinleri sayıya çevirin) ya da dizi formülleri ile düzenlemeler yoluna gidin.

Ekteki dosyayı inceleyiniz. Makro kullanılmamıştır. Değer değiştiricisi ile sayfa yönetilmektedir

NOT : Genel Formül hataları hakkında Microsoft'un sitesindeki bu linke bakınız.