form yazdırma

[masuk500]

merhaba arkadaşlar

matbu formu excel sayfasına uyguladım.daha sonra 200 tane aynı sayfaya bu formdan kopyaladım.bu sayfadaki aynı olan formalrın bir kısmı boş kaldığında sadece dolu olanları yazdırmak istiyorum.bunu nasıl yapabilirim?makro veya kod kullanmak zorunluluğu varmı?sadece excel formulleri ile olabilir mi?

 

[metinozlu]

makro ile yazılması gerekir. formül ile mümkün değil

 

[masuk500]

makroyu nasıl yazabilirim veya makro örneği varsa ekleyebilirmisiniz

 

[masuk500]

merhaba arkadaşlar
ekte örnek dosya ekledim.sayfa koruma şifreside 8630764862 dir
benim yapmak istediğim müstahsil giriş sayfasından veri girişi yaptıktan sonra ilgili sayfaları sayfalardaki formlar doldukça yazdırmak.örneğin bağkurön sayfasında sadece bir matbu form dolmuş ise (buradaki gibi) sadece 1.sayfayı yazdıracağım 5 sayfa dolmuş ise 5. sayfaya kadar yazdıracağım.aynı şekilde bağkur arka vergi ön vergi arka sayfalarınıda bu şekilde yapmak istiyorum nasıl yapabilirim.

 

[masuk500]

arkadaşlar biliyorum forum da çok örnek var ama hangisini nasıl kullanacağımı ve nereye yazacağımı bilmiyorum.yardımcı olursanız sevinirim.

 

[metinozlu]

ben size yardımcı olacağım.lütfen bekleyin

 

[metinozlu]

bağkurön sayfası için kod yazılmıştır.deneyin olunlu sonuç verdi ise diğer sayfalarıda yaparım.

 

[masuk500]

teşekkürler dostum tam istediğim gibi diğer sayfalar için bekliyorum.bide ben office 2007 kullanıyorum.2003 ü 2007 olarak kaydettiğimizde kulanılabilir mi?

 

[metinozlu]

bir problem çıkacağını sanmam,diğer sayfa kodlarını hazırlıyorum simdi

 

[metinozlu]

Sayın masuk500
bağkur arka sayfası formu standat değil, ilk sayfada form başlığı yok bu durum sistematiği bozuyor,kodlama yapamıyorum ,sayfayı düzeltip tekrar gönderin.1. 2 ve 3 diğer sayfalardaki ilk isimlerin birbiri ile hücre aralıkları aynı olmalı

 

[masuk500]

yeni hali ile dosya ektedir.

 

[metinozlu]

BAĞKURARKA sayfası kodları yazıldı.ancak c5 hücresinde veri yok alt hücrelerde veri olduğundan problem olur. c5 hücresine veri gelirse problem çözülür.ayrıca alt satırlarda başvuru hatası olduğu için kod düzgün formüllü satıra kadar yazıldı .(4.sayfaya kadar)
dosya ekte iyi çalşmalar.

 

[masuk500]

sayın metin özlü çok teşekkür ederim sanırım mantığı çözdüm diğer sayfalar için halledebileceğimi sanıyorum.yalnız verdiğiniz uyarı konusunda c5 hücresinde veri yokken ön sayfasındaki veriye göre yazdırılamazmı yani bağkurön sayfasındaki birinci formun ilk verisine göre olmazmı

 

[cem yılmaz]

Dosyada bazı incelemede bulunmak istiyorum ama sayfa koruması var eğer sakıncası yoksa şifreyi söyleyebilirmisiniz veya şifresiz dosya ekleyebilirmisiniz?

 

[metinozlu]

bağkurarka kodunu aşağıdaki kodla değiştirin yada koddaki 15 olan değeri 68 ile değiştirin
Sub Düğme1_Tıklat()
Dim i As Integer
Dim a As Integer
a = 0
For i = 68 To 256 Step 63
If Cells(i, "c").Value = "" Then
a = a + 1
Else

End If
Next i
'MsgBox a
Sheets("BAĞKURARKA").PrintOut From:=1, To:=4 - a, Copies:=1, Collate:=True

End Sub

 

[masuk500]

bu bağkur arkasayfasındaki 2.formun başlangıcı zannedersem öyle değilmi?bunu bağkurön sayfasındaki 1. formun 1. verisini nasıl uygularız?ayrıca copies=1 kodu kopya sayısı değilmi:eğer öyle ise buradan yazdırılacak sayfa sayısı değiştirilebilir.

 

[metinozlu]

doğru olabilir ama üsten itibaren dolu isimleri kontrol edip hangi sayfaları yazdıracağını buluyor. en üstteki isim boş olunca yazdırır ama dolu bir sayfayıda tazdırmaz copies kodu aynı sayfadan kaç adet yazılacağını ifade eder.sayfaları değil
eğer formun bu şekilde ise 4-a kodunu 4-a+1 olarak değiştir.

 

[masuk500]

anladığım kadarı ile buradaki kod birinci formun ilkverisinde değer olup olmadığına bakmadan ikinci sayfaya geçiyor.ama 4-a yı 4-a+1 olarak değiştirirsek düzeliyormu

 

[metinozlu]

denemen lazım

 

[karakis_veli]

Fikir güzel.Ama muhtasar beyanını XML olarak oluşrurup maliye sayfasına göndere bilmeli.Değilse tam sonuç vermeyecektir.Müstahsil makbuzunu düzenledikten sonra bu listeleri oluştura bilmeli.