Çizelgedeki Haftaları Çerçevelemek

[1Al2Ver]

Merhaba,

B2'deki değişkene göre ;

Pazartesiazar aralığındaki günleri kapsayan sütunların, kalın ve kırmızı renkli
bir çerçeve ile belirlenmesini arzulamaktayım,

Çerçeve, B2 değiştikçe, haftaya göre şekil alabilmeli,

Bu işlem için gerekli kodu rica ediyorum,

Teşekkür ederim.

 

[Ömer]

Merhaba,

Doğru anladıysam koşullu biçimlendirme ile yapabilirsiniz.

C4:AG23 arasında koşullu biçimlendirmede formül bölümüne,

=VE(C$2>=$B$2-MOD($B$2-2;7);C$2<=$B$2-MOD($B$2-2;7)+6)

yazın ve kenarlıktan kırmızı rengi seçerek kenarlık türünü seçin. Yalnız kenarlık türünde kalın seçeneği yok diye biliyorum.

Eğer muhakkak kalın çizgi olacaksa makroda yazabiliriz.

.

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak makro ile hazırladığım örnek dosyayı incelermisiniz.

 

[1Al2Ver]

Merhaba,

Doğru anladıysam koşullu biçimlendirme ile yapabilirsiniz.

C4:AG23 arasında koşullu biçimlendirmede formül bölümüne,

=VE(C$2>=$B$2-MOD($B$2-2;7);C$2<=$B$2-MOD($B$2-2;7)+6)

yazın ve kenarlıktan kırmızı rengi seçerek kenarlık türünü seçin. Yalnız kenarlık türünde kalın seçeneği yok diye biliyorum.

Eğer muhakkak kalın çizgi olacaksa makroda yazabiliriz.

.

Sayın Ömer merhaba,

Öncelikle ilginiz ve çözüm için teşekkür ederim,

Şayet yanlış uygulamadıysam, formül şu yapmakta ; İçinde bulunulan haftayı (M4:S23) yani 11.01/17.01 arasını çerçeveliyor,

Benim arzum, haftaları dıştan çerçeveye almak, dosyama göre örneklemek gerekirse; C2:E25, F2:L25, M2:S25, T2:Z25 ve AA2:AG25'i dıştan blok olarak çerçeveye almak,

Bunun imkanı varsa memnun olurum,

Teşekkür ederim.

 

[1Al2Ver]

Selamlar,

Alternatif olarak makro ile hazırladığım örnek dosyayı incelermisiniz.

Sayın Korhan Ayhan, merhaba,

Çözüm için teşekkür ederim, sorunsuz çalışıyor,

Saygılarımla.

 

[Ömer]

Sayın Ömer merhaba,

Öncelikle ilginiz ve çözüm için teşekkür ederim,

Şayet yanlış uygulamadıysam, formül şu yapmakta ; İçinde bulunulan haftayı (M4:S23) yani 11.01/17.01 arasını çerçeveliyor,

Benim arzum, haftaları dıştan çerçeveye almak, dosyama göre örneklemek gerekirse; C2:E25, F2:L25, M2:S25, T2:Z25 ve AA2:AG25'i dıştan blok olarak çerçeveye almak,

Bunun imkanı varsa memnun olurum,

Teşekkür ederim.

Bu şekilde de olabilir. Yalnız koşullu biçimlendirmede kalın çizgi yapamayız. İnce çizgi işinizi görürse yapayım görmez ise Korhan Bey'in çözümü sizin için daha uygun olur sanırım.

.

 

[omerceri]

Cevap verilmiş ama biraz uğraşmıştım. Alternatif kodlar:
Sub ciz()
a = Range("C2:IV2").Find(Range("B2"), LookIn:=xlValues).Address

b = Weekday(Range("B2"), vbMonday)
c = Day(Range("B2"))

If c - b >= 0 Then
e = Range(a).Offset(23, -(b - 1)).Address
Else
e = Range(a).Offset(23, -(Day(Range("B2")) - 1)).Address
End If
If b = 7 Then
a = a
Else
a = Range(a).Offset(0, 7 - b).Address
End If
Range(e & ":" & a).Select
'.......seçimin kenarlık ve renklendirme kodları
End Sub

 

[1Al2Ver]

Bu şekilde de olabilir. Yalnız koşullu biçimlendirmede kalın çizgi yapamayız. İnce çizgi işinizi görürse yapayım görmez ise Korhan Bey'in çözümü sizin için daha uygun olur sanırım.

.

Merhaba,

Kalın olması çok da önemli değil, çözümü bekliyorum, uygun olduğunuzda rica ediyorum,

Teşekkür ederim.

 

[1Al2Ver]

Cevap verilmiş ama biraz uğraşmıştım. Alternatif kodlar:
Sub ciz()
a = Range("C2:IV2").Find(Range("B2"), LookIn:=xlValues).Address

b = Weekday(Range("B2"), vbMonday)
c = Day(Range("B2"))

If c - b >= 0 Then
e = Range(a).Offset(23, -(b - 1)).Address
Else
e = Range(a).Offset(23, -(Day(Range("B2")) - 1)).Address
End If
If b = 7 Then
a = a
Else
a = Range(a).Offset(0, 7 - b).Address
End If
Range(e & ":" & a).Select
'.......seçimin kenarlık ve renklendirme kodları
End Sub

Sayın omerceri, merhaba,

Zahmet edip uğraşmıssınız,teşekkür ederim, kodları alternatif olarak saklayacağım,

Saygılarımla.

 

[Ömer]

Eki inceleyiniz. Dosya üzerinde detaylı deneme yapmadım. Eksik varsa bildirirsiniz tekrar düzenlemeye çalışırım.

.

 

[1Al2Ver]

Eki inceleyiniz. Dosya üzerinde detaylı deneme yapmadım. Eksik varsa bildirirsiniz tekrar düzenlemeye çalışırım.

.

Sayın Ömer, merhaba,

Sorun gözükmemekte, teşekkür ederim,

Saygılarımla.