Tarih içinde sadece günü renklendirme

[yanginci34]

Günaydın arkadaşlar; İsteğim şöyle tarihlerim var örneğin, 01 Temmuz Cumartesi, 02 Temmuz Pazar vb. gibi ben onların 01 Temmuz Cumartesi, 02 Temmuz Pazar şeklinde yani günün sayısı kırmızı diğerleri siyah yazdırma şansımız varmı?
Şimdiden teşekkürler.

 

[Necdet]

Merhaba,
Bence gereksiz bir istek.
Makro ile olur ancak hücreye tarihi tarih olarak değil metin olarak girmeniz gerekir ki, bu da çok saçma bir olay olur. Diye düşünüyorum.

 

[hasankardas]

Merhaba,
Bence gereksiz bir istek.
Makro ile olur ancak hücreye tarihi tarih olarak değil metin olarak girmeniz gerekir ki, bu da çok saçma bir olay olur. Diye düşünüyorum.

aynı fikirdeyim

örnek olması açısından 3 sütunla ekteki örneği yaptım. tarihi sadece A sütununa giriniz

 

[Necdet]

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.
A sütununda Veri Giriş anında çalışır, girilen tarihi metne çevirir, metne çevrilmiş değerin de ilk 2 hanesini renklendirir.

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [A:A]) Is Nothing Or Target.Row < 2 Then Exit Sub

With Application
    .EnableEvents = False
    .ScreenUpdating = False
End With

If VarType(Target.Value) = vbDate Then Target.Value = Format(Target.Value, "dd mmmm dddd")
If VarType(Target.Value) = vbString Then
    With Target.Characters(1, 2).Font
        .Bold = True
        .ColorIndex = 3
        .Size = 14
    End With
End If

With Application
    .EnableEvents = True
    .ScreenUpdating = True
End With
    
End Sub

 

[yanginci34]

Merhaba,
Bence gereksiz bir istek.
Makro ile olur ancak hücreye tarihi tarih olarak değil metin olarak girmeniz gerekir ki, bu da çok saçma bir olay olur. Diye düşünüyorum.

Hocam sizin düşünceniz doğrultusunda isteğimden vaz geçtim zaten örnek dosya eklemeden olamazdı bende hataydı tarihler formül ile geliyor hücrelere sonradan hücre biçimlendirme ile gg aaaa gggg şekline çevriliyor. Herkes hakkını helal etsin.