Aktarılan Verilerin Başka Sayfada Çıktısını Almak

[mcexrem]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Dosyamda STOK sayfasının F ve G sütunlarına girdiğim verileri ilgili sayfaların seçimini yaparak KAYDET butonu ile veri aktarımı yapmaktayım.
Sizden ricam aktarılan bu verileri başka bir sayfada kayıt yapmadan çıktı almak istiyorum. Yani ALINDI kaydı yapıldı ise ALN sayfasının 12.satırına aktarılmasını, VERİLDİ kaydı yapıldı ise VER sayfasının 12. satırına aktarıp ÇIKTI vermesini istiyorum.
Yardımlarınız için şimdiden teşekkür eder saygılar sunarım.

 

Kopyalama modunun koddan dolayı iptal olması

Çok Sütunlu Alfabetik Sıralama Kodu Revize

[Ömer BARAN]

aktarılan bu verileri başka bir sayfada kayıt yapmadan çıktı almak istiyorum

Sn. @mc_exrem

Alıntıladığım cümledeki "kayıt yapmadan" kısmını anlayamadım.
Neticede ilgili firmanın sayfasına kayıt yapılacak mı, yapılmayacak mı?

Siz ilgili firma sayfasına kayıt yapılmasının yanısıra, duruma göre ALN veya VER sayfasına da aktarılıp
o sayfasının çıktısını almak mı istiyorsunuz?

.

 

[mcexrem]

Sn. @mc_exrem

Alıntıladığım cümledeki "kayıt yapmadan" kısmını anlayamadım.
Neticede ilgili firmanın sayfasına kayıt yapılacak mı, yapılmayacak mı?

Siz ilgili firma sayfasına kayıt yapılmasının yanısıra, duruma göre ALN veya VER sayfasına da aktarılıp
o sayfasının çıktısını almak mı istiyorsunuz?

.

merhabalar Sn. Ömer Baran,
örneğin YILDIRIM'a verildi kaydı kendi sayfasına kayıt yapılacak eskisi gibi ama aktarılan veriler ALN ve VER sayfasına kayıt yapmayacak yani o sayfanın şablonunda yazılacak, kaydedilmeden silinecek.
Kısaca özetlemek gerekirse ALN ve VER sayfaları sadece çıktı almak için sayfanın şablonu kullanılacak, kayıt sadece firmanın kendi sayfasında tutulacak.

 

[Ömer BARAN]

Sn. @mc_exrem

Yeşil olan satırları gösterilen yerlere ekleyin.

Görüntülemek için giriş yapmanız gerekmektedir.
(21 satır)

 

[mcexrem]

Sn. Ömer BARAN

ilginiz ve yardımınız için çok teşekkür ederim. Problemsiz çalıştı kodlar.
Çıktı aldığım sayfada firmayı belirtmeyi atlamışım. Sizden ricam çıktı aldığım ALN ve VER sayfalarının B7 hücresine sayfa ismini yazdırmamız mümkün mü acaba?
Yani kayıt YILDIRIM olarak kaydedildiyse sayfa isminin ilgili hücreye aktarılması şeklinde.

 

[Ömer BARAN]

@mc_exrem

Önceki cevabımı güncelledim.
Sayfayı yenileyerek, kodun yeni halindeki YEŞİL kısımları tekrar gözden geçirip,
düzeltmeleri kendi dosyanıza uygulayın.

.

 

[mcexrem]

@mc_exrem

Önceki cevabımı güncelledim.
Sayfayı yenileyerek, kodun yeni halindeki YEŞİL kısımları tekrar gözden geçirip,
düzeltmeleri kendi dosyanıza uygulayın.

.

Güncelleme sonrası 4 sayfa çıktı verdi. Sayfa adını da yazmadı. Kodları sabahtan kontrol edeceğim. Teşekkürler

 

[mcexrem]

@mc_exrem

Önceki cevabımı güncelledim.
Sayfayı yenileyerek, kodun yeni halindeki YEŞİL kısımları tekrar gözden geçirip,
düzeltmeleri kendi dosyanıza uygulayın.

.

Hocam Merhabala,
Kodları kontrol ettim.
Yazdıklarınızı aynen Uyguladım ama sayfa adını B7 hücresine yazmadı ve 4 sayfa çıktı verdi? Yardımcı olabilir misiniz

 

[Ömer BARAN]

Bilgisayarda değilim.
XDs.[B7] = shf.Name kısmını, ......PrintOut satırının hemen üstüne ekleyerek bir deneyin.

Sayfa adeti ayrı bir mevzu ve YAZDIRMA ALANI ayarıyla ilgili. Cevaplarımla, sayfa adeti arasında bir ilişki yok.

 

[mcexrem]

Bilgisayarda değilim.
XDs.[B7] = shf.Name kısmını, ......PrintOut satırının hemen üstüne ekleyerek bir deneyin.

Sayfa adeti ayrı bir mevzu ve YAZDIRMA ALANI ayarıyla ilgili. Cevaplarımla, sayfa adeti arasında bir ilişki yok.

Günaydınlar

bahsettiğiniz kısım iki satırdan mı oluşuyor? o şekilde kodu bulamadım.

 

[mcexrem]

Bilgisayarda değilim.
XDs.[B7] = shf.Name kısmını, ......PrintOut satırının hemen üstüne ekleyerek bir deneyin.

Sayfa adeti ayrı bir mevzu ve YAZDIRMA ALANI ayarıyla ilgili. Cevaplarımla, sayfa adeti arasında bir ilişki yok.

Görüntülemek için giriş yapmanız gerekmektedir.
(45 satır)

mevcut kod bu şekilde. sayfa tasarımını düzelttim bu sefer de aynı sayfadan 2 adet çıktı veriyor

 

[Ömer BARAN]

Yine bilgisayarda değilim.
Görebildiğim kadarıyla aynı kod satırlarını 2 kez yazmışsınız.
Alttkaki XDs.PrintOut satırını hemen altındaki XDs.Range("...... satırıyla birlikte SİLİN.

Neticede kodun bütününün şöyle olması lazım.
Sadece PrintPreview kısmını PrintOut olarak değiştirmeniz lazım (denerken yazıcı devreye girmesin diye baskı önizleme olarak yazdım)

Görüntülemek için giriş yapmanız gerekmektedir.
(43 satır)

 

[mcexrem]

Yine bilgisayarda değilim.
Görebildiğim kadarıyla aynı kod satırlarını 2 kez yazmışsınız.
Alttkaki XDs.PrintOut satırını hemen altındaki XDs.Range("...... satırıyla birlikte SİLİN.

Neticede kodun bütününün şöyle olması lazım.
Sadece PrintPreview kısmını PrintOut olarak değiştirmeniz lazım (denerken yazıcı devreye girmesin diye baskı önizleme olarak yazdım)

Görüntülemek için giriş yapmanız gerekmektedir.
(43 satır)

her şey için çok teşekkür ederim hocam ama yazdırırken ilk yazdığınız koddaki gibi baskı ön izleme seçeneği çıkmadan direkt yazdırması mümkün mü acaba?

 

[Ömer BARAN]

Belirttim, dikkat etmediniz galiba.
.PrintPreview kısmını .PrintOut diye değiştirin.

 

[mcexrem]

Belirttim, dikkat etmediniz galiba.
.PrintPreview kısmını .PrintOut diye değiştirin.

Tüm emeğiniz için çok teşekkür ederim. Ellerinize sağlık. İyi akşamlar diliyorum.