Koşullu biçimlendirme sorunu

[extra5]

Tuhaf bir sorunla karşılaştım. üstesinden gelemedim. kafam durdu artık.
siz üstadlarıma danışayım dedim. sorunu daha iyi anlatabilmek için dosya halinde ekledim. inceleyip bir yardımcı olursanız çok makbule geçecek inanın.

şimdiden teşekkür ederim.

 

[N.Ziya Hiçdurmaz]

Günleri göstermek için girdiğiniz tarihleri biçimlendirirkende girerseniz istediğiniz oluyor.

 

[İdris SERDAR]

B1 hücresini koşullu biçimlendirirken formül kısmınaaşağıdaki formülü girin.

Sonra bu hücreyi aşağıya doğru kopyalayın.


=HAFTANINGÜNÜ(A1)=1

..

 

[tahsinanarat]

Formül ile girdiğiniz günler

Günleri formül ile =GÜN(1), =GÜN(2), =GÜN(3) şeklinde devam ederseniz koşullu biçimlendirme istediğiniz gibi olur. Dosyanız ektedir.
Ben uğraşırken yurttas arkadaşımız gereken doğru cevabı vermiş zaten, neyse benimki de altarnatif olsun

 

[extra5]

Sayın üstadlarım ilginize çok teşekkür ederim vermiş olduğunuz formül ilavesi ile istediğimi yapabildim.

Yalnız bir sorunun üstesinden de gelemedim ve yardımlarınıza ihtiyaç duydum. Bu sorun farklı bir konu başka bir başlık altında mı açsaydım bilmiyorum ama konu kirliliğine sebep olmamak için bu mesajın altına eklemeyi uygun gördüm. Bu sorunum da makro yazılımları ile ilgili. Açıklamalar ekli dosya içerisinde. Yardımcı olabilirseniz eğer çok memnun olurum. Yoksa canınız sağolsun.
Şimdiden ilgilenen arkadaşlarıma teşekkür ederim.

 

[tahsinanarat]

dosyaya göz attım, ama istediğinizin tam tersi mümkün, yanlış anlamadıysam, a3 hücresine girdiğiniz veri ilk pazartesi gününde görülecek, buraya kadar tamam, tablodaki diğer pazartesi günlerine ne gelecek, doğrusu ben anlayamadım, daha açıklayıcı olursa iyi olur.

 

[extra5]

dosyaya göz attım, ama istediğinizin tam tersi mümkün, yanlış anlamadıysam, a3 hücresine girdiğiniz veri ilk pazartesi gününde görülecek, buraya kadar tamam, tablodaki diğer pazartesi günlerine ne gelecek, doğrusu ben anlayamadım, daha açıklayıcı olursa iyi olur.

Sayın tahsinanarat,
A3 hücresine(Pazartesi) girdiğimiz değer sağ taraftaki tabloda görülen tüm Pazartesilere aktarılacak(H3,O3,V3,AC3), B3 hücresine girilen değer de sağ tarafta tüm salı günlerine aktarılacak, A4 hücresine girilen değer de tüm Pazartesilerin 4. satırına aktarılacak. İşlem bu şekilde devam edecek. Tabi seçtiğimiz aylara göre günler de değişecek.

Yalnız bu işlemleri hücrelere formül yazarak yapmamam, çünkü A3 hücresine girdiğimiz değer sağ taraftaki Pazartesilere aktarıldığında yeri gelecek II. haftaki Pazartesiye farklı bir değer girilmesi gerekecek ve onu direk O3 hücresine girerek düzelteceğim ama diğer Pazartesiler A3 e girdiğim değerde kalacak. Eğer formülle yaparsam O3 gibi hücrelere yeni değer girince formül silinir.

Bilmiyorum şimdi anlatabildim mi acaba? Yardımcı olabilirseniz çok makbule geçeceğinden emin olabilirsiniz.
saygılarımla...

 

[Orion1]

Merhaba.
Ekteki dosyayı incelyiniz.
Verileri girdikçe otomatik yazıyor.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sut As Byte
On Error GoTo hata
If Intersect(Target, [A3:F65536]) Is Nothing Then Exit Sub
For sut = 7 To 37
    If Format(Cells(1, Target.Column), "dddd") = Format(Cells(1, sut).Value, "dddd") Then
        Cells(Target.Row, sut).Value = Target.Value
    End If
Next
hata:
End Sub

 

[tahsinanarat]

Söylediğinizi anladım, neden böyle bişey istediğinizi anlamadım, vardır elbet bir bildiğiniz, ama Sezar arkadaşımız istediğiniz cevabı çoktan vermiş, ellerine sağlık. Kolay gelsin

 

[Orion1]

İyi çalışmalar.

 

[extra5]

Sayın Sezar, çok teşekkür ederim. Gerçekten işime yarayacak bir yazılımdı, sağolasın.

Yalnız sizin verdiğiniz kodları benim dosyama uyarladım ama herhalde bir yerlerde hata yaptım ki gün gözetmeden haftanın her gününe yazıyor. Göz atmanız için yapmaya çalıştığım programı ekledim buraya.

İlgi ve yardımlarınızdan dolayı tekrar teşekkür ederim.

Söylediğinizi anladım, neden böyle bişey istediğinizi anlamadım, vardır elbet bir bildiğiniz, ama Sezar arkadaşımız istediğiniz cevabı çoktan vermiş, ellerine sağlık. Kolay gelsin

Sayın tahsinanarat, okuldaki işlerimizi kolaylaştırması anlamında ekders hesaplama programı yapmaya çalışıyorum. Sadece bu problemi kendi başıma çözemedim siz değerli üstadlara danışayım istedim. Forumumuzda bir çok ekders hesaplaması programı paylaşıma açılmış ama onlar hem bizim okula uymuyor hem de ben kendim uğraşarak bir şeyler öğrenmek istiyorum. Bu forumu da bu nedenle günlük olarak takip ediyorum. Şimdilik yardım alıyorum ama yakın zamanda ben de öğrendiklerimi ve yaptığım çalışmaları paylaşacağım. Teşekkür ederim tüm forum paylaşımcılarına.

 

[Orion1]

Merhaba.
Sorun çözüldü.Ekli dosyayı inceleyiniz.
Dosya güncellendi.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sut As Byte
On Error GoTo hata
If Intersect(Target, [E7:I156]) Is Nothing Then Exit Sub
For sut = 11 To 41
    If Format(Cells(4, Target.Column), "dddd") = Format(Cells(3, sut).Value, "dddd") Then
        Cells(Target.Row, sut).Value = Target.Value
    End If
Next
hata:
End Sub

 

[extra5]

Çok teşekkür ederim sayın Sezar, ne diyeyim size ben, hayatınızda karşılaşacağınız sorunlar da inşallah bu kadar kolay çözülür. Çok makbule geçti inanın. Çalışmalarınızda başarılar dilerim. Tekrar çok teşekkür ederim, sağolasın..

Bu arada yazdığınız yeni formülü inceledim, yapmam gereken ama yapamadığım değişiklikleri de görmüş oldum

 

[Orion1]

Rica ederim.
İyi çalışmalar.

 

[Orion1]

Merhaba.
İngilizce yüklü bir bilgisayrda kodlar çalışmayacaktı.
Bu durumu düzelttim.Dosyayı güncelledim.Güncellenen dosyayı kullanmanız dağa doğru olacaktır.