Tarih formatı (hücre biçimlendirme)

[izcik]

Selamlar sn uzmanlarım

Forumda arama yaptım ama göremedim.

Tarih sütununu hücre biçimlendirme ile kolayca

22.09.2021 Çarşamba olarak yazabiliyorum.
Hatta metneçevir ile günleri ayrı bir sütuna yazıp, birleştirebiliyorum.

Çarşamba kelimesini, yani günleri; (biraz rahat okunsun diye) kırmızı renge çevirmenin imkanı var mıdır? (Hücre biçimlendirme ile)

Yani şöyle
22.09.2021 Çarşamba
(Çarşamba kırmızı olacak)

 

[gicimi]

Merhaba,
Koşullu biçimlendir - Metin kısmından yapabilirsiniz.

 

[izcik]

Merhaba,
Koşullu biçimlendir - Metin kısmından yapabilirsiniz.

Taşekkürler, Nasıl yapacağım? Ayrıntılı anlatır mısınız?

 

[gicimi]

Alanı seçiniz.

Koşullu Biçimlendirme.

Hücre Vurgulama Kuralları

İçerdiği Metin

 

[izcik]

Uğraştım yapamadım maalesef, örnek dosya yükledim.

ornek.xlsm dosyasını indir - download

ornek.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s5.dosya.tc

 

[Korhan Ayhan]

Bahsi geçen işlemi yapabilmeniz için hücrede fiziksel olarak 22.09.2021 Çarşamba yazmalıdır. Sizin hücrelerinizin içeriği tarih biçimindedir. Yani sayısal veridir. Önerilen yöntem METİNSEL veriler için geçerlidir.

 

[ÖmerFaruk]

Neden sadece Çarşambayı renklendiriyorsunuz?
Çarşamba olan hücrenin tamamını renklendirmeyi neden tercih etmiyorsunuz?

 

[gicimi]

Mesajda "Çarşamba" isminin kırmızı renkte olmasını istediğiniz için bu yöntemi belirttim. Korhan Bey'in söylediği gibi bahset olduğum durum Metinsel veriler içindir.

 

[izcik]

Biraz anladım sanıyorum.
Denemeler yapacağım.

Ömer Faruk uzmanım güzel sordunuz.
Bir doktor arkadaşıma randevu listesi tasarlayayım dedim. Daha başındaydım. Yeni başlamıştım. Günler renkli görünürse daha kolay farkedilir, gözü yormaz diye düşünmüştüm

 

[gicimi]

https://s5.dosya.tc/server5/s54yul/Randevu_Takvimi_Sablonu.xlsx.html

Örnek işinize yarayabilir.

 

[izcik]

Bir küçük soru Sn uzmanlarım.

Örnek olarak 5 nolu mesajdaki dosya gibi, A sütununda tarihler var.

Dosyayı açtığımızda o günün tarihi (atıyorum)
05.10.2021
olsun.

05.10.2021 tarihi olan satırı, en üst satırın bir altına getirecek şekilde kod yazılabilir mi? (En üstte başlık olacağı için, en üstün bir altına gelmesi, daha iyi olacaktır. 2. satırın yeri gibi)

Amaç; dosya açıldığı zaman o günün tarihi olan satır, sayfanın en üstünün bir altında görünsün.

 

[ÖmerFaruk]

Diyelim listeniz 1.10.2021 den başlıyor.
Bugün ayın 5 i
Açtınız 2.satırda 5.10.2021 güzüküyor

1-2-3-4.10.2021 satırları
silinecek mi?
gizlenecek mi?
aşağı mı kayacak?

 

[izcik]

Diyelim listeniz 1.10.2021 den başlıyor.
Bugün ayın 5 i
Açtınız 2.satırda 5.10.2021 güzüküyor

1-2-3-4.10.2021 satırları
silinecek mi?
gizlenecek mi?
aşağı mı kayacak?

Sorularınız güzel uzmanım.
Sadece aşağı kayacak uzmanım. Maksat o günün satırı, dosya açılınca hemen üstte görünsün, ikinci sırada görünsün. Aramaya uğraşılmasın diye düşündüm. Aklımdan böyle geçti.

 

[ÖmerFaruk]

Verdiğiniz örnek dosya doğrultusunda olmak üzere,
Aşağıdaki kodları Çalışma Kitabı Kod Sayfasına yapıştırın.
Dosyanızı kapatıp açarak deneyin.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Bul As Range, Kopyala As Date, SonrakiTarih As Date
Application.DisplayAlerts = False
Do
gün = gün + 1
SonrakiTarih = DateAdd("d", gün, Range("A2"))
Set Bul = Sheets("Sayfa1").Range("A:A").Find(SonrakiTarih)
If Not Bul Is Nothing Then Exit Do
If gün > 999 Then Exit Sub
Loop
Kopyala = Range("A2")
Range("A3:A" & Bul.Row - 1).Copy Range("A2:A" & Bul.Row - 2)
Range("A" & Bul.Row - 1) = Kopyala
ActiveWorkbook.Save
Application.DisplayAlerts = True
End Sub

Private Sub Workbook_Open()
Dim Bul As Range, Kopyala As Date
Set Bul = Sheets("Sayfa1").Range("A:A").Find(Date)
If Bul Is Nothing Then Exit Sub
Kopyala = Bul.Value
Range("A2:A" & Bul.Row - 1).Copy Range("A3:A" & Bul.Row)
Range("A2") = Kopyala
End Sub

 

