• DİKKAT

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

Ayın İlk Günü Girilince Zaman Bilgilerinin Yazdırılması

B

betoncu

Katılım
1 Aralık 2005
Mesajlar
376
Excel Vers. ve Dili
EXCEL 2002
TÜRKÇE
Ayın ilk günü Q2 hücresine girildiği zaman;

İlgili ayın en son gününe kadar ilgili hücrelere tarih, haftanın günü, ilgili ayın kaçınçı haftası olduğu, ilgili gün resmi tatile denk geliyorsa ilgili hücre değerine RT yazmasını istiyorum.

Örnek dosya ektedir.


Yardımlarınızı bekliyorum...
 

Ekli dosyalar

Arkadaşlar bu işlemi VBA Kod ile çözmek istiyorum.
 
Arkadaşlar örnek dosyada sorumu izah etmeye çalıştım. Kimse cevap yazmadı acaba sorumu net olarak izah edemedim mi?
 
Merhaba,
Konu formüllerle çözüldü.
Özellikle VBA kodlarıyla çözmek istemenizin bir nedeni varsa ona göre yardımcı olmaya çalışalım.

Kolay gelsin.
 

Ekli dosyalar

yasin2y' Alıntı:
Merhaba,
Konu formüllerle çözüldü.
Özellikle VBA kodlarıyla çözmek istemenizin bir nedeni varsa ona göre yardımcı olmaya çalışalım.

Kolay gelsin.
Genişletmek için tıkla ...

Yasin bey emek harcamışsınız yardımınız için teşekkür ederim.

Formüller işimi görmüyor çünkü hazırlanacak dosya kullanılırken formüllerin silinme ihtimali bulunmaktadır. (Formülleri korumak için Sayfayı korumak çözüm olmuyor.)

Bu nedenle makro kodlar ile çözmek istiyorum.

Yardımlarınızı bekliyorum..
 
Bu arada formülü öğrenmek için soruyorum.

Hücrede kullandığınız aşağıdaki formülde <> ifadesinin anlamı nedir? (Büyükse >, Küçükse < olarak düşünülebiliyor ama <> ifadeye anlam veremedim.)

EĞER(AY(BB4+1)<>AY(BB4);"";BB4+1)
 
Yasin bey teşekkür ederim.

Bu sorumu kod ile çözebilecek arkadaşlar yardımlarınızı bekliyorum..
 
yasin2y' Alıntı:
Merhaba,
Ekteki dosyayı inceleyiniz.
Genişletmek için tıkla ...

Range("X2:AD2") = 1
Range("AE2:AK2") = 2
Range("AL2", "AP2:AU2") = 3
Range("AV2:BB2") = 4
Range("BC2:BE2") = 5

olarak ayın haftalarını belirtmişsiniz başka aylara göre bu kodlama tutmuyor.

Mesela 2012 Kasımayı için 05.11.2012 tarihi ayın 2. haftasına denk gelmesi lazım.
 
Eski kodların hepsini silip aşağıdakileri kopyalayın.


Kod: 
Sub FormulleriGetir()


Range("X3:AL3").FormulaR1C1 = "=R[1]C"
Range("AP3:BB3").FormulaR1C1 = "=R[1]C"
Range("BC3:BE3").FormulaR1C1 = "=IF(R[1]C="""","""",R[1]C)"

Range("X4").FormulaR1C1 = "=R[-2]C[-7]"
Range("y4:AL4").FormulaR1C1 = "=RC[-1]+1"
Range("AQ4:BB4").FormulaR1C1 = "=RC[-1]+1"
Range("AP4").FormulaR1C1 = "=RC[-4]+1"

Range("BC4").FormulaR1C1 = "=IF(MONTH(RC[-1]+1)<>MONTH(RC[-1]),"""",RC[-1]+1)"
Range("BD4:BE4").FormulaR1C1 = "=IF(RC[-1]="""","""",IF(MONTH(RC[-1]+1)<>MONTH(RC[-1]),"""",RC[-1]+1))"

Range("X5:AL5").FormulaR1C1 = "=IF(ISERROR(VLOOKUP(R[-1]C,RESMİ_TATİL!R4C2:R30C4,3,)),"""",""RT-""&VLOOKUP(R[-1]C,RESMİ_TATİL!R4C2:R30C4,3,))"
Range("AP5:BE5").FormulaR1C1 = "=IF(ISERROR(VLOOKUP(R[-1]C,RESMİ_TATİL!R4C2:R30C4,3,)),"""",""RT-""&VLOOKUP(R[-1]C,RESMİ_TATİL!R4C2:R30C4,3,))"
       
  
Range("X2") = 1
Range("Y2:Al2") = "=IF(WEEKDAY(R[1]C,11)=1,RC[-1]+1,RC[-1])"
Range("AQ2:BB2") = "=IF(WEEKDAY(R[1]C,11)=1,RC[-1]+1,RC[-1])"

Range("AP2") = "=IF(WEEKDAY(R[1]C,11)=1,RC[-4]+1,RC[-4])"
Range("BC2:BE2") = "=IF(R[1]C="""","""",IF(WEEKDAY(R[1]C,11)=1,RC[-1]+1,RC[-1]))"
     
son:
     
End Sub
 
Sayın YASİN2Y kusura bakmayın dosyanızı sadece vba ya çevirdim. Umarım beni mazur görürsünüz...
 

Ekli dosyalar

Merhaba. Kodlarda kullanılan
ActiveCell.FormulaR1C1 = "=RC[-1]+1"
ActiveCell.FormulaR1C1 = "=R[-2]C[-3]"
ActiveCell.FormulaR1C1 = "=R[1]C"

ifadeleri ne anlama geliyor acaba?
 
mustafa1205' Alıntı:
Sayın YASİN2Y kusura bakmayın dosyanızı sadece vba ya çevirdim. Umarım beni mazur görürsünüz...
Genişletmek için tıkla ...

Rica ederim Sayın Mustafa1205, elinize sağlık.

Ben özellikle formülleri yazacak şekilde makro yazdım.
Çünkü her tarih yenilendiğinde makro tuşuna basılmasını istemedim.
Çünkü talep edilenin
"formüllerin kazara silinmesi riskinde formüllerin tekrar çağrılması"
diye anladım.
Sonuçta ikimiz de istenileni verdik, tekrar elinize sağlık.
 
yasin2y' Alıntı:
Rica ederim Sayın Mustafa1205, elinize sağlık.

Ben özellikle formülleri yazacak şekilde makro yazdım.
Çünkü her tarih yenilendiğinde makro tuşuna basılmasını istemedim.
Çünkü talep edilenin
"formüllerin kazara silinmesi riskinde formüllerin tekrar çağrılması"
diye anladım.
Sonuçta ikimiz de istenileni verdik, tekrar elinize sağlık.
Genişletmek için tıkla ...

Asıl sizin elinize sağlık. Kolay gelsin
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst