diğer hücredeki tarihe göre hücreye desen atama

[rotakat]

ekteki dosyanın içinde hücrennin koşullu biçimlendirilmesi ile ilgili açıklamayı gönderdim. koşullu biçimlendirmeden uğraştım ama yapamadım. ilgilenirseniz sevinirim. iyi çalışmalar. (yaşlılık işte)Ekli dosyayı görüntüle ÖRNEK1.rar

 

[leumruk]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
For i = 6 To 200
For a = 2 To 23
If Cells(i, 1) = [O1] Then
Cells(i, a).Interior.ColorIndex = 5
End If
Next a
Next i
End Sub

Yukarıdaki kodu, Sayfa1'in kod bölümüne yapıştırın.

 

[janveljan]

Bu tür uygulamaları koşullu biçimlendirme ile yapmak mümkün şöyleki
Bu belge için A5 de tarih var O1 de de günün tarihi var o zaman biz koşullu biçimlendirmek istediğimiz ilk hücre olan B6 ya gidiyoruz ve Koşullu Biçimlendirme menüsünü açıp, burada hücre değeri yerine formülü seçiyoruz ve şunları giriyoruz "=($A6=$O$1)" (dolarların yeri önemli). Böylece B6 hücresini koşullu biçimlendirmiş olduk.Bundan sonra bu hücreden sağa veya aşağı doğru çekip ilgili diğer hücreleri de dolduruyoruz. Doldururken sadece biçimlendirmeyi doldur der isek hücredeki verilerde yerli yerinde kalır, veya Copy B6 yapıp daha sonra ilgili hücreleri seçip Özel Yapıştır deyip sadece biçimleri yapıştırarak da aynı sonuca ulaşırız, yada biçim boyacısını kullanabiliriz.

 

[rotakat]

Bu tür uygulamaları koşullu biçimlendirme ile yapmak mümkün şöyleki
Bu belge için A5 de tarih var O1 de de günün tarihi var o zaman biz koşullu biçimlendirmek istediğimiz ilk hücre olan B6 ya gidiyoruz ve Koşullu Biçimlendirme menüsünü açıp, burada hücre değeri yerine formülü seçiyoruz ve şunları giriyoruz "=($A6=$O$1)" (dolarların yeri önemli). Böylece B6 hücresini koşullu biçimlendirmiş olduk.Bundan sonra bu hücreden sağa veya aşağı doğru çekip ilgili diğer hücreleri de dolduruyoruz. Doldururken sadece biçimlendirmeyi doldur der isek hücredeki verilerde yerli yerinde kalır, veya Copy B6 yapıp daha sonra ilgili hücreleri seçip Özel Yapıştır deyip sadece biçimleri yapıştırarak da aynı sonuca ulaşırız, yada biçim boyacısını kullanabiliriz.

çok teşekkür ederim işimi gördü. iyi çalışmalar.