• DİKKAT

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

Hafta sonuna gelen Hücreye işaret

hocam ...

bu 2003 e uyumlu deyil

bir tarih girdim gene hücreler AD oldu ; önceki gönderdigiriz 2003 e uyumlu olan formülü yapıştırdım
yani
=_xlfn.IFERROR(TARİHSAYISI(D6&"."&$AT$2&"."&$AU$2);0) formülü 2003 de çalışmıyormuşya
onunun yerine
=EĞER(EHATALIYSA(TARİHSAYISI(D6&"."&$AT$2&"."&$AU$2));0;TARİHSAYISI(D6&"."&$AT$2&"."&$AU$2)) yapıştırdım


sorun aynı yani 2. ayı bitişten almak yerine başlangıçtan alıyor
 
Hocam hatamı buldum

hani 2003 de çalışmıyan formül yerine
=EĞER(EHATALIYSA(TARİHSAYISI(D6&"."&$AT$2&"."&$AU$ 2));0;TARİHSAYISI
yapıştırdımya 2003 de çalışsın diye
o formülü ayın sonuna dek çekip kopyalıdım

halbuki ayın 31 de dek kopyalıycam ayın 1 den itiberen at$2 AT$3 olacak yani bitiş hücresinden alacak şekilde düzettim
oldu

Emeğinize sağlık

Hani başlangıcı girince bitiş tarihini otomatik giriyo ya
bitiş tarihini yanlışlıkla girince oradaki formul kayboluyor bitiş tarihini manuel girmeyi nasıl engel oluruz

teşekkür
 
ok düzeltiğinize sevindim.
Bitiş tarihini manuel girmenizi gerektirecek bir durum yok.
Ama genede yanlışlıkla silerseniz gönderdiğim dosyada formülü var.
Sayfa korumasını açıp. Hücreleri koruma altına alabilirsiniz. (veri girmek istediğiniz hücre özellliklerinden kilitli işaretini kaldırın)
 
Son düzenleme:
başka

Tekrar yardımlarınızı istiycem


ekteki dosya konuyla aynı ama farklı uygulama

ayı harfle yılı rakamla girince örnekte olduğu ğibi hafta sonları yeşil zeminli olsun

kaydet butonuna basınca , örnegin ocak 2011 sayfasında kaydet butonuna basınca ocak sayfasına kaydedip kendi o yılın şubat sayfasını açmalı

tabi şubat tarihli haftasonları yaşil zeminli
ilgilenebilrmisinz
 

Ekli dosyalar

haftasonu boyamayı bir öncekinde halletmiştik, onu size bırakıyorum.

Sayfa kopyalayan ve yeni ay için açan hali ekte.
Yeni Ay tuşuna basın. Yeni sayfa açılacak.
Ama ay değiştiğinde içindeki verileri silecek mi bilemediğim için birşey yapmadım.

Makronun içine ekleyebilirsiniz.

Uyumsuzluk varsa, 2003 e göre düzeltirsiniz.
 

Ekli dosyalar

Hocam yeni aya basınca nasıl kopyasını bir sonraki aya uyarlıyor ...

2 sayfaya yakın kod yazmışsınız hepsi bununlumı ilgili...

ayın hücrasinde nasıl sadece ay gözüyor nasıl hallettiniz
öğretirmisinz

bende önceki örneğe göre haftasonu işaretlemeyi yapmaya çalışcam
 
hayır modul1 deki kodlar bana ait değil. O sizin dosyada zaten var olansayıyı yazıya çeviren fonksiyonun kodu.

Benim kodum çok kısa module2 kısmında gördüğünüz kod. aşağıdaki gibi.
Sub Makro1()
Dim isim, ayyytxt As String

ActiveWorkbook.Save

isim = ActiveSheet.Name
ayyy = Range("AM7").Value
ayyytxt = Range("AM7").Text
ActiveSheet.Select
ActiveSheet.Copy Before:=Sheets(Sheets.Count)
Range("D7") = ayyy
Range("AK7") = ayyy
ActiveSheet.Name = ayyytxt
End Sub

Hocam makro öğrenmek istiyosanız öndce makro kaydet ile excelin yaptığınız hareketleri nasıl koda çevirdiğini inceleyin.

Haftasonu işaretlemeyi makro ile yapmamıştık.
Onun için hücreledeki formül ve Koşullu Biçimlendirmeyi inceleyin.

Ayın hücresinde ay gözükmesi biçimlendirme ile ilgili, hücre biçimlendir isteğe uyarlanmış kısmını inceleyin.
 
Teşekkürlar

ben bu modul1 deki kodları sildim bişi olmadı gereksizmiydi o kodlar ,nerden geldi bilmiyorum
sakıncası varmı

hücre biçiminde isteğe uyarlanmışa baktım -41f aaa var bumu tarihi sadece ay olarak yazdıran

Hocam, yeni sayfa aç düğmesende kopya yaparken rakam harici işaret olan R ve İ gibi onları
silip satırdaki rakamı basabilirmi

mesela 33333RRR var hücrelerde kopya alırken 3333333 yapacak r yi yok sayacak

mesela RRR11 11111 yapacak
mesala i22 var 222 yapacak

yani izin ve raporlar ( İ R) gibi harfsel işaretler yeni ayda büyük ihtimal olmuycağından
onları o satırın rakamında ne varsa ona çevirecek

uğraştırmazsa ekliyelim

Hocam AM7 ye birsoraki aya nsıl ayarladınız yani ocak+1 = AM7 gibi bir kod yok

AM7 bir sonraki aya nasıl geçiyor
 
hocam dediğim gibi o macro excele sonradan eklenmiş yaziyla() fonsiyonu için. Yani
Yaziyla(1234) = binikiyüzotuzdort gibi Silmeniz veya kalması size bir zararı olmaz. Faturalarda yazıyla tutar yazılır ya onun gibi.

hücre içindeki tarih değerini excel 1900den başlayan bir sayı olarak tutar, bunu excelin standart veya isteğe uyarlanmış şekilde istediğiniz gibi gösterebilirsiniz.

yeni ay tuşunun altındaki hücreye AM7 bir formül yazarak sonraki ayı gösterdim.

tuşun arkasına makro atadım ve Makro ile sırası ile

ActiveWorkbook.Save ' çalışma sayfasını kaydettim
ayyy = Range("AM7").Value 'ayyy değişkenine AM7 hücresinin DEĞERini atadım 01.02.2011 gibi
ayyytxt = Range("AM7").Text 'ayyytxt değişkenine AM7 hücresinde gözüken TEXT atadım. ŞUBAT gibi
ActiveSheet.Select 'üzerinde bulunduğum sayfayı seçtim.
ActiveSheet.Copy Before:=Sheets(Sheets.Count) 'en son sayfaan bir önceki sayfaya gelecek şekilde kopyaladım.
Range("D7") = ayyy 'yeni sayfada D7 yerine ayyy değerini attım.
Range("AK7") = ayyy ' AK7 yerine ayyy değerini attım.
ActiveSheet.Name = ayyytxt 'yeni sayfanın adını ayyytxt yaptım

yeni sayfada silmek istediğiniz değerleri yukarıdaki makroda kopyalamadan sonraya yazarak sildirebilirsiniz.
Bir hücrenin nasıl silindiğini görmek için MAKRO kaydet yapıp o hücreyi siliniz. Makroyu durdurduğunuzda ecel onu kod olarak vba da gösterecektir.

yeni yıla da geçebilir AM7 içindeki formülü inceleyerek ve EĞER li bir formül ile yeni yıla geçebilirsiniz. Ama tavsiyem her yıl için başka dosya tutun.
 
Hocam , ocak yazıp 2012 yaptım 2012 çalışmıyor..

aralıktan sanra yılı bir artırıp ocağa dönecek şekilde yapalım ,ben beceremedim...

biz sayfa çoğaldıkca, saklamaya gerek görmediğimiz ilk sayfayı sileriz..
yani 19 20 ay sonra ilk ayı silerek sayfa sayısının fazla çoğalmasını önleriz
 
Çok teşekkür ederim...

haftasonu biçimlendrmeyi bana bırakmıştınız

ben beceremedim

=YADA(HAFTANINGÜNÜ(C$2)=1;HAFTANINGÜNÜ(C$2)=7)

bu formülü de dernedim koşullu biçimlendirmede olmadı

ben neden yapamıyom
bi kusurummu var

teşekkür
 
Hocam bir ilave daha yapabilirmiyim....

isimlerin karşisinda gördüğürüz gibi Rakamlar var...

Haliyle bağzı isimlere İ (izinli) R (Raporlu) işareti gelebiliyo...bunlar yeni ayda geçerli olmuyacağı için
Yeni ay butonuna basınca kopyalarker kimde bu işeretler varsa dikkate almayıp..o satırdaki rakamı o harfin yerine yazabilirmi ...mümkün olurmu

(yani bir ismin karşısında 3 3 3 İ 3 var yeni ayda 3 3 3 3 3 olacak gibi
 
kiminde 4 var kiminde, 3 4 3 kiminde, komple R var, kiminde 2 3 2 var, kiminde komple DOĞUM İZNİ yazıyor. Neyi silip ne yi silmeyeceğini excel nasıl anlayacak.
Bunun algortimasını kurun.

Ekteki dosyada hepsini sildirim yerine 3 yazdırdım. Lütfen kodlardaki döngüyü inceleyin istediğiniz karşılaştırmayı yaptırarak istediğiniz değeri girebileceğiniz her şey orda gözüküyor.
 

Ekli dosyalar

Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst