• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Talep Formu

  • Konbuyu başlatan Konbuyu başlatan 5353
  • Başlangıç tarihi Başlangıç tarihi
Katılım
20 Ocak 2005
Mesajlar
525
Excel Vers. ve Dili
Excel 2007 Türkçe
Ekteki dosyada talep formu var. İsteğim kişi sicil numaraya göre geliyor. Kişinin talep ettiği kilosu gramajı cinsi ne göre TARİH baz alınarak hangi ayda ise o ay sayfasına İŞLE butonuna basılınca kaydetsin. 2018 bütün aylar bu şekilde olsun.. dosyayı incelerseniz sevinirim. şimdiden teşekkürler.
 

Ekli dosyalar

Güncel

İstediğimi açıklamalı olarak düzenleyerek, dosyayı güncelledim.
 

Ekli dosyalar

Merhaba;
İlk mesajınızdaki örneği kullanarak bir uygulama hazırladım.
(ikinci örneğinizi uygulamayı eklemek için girdiğimde gördüm)
Eki inceleyin/deneyin.
İyi çalışmalar.
 

Ekli dosyalar

Merhaba;
İlk mesajınızdaki örneği kullanarak bir uygulama hazırladım.
(ikinci örneğinizi uygulamayı eklemek için girdiğimde gördüm)
Eki inceleyin/deneyin.
İyi çalışmalar.

Tam umudumu yitirirken ilaç oldunuz. Çok teşekkür ederim.
Açılır liste doğrulamada kişi fazla ekledim satır sayısını arttırmayı deniyeceğim.
 
Çok güzel olmuş, ilerde söyle bir sorunla karşılaşabilirim. Ocak ayı bitince, Şubat ayı olarak bir sayfa açmasını test etmek için ÇAY TALEBİ sayfasındaki tarihleri ileri tarihe aldım...KAYDET dediğimde Şubat ayı diye yeni bir sayfa oluşmadı. Bir de çay fiyatları değişiyor ilerde ki Aylarda Tarihlerde bir zam olduğunda KAYDET dediğimde eskiden alınmış icmalde bir değişiklik yapmasın. Örneğin Ocak ayı kesin sonuca bağlandığında bir TIKLAMA İşaret bir onay işareti gibi sayfayı kilitlesin değiştirmesin. Ocak ayı sayfası sabit orada kalsın.
Makro içindeki
For i = 1 To Worksheets.Count
If Worksheets(i).Name = "ÇAY TALEBİ" Then GoTo pass 'yazılan sayfa pas geçiliyor
If Worksheets(i).Name = "data" Then GoTo pass 'yazılan sayfa pas geçiliyor
If Worksheets(i).Name = "sabit" Then GoTo pass 'yazılan sayfa pas geçiliyor
If Worksheets(i).Name = "şablon" Then GoTo pass 'yazılan sayfa pas geçiliyor
If Worksheets(i).Name = "Ocak" Then GoTo pass 'yazılan sayfa pas geçiliyor

Ocak silmiyor tama fakat yeni bir Şubat oluşumunda sorun oldu.
Bütün bunları yapmak zor olur mu ? ustad.
 
Merhaba;
Sayfadaki açıklamamda belirttiğim gibi;

"Sicil,adsoyad,tarih,kilo,cinsi,gramaj,kdv hariç fiyat ve tutar verilerinin bileşiminden kontrol verisi oluşturuldu. Tablodaki veri bileşimi daha önce kaydedildiyse kayıt yapmaz. "Kayıt yapılacak veri YOK" uyarısı verir. Yani tamamı birebir aynı kaydı 2. kez yapamazsınız."

Mükerrer kayıt 8 değişken bileşimine göre engellendi.
Manuel olarak gidip data sayfasına yazmazsanız butonla bunu yapamazsınız.

Ayrıca ÇAY TALEBİ sayfasında istenilen sayfayı şifreli kayıt ile ilgili bir buton oluşturdum. Böylece aylık yada haftalık şifreli yedekler alarak (data yada ay sayfaları) ikinci bir yedekleme oluşturmuş olursunuz.
(örn: data sayfasını yedeklersiniz. Diyelim prog dosyası yani bu dosya silindi. Dosyayı yeniden oluşturur , yedek data sayfasının şifresini açarak bu dosyada data sayfasına yerleştirirseniz hiçbir kayıp yaşamadan kaldığınız yerden devam edersiniz.

NOT: YIL ile ilgili herhangi bir sorgulama yapmadığım için Bu dosyayı YILLIK olarak kullanmalısınız.

İyi çalışmalar.
 

Ekli dosyalar

Ne kadar teşekkür etsem azdır. İyiki varsınız.
 
Geri
Üst