Excel Makro-VBA yazmayı bilen varmı acil ?

Yazdırılabilir Görünüm

08.December.2013, 17:30
OmerFaruk

Excel Makro-VBA yazmayı bilen varmı acil ?

Herkese iyi akşamlar :)
Ödev için şu formülü VBA şeklinde yazmam lazım.
Excelden anlayan varsa yardımcı olabilirmi acaba :/
Her şekilde ödeşebiliriz yeterki olsun :((

excel dosyası linkte mevcut.
Dosya Yükle - Dosya Upload

formül de şu şekilde :/

Kod:

=EĞER(VE(B2="";C2="");"";EĞERHATA(EĞER(TARİH(YIL(C2);AY(C2);GÜN(C2))=TARİH(YIL(B2);AY(B2);GÜN(B2));ZAMAN(SAAT(B2);DAKİKA(B2);SANİYE(B2))-ZAMAN(SAAT(C2);DAKİKA(C2);SANİYE(C2));EĞER(ZAMAN(SAAT(C2);DAKİKA(C2);SANİYE(C2))>=ZAMAN(14;0;0);EĞER(EĞER(EĞER(TAMİŞGÜNÜ(SOLDAN(C2;10)*1;SOLDAN(B2;10)*1;resmitatil)>2;(TAMİŞGÜNÜ(SOLDAN(C2;10)*1;SOLDAN(B2;10)*1;resmitatil)-2)*10;"")="";"";EĞER(TAMİŞGÜNÜ(SOLDAN(C2;10)*1;SOLDAN(B2;10)*1;resmitatil)>2;(TAMİŞGÜNÜ(SOLDAN(C2;10)*1;SOLDAN(B2;10)*1;resmitatil)-2)*10;"")&":00"&":00")="";(ZAMAN(SAAT(B2);DAKİKA(B2);SANİYE(B2))-"08:00:00"+"18:00:00"-ZAMAN(18;0;0));EĞER(EĞER(TAMİŞGÜNÜ(SOLDAN(C2;10)*1;SOLDAN(B2;10)*1;resmitatil)>2;(TAMİŞGÜNÜ(SOLDAN(C2;10)*1;SOLDAN(B2;10)*1;resmitatil)-2)*10;"")="";"";EĞER(TAMİŞGÜNÜ(SOLDAN(C2;10)*1;SOLDAN(B2;10)*1;resmitatil)>2;(TAMİŞGÜNÜ(SOLDAN(C2;10)*1;SOLDAN(B2;10)*1;resmitatil)-2)*10;"")&":00"&":00")+(ZAMAN(SAAT(B2);DAKİKA(B2);SANİYE(B2))-"08:00:00"+"18:00:00"-ZAMAN(18;0;0)));EĞER(EĞER(EĞER(TAMİŞGÜNÜ(SOLDAN(C2;10)*1;SOLDAN(B2;10)*1;resmitatil)>2;(TAMİŞGÜNÜ(SOLDAN(C2;10)*1;SOLDAN(B2;10)*1;resmitatil)-2)*10;"")="";"";EĞER(TAMİŞGÜNÜ(SOLDAN(C2;10)*1;SOLDAN(B2;10)*1;resmitatil)>2;(TAMİŞGÜNÜ(SOLDAN(C2;10)*1;SOLDAN(B2;10)*1;resmitatil)-2)*10;"")&":00"&":00")="";(ZAMAN(SAAT(B2);DAKİKA(B2);SANİYE(B2))-"08:00:00"+"18:00:00"-ZAMAN(SAAT(C2);DAKİKA(C2);SANİYE(C2)));EĞER(EĞER(TAMİŞGÜNÜ(SOLDAN(C2;10)*1;SOLDAN(B2;10)*1;resmitatil)>2;(TAMİŞGÜNÜ(SOLDAN(C2;10)*1;SOLDAN(B2;10)*1;resmitatil)-2)*10;"")="";"";EĞER(TAMİŞGÜNÜ(SOLDAN(C2;10)*1;SOLDAN(B2;10)*1;resmitatil)>2;(TAMİŞGÜNÜ(SOLDAN(C2;10)*1;SOLDAN(B2;10)*1;resmitatil)-2)*10;"")&":00"&":00")+(ZAMAN(SAAT(B2);DAKİKA(B2);SANİYE(B2))-"08:00:00"+"18:00:00"-ZAMAN(SAAT(C2);DAKİKA(C2);SANİYE(C2))))));""))
08.December.2013, 17:40
OmerFaruk

Çözene yardımından dolayı sırt çantası olabilen , Unomat omuz çantasını hediye edeceğim , Body ve lens için bölmeleri ve 3 cebi mevcut kaliteli bir çanta :)
08.December.2013, 18:04
Sevdi

exceli, başka bir yere bi yüklermisin o site indirmek için üyelik istiyor
08.December.2013, 18:59
OmerFaruk

Tabiki

Dosya Yükle - Dosya Upload
09.December.2013, 09:58
greeneye

wba den pek anlamam da sağlam formül yapmış arkadaş.

o kadar ki çıkış saatini giriş saatinden önce yazınca da mesai hesaplıyor. :) (negatif zamana mesai veriyor yani)
09.December.2013, 16:36
emekli_06

Bu dosya çalışıyormu acaba, ben çalıştıramadım da. formül çok uzun iletisi veriyor.
09.December.2013, 16:52
OmerFaruk

Evet çalışıyor ,hatta verdiğim excel dosyasında formül yazılı halde.
09.December.2013, 16:57
emekli_06

Benim pc de çalışmadı içinde formüller görünmüyor. Neyse size bir adres vereyim orda yardımcı olurlar. excel.web.tr .bu siteye sorabilirsiniz sorunuzu.
09.December.2013, 16:59
OmerFaruk

Oraya yazdım ama inanın bu forumda daha fazla cevap geldi soruya :)) sanırım tanımadığım bir forum olduğu için böyle oldu.
09.December.2013, 23:18
ididbest

yarın iş yerinde bakıcam dosyaya. üniversitede tez konumdu ve excel makrolar kitabım üniversitede derste okutuldu bir dönem.
özelden mail adresini gönderiyorum dosyayı mail atarmısınız elimden geleni yapmaya çalışıcam. Ama mail içine tam olarak ne yapmak istediğinizi yazın lütfen.
09.December.2013, 23:35
ididbest

formülü biraz inceledim ama yazan adam kasmış biraz. benide farklı bir şekilde kastı formülü çözümleyemedim.
varsa çözüp anlatabilecek makroda yardımcı olabilirim.