• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

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

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
I

ilkay94

Yeni Üye
Katılım
27 Nis 2022
Mesajlar
139
Aldığı beğeni
9
Excel V
Office 2016 TR
Konu Sahibi
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,
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Çözüm
Adnan
ilkay94' Alıntı:
Yazdir sayfasina recete ıd ve kayit id kısımlarını iptal edemedim onlari getirmemesi nasil sağlanabilir.
Genişletmek için tıkla...
ilkay94' Alıntı:
Ancak Reçeye ait üretim kayıtlarını getirirken A sütunundan itibaren değil C sütunundan itibaren getiriyor,
Genişletmek için tıkla...
çünkü A ve B sütunlarında iptalini istediğiniz kayıtlar var.
ilkay94' Alıntı:
Çıktı alırken kaç adet istiyorsunuz diyip sordurma şansımız var mıdır,
Genişletmek için tıkla...
yapıldı
ilkay94' Alıntı:
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,
Genişletmek için tıkla...
yapıldı
Tarihe göre sırala Oylara göre sırala
Örneğiniz Ekte
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Konu Sahibi
ilkay94' Alıntı:
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.
Genişletmek için tıkla...
Yazdir sayfasina recete ıd ve kayit id kısımlarını iptal edemedim onlari getirmemesi nasil sağlanabilir.
 
Olumlu oy 0 Negatif oyla
not eklendi yazdırma printpreview eklendi id silindi
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Son düzenleme:
Olumlu oy 0 Negatif oyla
Konu Sahibi
Adnan' Alıntı:
not eklendi yazdırma printpreview eklendi id silindi
Genişletmek için tıkla...
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.
 
Olumlu oy 0 Negatif oyla
ilkay94' Alıntı:
Yazdir sayfasina recete ıd ve kayit id kısımlarını iptal edemedim onlari getirmemesi nasil sağlanabilir.
Genişletmek için tıkla...
ilkay94' Alıntı:
Ancak Reçeye ait üretim kayıtlarını getirirken A sütunundan itibaren değil C sütunundan itibaren getiriyor,
Genişletmek için tıkla...
çünkü A ve B sütunlarında iptalini istediğiniz kayıtlar var.
ilkay94' Alıntı:
Çıktı alırken kaç adet istiyorsunuz diyip sordurma şansımız var mıdır,
Genişletmek için tıkla...
yapıldı
ilkay94' Alıntı:
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,
Genişletmek için tıkla...
yapıldı
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 1 Negatif oyla
Çözüm
Konu Sahibi
Adnan' Alıntı:
çünkü A ve B sütunlarında iptalini istediğiniz kayıtlar var.

yapıldı

yapıldı
Genişletmek için tıkla...
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)
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Çıktı almak isterken cancel dediğimde On Error Resume Next olmasına rağmen debug çıkıyor bunu önleyebilir miyiz.
 
Olumlu oy 0 Negatif oyla
YAzı boyutlarını sayfaya sığdırmak için otomatik küçültür
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Konu Sahibi
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.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
ilkay94' Alıntı:
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.
Genişletmek için tıkla...
Dosyayı ekledim.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Tırnak işaretli satırları silebilirsiniz. kacadet yazısnın alt satırına If kacadet = "" Then kacadet = 1 yapıştırın
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Adnan' Alıntı:
Tırnak işaretli satırları silebilirsiniz. kacadet yazısnın alt satırına If kacadet = "" Then kacadet = 1 yapıştırın
Genişletmek için tıkla...
Ş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.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
süzme kısımlarına bakmadım. Çok sayıda kayıt ekleyerek dosyanızı ekleyin
 
Olumlu oy 0 Negatif oyla
bunu deneyin
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Konu Sahibi
Adnan' Alıntı:
bunu deneyin
Genişletmek için tıkla...
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.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
bunu deneyin deki örneği çalıştırmamış gibi görünüyorsunuz. 17 nolu mesajdaki halini indirip deneyin
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst