Çözüldü reçete programı yazdırma alanı

[ilkay94]

Merhaba Arkadaşlar,

Dün zafer bey'in de yardımı ile birşeyler yapmıştık,

Ancak yazdır' a basınca reçete ıd sini bulup yazdır sayfasında ki gerekli alanlara da vba ile atmasını sağlayabilir miyiz,

Ben düşeyara ile yapmıştım ancak birşeyler oldu getirmiyor,

Reçete detay kayıtlarını vba getiriyor ancak reçeteye ait bilgileride altkatreçete işlemlerinden yazdır kısmında ki hücrelere getirmek mümkün müdür,

Dosya ektedir,

 

[Adnan]

Örneğiniz Ekte

 

[ilkay94]

Örneğiniz Ekte

ALLAH razı olsun,

Açıklama kısmına da not yazan yeri aktarabilir miyiz,

En son bize kaç adet yazdırmak istiyorsunuz diyip evet hayır diye onay aldırtabilir miyiz.

 

[ilkay94]

ALLAH razı olsun,

Açıklama kısmına da not yazan yeri aktarabilir miyiz,

En son bize kaç adet yazdırmak istiyorsunuz diyip evet hayır diye onay aldırtabilir miyiz.

Yazdir sayfasina recete ıd ve kayit id kısımlarını iptal edemedim onlari getirmemesi nasil sağlanabilir.

 

[Adnan]

not eklendi yazdırma printpreview eklendi id silindi

 

[ilkay94]

not eklendi yazdırma printpreview eklendi id silindi

Yazdır sayfasında ki Not kısmına birşey getiriyor sanırım,

Reçete bilgi kısmını yazıyor,

Ancak Reçeye ait üretim kayıtlarını getirirken A sütunundan itibaren değil C sütunundan itibaren getiriyor,

Çıktı alırken kaç adet istiyorsunuz diyip sordurma şansımız var mıdır,

Reçetenin en alt kısmına son satırdan sonra ki satıra Bu bir boyama reçetesidir diye otomatik yazdırmak mümkün müdür,

Çok şey istedim biliyorum birçok şey tam istediğim gibi olmuş, elinize emeğinize sağlık.

 

[Adnan]

Yazdir sayfasina recete ıd ve kayit id kısımlarını iptal edemedim onlari getirmemesi nasil sağlanabilir.

Ancak Reçeye ait üretim kayıtlarını getirirken A sütunundan itibaren değil C sütunundan itibaren getiriyor,

çünkü A ve B sütunlarında iptalini istediğiniz kayıtlar var.

Çıktı alırken kaç adet istiyorsunuz diyip sordurma şansımız var mıdır,

yapıldı

Reçetenin en alt kısmına son satırdan sonra ki satıra Bu bir boyama reçetesidir diye otomatik yazdırmak mümkün müdür,

yapıldı

 

[ilkay94]

çünkü A ve B sütunlarında iptalini istediğiniz kayıtlar var.

yapıldı

yapıldı

Herşey tamamen istediğim gibi olmuş çok teşekkür ederim,

Sadece altkatüretimler den ID ye göre süzüp getirirken orada ki biçim ile değil sadece değer olarak getirmeli çünkü yazdır sayfasında yazı büyüklüğü 24 ise mesela şuan 11 olarak getiriyor,

Altkatüretimlerden başlıklarıda getiriyor bunu nasıl önleyebiliriz,

Bu kodu ;s1.Range("C" & satır & ": O" & satır).Copy s2.Cells(satır + 5, 1),

Böyle yaptım ama yinede başlıkları getiriyor; s1.Range("C2" & satır & ": O" & satır).Copy s2.Cells(satır + 5, 1)

 

[ilkay94]

Çıktı almak isterken cancel dediğimde On Error Resume Next olmasına rağmen debug çıkıyor bunu önleyebilir miyiz.

 

[Adnan]

YAzı boyutlarını sayfaya sığdırmak için otomatik küçültür

 

[ilkay94]

Merhaba,

Yazdır dedikten sonra tamam diyip adet sorduğu kısımda cancel dersek eğer type mismatch diyor,

Bu kısımda tırnak işaretleri var kaldırmam gerekli mi kod şuan tırnak işaretinden dolayı çalışmıyor sanırım,

' For Each BUL In s1.Range("A2:A" & s1.Range("A" & Rows.Count).End(3).Row)
' If BUL.Value = TextBox1.Text Then
' satır = satır + 1
' If satır >= 2 Then
' s1.Range("c" & satır & ": o" & satır).Copy s2.Cells(satır + 4, 1)
' End If
' End If
' Next BUL

Şahane olmuş elinize sağlık tebrik ederim çok hızlı ve çözüm olarak dönüş sağladınız.

 

[ilkay94]

Merhaba,

Yazdır dedikten sonra tamam diyip adet sorduğu kısımda cancel dersek eğer type mismatch diyor,

Bu kısımda tırnak işaretleri var kaldırmam gerekli mi kod şuan tırnak işaretinden dolayı çalışmıyor sanırım,

' For Each BUL In s1.Range("A2:A" & s1.Range("A" & Rows.Count).End(3).Row)
' If BUL.Value = TextBox1.Text Then
' satır = satır + 1
' If satır >= 2 Then
' s1.Range("c" & satır & ": o" & satır).Copy s2.Cells(satır + 4, 1)
' End If
' End If
' Next BUL

Şahane olmuş elinize sağlık tebrik ederim çok hızlı ve çözüm olarak dönüş sağladınız.

Dosyayı ekledim.

 

[Adnan]

Tırnak işaretli satırları silebilirsiniz. kacadet yazısnın alt satırına If kacadet = "" Then kacadet = 1 yapıştırın

 

[ilkay94]

Tırnak işaretli satırları silebilirsiniz. kacadet yazısnın alt satırına If kacadet = "" Then kacadet = 1 yapıştırın

Herşey mükemmel çok teşekkür ederim,

Son 1 iyilik isteyeceğim sayfayı 1 sayfaya sığdır kodu ekleyebilir miyiz.

 

[ilkay94]

Tırnak işaretli satırları silebilirsiniz. kacadet yazısnın alt satırına If kacadet = "" Then kacadet = 1 yapıştırın

Şuan test ettim de Reçete kayıtta ki ID ye göre süzüp Yazdır sayfasına atmıyor tüm üretimleri alıyor,

ID ye göre süzüp atması gerekiyordu.

 

[Adnan]

süzme kısımlarına bakmadım. Çok sayıda kayıt ekleyerek dosyanızı ekleyin

 

[Adnan]

bunu deneyin

 

[ilkay94]

bunu deneyin

ALTKATTREÇETEEKRANI formunda TextBox1 de ki ID no sunu,

ALTKATÜRETİMLER sayfasından bulup, ALTKATTREÇETEEKRANI formunda TextBox1 de yazan Id numasına ait tüm kayıtları, ALTKATTREÇETEEKRANI formunda YAZDIR butonuna basınca, YAZDIR sayfasına aktarması gerekiyor,

Ancak şuan TextBox1 de ki ID ye göre değil,

ALTKATÜRETİMLER sayfasında ki tüm kayıtları YAZDIR sayfasına aktarıyor.

 

[Adnan]

bunu deneyin deki örneği çalıştırmamış gibi görünüyorsunuz. 17 nolu mesajdaki halini indirip deneyin

 

[ilkay94]

bunu deneyin deki örneği çalıştırmamış gibi görünüyorsunuz. 17 nolu mesajdaki halini indirip deneyin

Tamamdır Adnan Bey,

Elinize sağlık hakkınızı helal edin teşekkür ederim.