[izcik]

Verdiğiniz örnek dosya doğrultusunda olmak üzere,
Aşağıdaki kodları Çalışma Kitabı Kod Sayfasına yapıştırın.
Dosyanızı kapatıp açarak deneyin.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Bul As Range, Kopyala As Date, SonrakiTarih As Date
Application.DisplayAlerts = False
Do
gün = gün + 1
SonrakiTarih = DateAdd("d", gün, Range("A2"))
Set Bul = Sheets("Sayfa1").Range("A:A").Find(SonrakiTarih)
If Not Bul Is Nothing Then Exit Do
If gün > 999 Then Exit Sub
Loop
Kopyala = Range("A2")
Range("A3:A" & Bul.Row - 1).Copy Range("A2:A" & Bul.Row - 2)
Range("A" & Bul.Row - 1) = Kopyala
ActiveWorkbook.Save
Application.DisplayAlerts = True
End Sub

Private Sub Workbook_Open()
Dim Bul As Range, Kopyala As Date
Set Bul = Sheets("Sayfa1").Range("A:A").Find(Date)
If Bul Is Nothing Then Exit Sub
Kopyala = Bul.Value
Range("A2:A" & Bul.Row - 1).Copy Range("A3:A" & Bul.Row)
Range("A2") = Kopyala
End Sub

Hemen deniyorum ÖmerFaruk uzmanım.

 

[izcik]

Verdiğiniz örnek dosya doğrultusunda olmak üzere,
Aşağıdaki kodları Çalışma Kitabı Kod Sayfasına yapıştırın.
Dosyanızı kapatıp açarak deneyin.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Bul As Range, Kopyala As Date, SonrakiTarih As Date
Application.DisplayAlerts = False
Do
gün = gün + 1
SonrakiTarih = DateAdd("d", gün, Range("A2"))
Set Bul = Sheets("Sayfa1").Range("A:A").Find(SonrakiTarih)
If Not Bul Is Nothing Then Exit Do
If gün > 999 Then Exit Sub
Loop
Kopyala = Range("A2")
Range("A3:A" & Bul.Row - 1).Copy Range("A2:A" & Bul.Row - 2)
Range("A" & Bul.Row - 1) = Kopyala
ActiveWorkbook.Save
Application.DisplayAlerts = True
End Sub

Private Sub Workbook_Open()
Dim Bul As Range, Kopyala As Date
Set Bul = Sheets("Sayfa1").Range("A:A").Find(Date)
If Bul Is Nothing Then Exit Sub
Kopyala = Bul.Value
Range("A2:A" & Bul.Row - 1).Copy Range("A3:A" & Bul.Row)
Range("A2") = Kopyala
End Sub

Uzmanım elinize emeğinize sağlık. Bir küçük hata var sanıyorum. Hemen ivedilikle bir örnek dosya yükleyeceğim.

 

[izcik]

Uzmanım
A1 hücresindeki Başlık yazısı gidiyor
22.09.2021 tarihli hücre (ya da satır) kesilip A2’ye geliyor ama;
diğer bütün tarihler aynı şekilde duruyor.

ornek2.xlsm dosyasını indir - download

ornek2.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[ÖmerFaruk]

Bende de bir kere verdi ama sebebini anlamadım.
Kodlarda ufak değişiklik yaptım. Takip edebilmek için.
Workbook kodlarını silin, Sayfa1 in kod sayfasına aşağıdakileri

Private Sub Worksheet_Activate()
Module1.Açarken
End Sub

Private Sub Worksheet_Deactivate()
Module1.Kapatırken
End Sub

Module1 içine de aşağıdakileri yapıştırın

Sub Kapatırken()
Dim Bul As Range, SonrakiTarih As Date
With Sheets("Sayfa1")
    If .Range("A2") < Date Then Exit Sub
    Application.DisplayAlerts = False
    Do
    gün = gün + 1
    SonrakiTarih = DateAdd("d", gün, Date)
    Set Bul = .Range("A:A").Find(SonrakiTarih)
    If Not Bul Is Nothing Then Exit Do
    If gün > 999 Then Exit Sub
    Loop
    .Range("A3:A" & Bul.Row - 1).Copy .Range("A2:A" & Bul.Row - 2)
    .Range("A" & Bul.Row - 1) = Date
    Application.DisplayAlerts = True
End With
End Sub

Sub Açarken()
Dim Bul As Range
    If Range("A2") = Date Then Exit Sub
    Set Bul = Range("A:A").Find(Date)
    If Bul Is Nothing Then Exit Sub
    Range("A2:A" & Bul.Row - 1).Copy Range("A3:A" & Bul.Row)
    Range("A2") = Date
    Range("A2").Activate
End Sub

 

[izcik]

Hemen itinayla birçok denemeler yapacağım Sayın ÖmerFaruk uzmanım. Kafama takılan şeyler olursa size arz edeceğim

 

[izcik]

Uzmanım denemeler yaptım olmadı maalesef
Call ile çağırdım, makro butonlarıyla denedim, workbook’u denedim, olmadı. Nerede hata yaptığımı anlayamadım.

Size örnek dosya arz ediyorum

OmerFaruk_uzmanima_ornek1.xlsm dosyasını indir - download

OmerFaruk_uzmanima_ornek1.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc