For Next döngüsünü nasıl yapabilirim?

[ismailmuhcu]

Arkadaşlar ekteki çalışmamda For Next döngüsünü nasıl yapacağım. Yardım edebilir misiniz? Revize edilmiş örnek ektedir.

 

[N.Ziya Hiçdurmaz]

Yanıt

Birinci sorunuzun cevabı.

Sub TEST()
[D3:AG9].Clear
For SUT1 = 3 To Cells(65536, "C").End(3).Row
For SAT = 1 To Cells(SUT1, "C")
Cells(SUT1, SAT + 3) = "X"
Next
Next
End Sub

 

[ismailmuhcu]

Örnekteki hücreleri kendime uyarladığımda Type mismatch hatasını verdi. En iyisi örnek tablo yerine ben kendi tablomu ve verdiği hata mesajını size sunayım. İlk mesajdaki dosyayı kendi tablomla değiştiriyorum. Kodların verdiği hata mesajı da aşağıdaki resimdeki gibidir. Resimde göründüğü gibi kalıyor her defasında. Saygılarımla...

 

[Orion1]

Ekli dosyayı inceleyiniz.
Formülle yaptım.

 

[ismailmuhcu]

Çok teşekkür ederim. Formülle işi hallettik. İlgili aya ait pazar günlerini biçimlendirmeyle ilgili bişey yapabilir miyiz?

 

[Orion1]

Çok teşekkür ederim. Formülle işi hallettik. İlgili aya ait pazar günlerini biçimlendirmeyle ilgili bişey yapabilir miyiz?

Eki dosyayı inceleyiniz pazar günleri font bold ve beyaz dolgu rengiise kırmızı oldu.Koşullu biçimlendirme uygulandı.

 

[ismailmuhcu]

Eki dosyayı inceleyiniz pazar günleri font bold ve beyaz dolgu rengiise kırmızı oldu.Koşullu biçimlendirme uygulandı.

Bu oldu fakat koşullu biçimlendirme sistem tarihini baz alıyor. Halbuki benim tablomda H8 hücresindeki tarih baz alınmalıydı. Bu durumda koşullu biçimlendirme formülünde nasıl bir değişiklik yapabiliriz.

 

[Orion1]

Bu oldu fakat koşullu biçimlendirme sistem tarihini baz alıyor. Halbuki benim tablomda H8 hücresindeki tarih baz alınmalıydı. Bu durumda koşullu biçimlendirme formülünde nasıl bir değişiklik yapabiliriz.

Doğru gösteriyor.H8 Hücresindeki yıl ve ayı baz alıyor.
O yılın o ayında pazar günleri hangi günlere denk geliyorsa o günleri kırmızıya boyuyor.
Mesela bizim h8 hücresine yazdığımız tarih:01.01.2008 bu durumda 2008 in ocak ayında hangi günler pazar'a denk geliyorsa o günler kırmızıya boyanıyor.
2008'in ocak ayındaki pazar günleri=Ocak 6,Ocak 13,Ocak 20,Ocak 27 bizim renklendirdiğimiz hücrelerde aynisi.İsterseniz Ocak 2008 tarihinin takvimine bakabilirsiniz.

 

[ismailmuhcu]

Özür dilerim. Zannedersem ben bir uygulama hatası yaptım. şimdi mantığı çözdüm. Çok teşekkür ederim. Sağolun...

 

[Orion1]

Aslında isterseniz Resmi Bayram Tatillerini ve Dini bayram tatillerini Kırmızıya boyayabiliriz.
AM sütununa Bayram tatillerini yazarak bunu sağlayabiliriz.
Bunuda istremisiniz?

 

[ismailmuhcu]

Tamam, teklifinizi çok güzel. Bekliyoruz...

 

[Orion1]

Tamam, teklifinizi çok güzel. Bekliyoruz...

Koşullu biçimlendirmeye bayram tatillerinide ekledim.
6ncı mesajdan güncelleştirilmiş dosyayı indirebilirsiniz.

 

[Orion1]

Aydan artan günleri düzelltim.6 numaralı mesajda dosyayı indirebilirsiniz.

 

[ismailmuhcu]

Çok teşekkürler...

 

[Orion1]

Çok teşekkürler...

Rica ederim.