Yemek Listesi

[cems]

Sayın Halit3 ,

Soruyu sahiplenmek gibi olmasın ama son derece ilgimi çeken bir konu olduğu için devam ettiriyor olsam da ;

Dosyanızda Şubat ayını ayarladım , ilk anda günü hata ile 31 verdim , typmismatch uyarısı verdi . Tarihi düşürdüm, tatilleri yazdım, listeleme tuşlarından 1 ve 3 ü iki kere tıkladım ve liste doldu. Takvimi aktar tuşunda " başlangıç tarihi bitiş tarihinden büyük olamaz " uyarısı ile tabloya aktarma durdu.

Bu şekiilde oluşmuş tabloyu örnekliyorum.

Sayın YUSUF44 belki benim 2010 versiyonumda bir direnç vardır, tekrar bu sabah salim kafa ile denedim aynı tepkiyi verdi.

 

[halit3]

20 nolu mesajdaki dosyayı güncelledim

bitiş tarihi sutunun değiştirmişsiniz.

bitis = CDate(Worksheets(ActiveSheet.Name).Cells(1, [COLOR="Red"]30[/COLOR]).Value)

kırmızı yer 11 olmalı K1 hücresi 11 olmalı siz AD1 hücre yapmışsınız boş olduğu için elbette küçük görecektir.

 

[halit3]

Bu dosyada farklı yıllık olarak yapıyor.

 

[cems]

Sayın Halit3,

Dediğiniz şekilde kontrol ettim , bir algı da Tatil kelimelerine göre haftasonunu boş bıraktığını düşünmek oldu ama , kodlara bakınca öyle olmadığını gördüm.

Şu an bir firma mutfağı ya da başka bir birim için son derece hızlı çalışan ve tabloya kadar hazırlayan bir sonuç oldu.

Sayın YUSUF44 ,

Sizin verdiğiniz birinci kod bloğu da "bana göre " belki uyarıya göre düzeltilmeli ama sorunsuz çalışıyor, sonucu en azından veriyor.

Umarım soran bir de kalori hesabına göre tablo istemez Elinize sağlık , yeri gelir kullanılabilir bir arşiv mücevheri bir dosya oldu.

Üstüne kaymaklı kadayıf olarak , yıllık liste çıkaran dosyanız da geldi , döküm oluşunca tabloya geçerek ay değiştirmek yetiyor .Artık bunun üstüne ciddi malzeme bütçesi bile yapılabilir . Soran adına , gerçekten ellerinize aklınıza sağlık

 

[uKiGS]

Çok değerli hocalarım,

Göstermiş olduğunuz yoğun ilgi için çok teşekkür ederim. Gerçekten yapmış olduğunuz emeklerin karşılığını ödeyemem. Beni çok büyük bir yükten kurtardınız. Tekrardan ALLAH razı olsun emeğinize aklınıza sağlık. Hepinize ayrı ayrı teşekkür ederim.

Saygılarımla

 

[uKiGS]

Sayın halit hocam,

Şimdi yıllık olarak denediğim de listede Çorba Ana Yemek 1 ve Ana Yemek 2 satırları olduğu için onlarıda aylık Menüye ekliyor. İsimlerini değiştirdiğim zaman aktarma yapmıyor. Sorun benden kaynaklımı acaba ?

 

[halit3]

Sayın halit hocam,

Şimdi yıllık olarak denediğim de listede Çorba Ana Yemek 1 ve Ana Yemek 2 satırları olduğu için onlarıda aylık Menüye ekliyor. İsimlerini değiştirdiğim zaman aktarma yapmıyor. Sorun benden kaynaklımı acaba ?

Bu örnek olduğu için başlıklarda dahil edilmiştir 2. satırı silebilirsiniz.

 

[DMR 7]

Sayın YUSUF44' ün verdiği kodlar tam da bu işi yapıyor , hafta içinde tekrar eden yemek yok ve bir aylık listeyi çıkarıyor.

Tuş hemen tablonun yanında , öncelikle dosyayı farklı kaydet esnasında " makro kaydedilebilir" türe çevirmeniz ve kodları bir tuş nesnesinin altına yerleştirmeniz yeterdi.

Bu şekilde hazırlanmış dosya ekte . Gerisi sizin yemek listesini uzatmanıza bağlı .



Sayın YUSUF44 3 kod da bende sorunsuz çalıştı ve hafta içinde hiç birinde mükerrer çıkarmadı. Sayenizde liste değil sanki tabaklar uçuştu ,bu saatte acıktığımı hatırladım

Sayın Cem, dosya tc gibi bir siteye yüklemeniz mümkün müdür?

 

[cems]

Sayın Cem, dosya tc gibi bir siteye yüklemeniz mümkün müdür?

Yazılımcılarının izni ile ;

http://www.filebig.net/files/WvZVDYEjiF

Zip içinde sorudaki bütün cevapları yazılımcısının ismi ile bulabilirsiniz.

 

[DMR 7]

Yazılımcılarının izni ile ;

http://www.filebig.net/files/WvZVDYEjiF

Zip içinde sorudaki bütün cevapları yazılımcısının ismi ile bulabilirsiniz.

çok teşekkür ederim, yazanlara da size de

 

[halit3]

Ekli dosyada iki adet veri sayfası var birbirinden farkı yemek listesinin kaç kere çıktığına dair

 

[cems]

Mücevherane bilgiler gelmeye devam ediyor Ortaya ne çıktığı kadar kodların mantığı da ayrı bir incelenmesi şart olan hologram ya da mozaik dokumalar gibi ...

Elinize sağlık Sayın Halit3

 

[DMR 7]

birkaç ay evvel, en fazla ürün türü seçtirmeyle ilgili bir kod yazmıştı sayın korhan ayhan.

yemek listesiyle bir ilişkisi yok ancak, mantıkta belki farklı yerlere gitmeye yarayabilir. benim listemde maximum çeşit amaçlanıyordu ve pahalılığa göre bir seçim yapılıyordu.

belki burada yemek listesi için kullanılabilir. en çok çıkması istenilen yemeklere daha fazla puan yazılıp seçtirme yapılabilir. ve rassal olarak seçilmeye göre artısı, aynı yemeğin tekrar yenme frekansı uzamış olur. bıkkınlık vermez.

ilgili konu linki : http://www.excel.web.tr/f48/en-fazla-run-turu-sectirme-t166754/sayfa4.html#post913876

hatta belki seçim yaptırılacak yemeklerin minimum kalorisi şundan aşağı olmasın gibi bir şart bile koyulabilir vs.

kodlardan çok anlamıyorum ama mantıksal olarak olabileceğini düşünüyorum.

bayiiler yerine yemek çeşitleri yazılabilir. ve kaç yemek seçtirilmesi gerektiği zaten en başta soruluyor, değişken olarak.

bu dediklerimin hiç biri olmasa da belki kodların bir kısmı yardımcı olabilir.

 

[Tevfik_Kursun]

Merhaba Sayın Halit3 Hocam,
Malum yatılı okullarda haftada 7 gün yemek çıkar. Bunu listeyi haftada 7 güne çıkarmak size çok zahmet değilse 7 güne çıkartır mısınız lütfen.
Saygılarımla

 

[halit3]

Takvim Aktar komut düğmesinin çalıştırdığı makroda bu bölümü bulun

Dim M As Date
For i = 0 To bitis - baslangic
[COLOR="Blue"]M = CDate(Format(hucre + i, "dd.mm.yyyy"))[/COLOR]

[COLOR="Red"]yer = Format(CDate(baslangic) + i, "dddd")
If yer = "Cumartesi" Or yer = "Pazar" Then
Else[/COLOR]
Worksheets(ActiveSheet.Name).Cells(sat1, sut + 3).Value = Format(CDate(baslangic) + i, "DD.MM.YYYY.dddd")

[COLOR="Blue"]If "01.01" = Format((M), "dd/mm") Or "23.04" = Format((M), "dd/mm") Or "01.05" = Format((M), "dd/mm") Or "19.05" = Format((M), "dd/mm") _
Or "30.08" = Format((M), "dd/mm") Or "28.10" = Format((M), "dd/mm") Or "29.10" = Format((M), "dd/mm") Then
Worksheets(ActiveSheet.Name).Cells(sat1, sut + 2).Value = "Tatil"
End If[/COLOR]


sat1 = sat1 + 1
[COLOR="red"]End If[/COLOR]

Kırmızı yerleri silin

eğer bayram günleride yemek çıkacaksa mavi bölümü silin

 

[Tevfik_Kursun]

İlginize teşekkür ederim
Saygılarımla

Not: Userform resize daki hata mesajına fırsat bulunca bakarsınız değil mi? Teşekkür ederim

 

[halit3]

İlginize teşekkür ederim
Saygılarımla

Not: Userform resize daki hata mesajına fırsat bulunca bakarsınız değil mi? Teşekkür ederim

Bu konu başlığında eklediğim bir userform yok

 

[Tevfik_Kursun]

Teşekkür ederim Halit3 hocam

 

[sunset07]

Merhaba,
Haftada 6 gün yemek çıkacak şekilde tabloyu düzenleyip excel ekleye bilir misiniz ?