Veri birleştirilmesi sonrasında yeni veride yazı biçimlendirme

[pesut]

Merhaba Excel Ustadları,

C2: 05.02.2017 - Formun güncellendiği tarih

="Bugün; "&METNEÇEVİR(BUGÜN();"gg.aa.yy")&" ve bu form en son "&BUGÜN()-C2&" gün önce güncellenmiştir."

formülünü kullanıyorum ve çıkan sonuç;

Bugün; 07.02.17 ve bu form en son 2 gün önce güncellenmiştir.

Burada rakamla 2 yazısının kalın ve daha büyük yazdırmam mümkün mü?

 

[Murat OSMA]

Formülünüzü hücrelere bölerek yapabilirsiniz.
2 sayısını veren formülü farklı bir hücreye yazın ve istediğiniz özellikleri verin.

Bu şekilde..

 

[pesut]

Formülünüzü hücrelere bölerek yapabilirsiniz.
2 sayısını veren formülü farklı bir hücreye yazın ve istediğiniz özellikleri verin.

Bu şekilde..

Hocam hücre içi bir çözüm olursa daha güzel olacak, çünkü formun bir tasarımı var ve dışına çıkamıyorum.

 

[Merhum İdris SERDAR]

.


Bir de buna bakın.

http://s9.dosya.tc/server2/kyk77l/deneme.xlsx.html

Hücre içi çözüm olabileceğini sanmıyorum.

.

 

[Ömer BARAN]

Merhaba.

Belki makro kullanarak aşağıdaki şekilde çözüm olabilir.
İşlemin A1 hücresinde yapılacağı varsayılmıştır.

-- Alt taraftan uygulama istediğiniz sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- Açılan VBA ekranında, sağ taraftaki boş alana aşağıdaki kod'u yapıştırın.
-- kod, sayfada herhangi bir hücrede değişiklik olduğunda çalışarak istediğinizi gerçekleştirecektir.
.

[FONT="Arial Narrow"][B]Private Sub Worksheet_Calculate()[/B]
If IsDate([B][COLOR="red"][C2][/COLOR][/B]) And [B][COLOR="red"][C2][/COLOR][/B] < Date Then
[B][COLOR="blue"][A1][/COLOR][/B] = "Bugün; " & Date & " ve bu form en son " & (Date - CDate([B][COLOR="red"][C2][/COLOR][/B])) & " gün önce güncellendi."
    With [B][COLOR="blue"][A1][/COLOR][/B].Characters(Start:=37, Length:=WorksheetFunction.Search("gün önce", [A1], 1) - 38).Font
        .Size = [B]24[/B]: .Bold = True: .Color = [COLOR="Red"]vbRed[/COLOR]
    End With
Else: [B][COLOR="Blue"][A1][/COLOR][/B] = "": End If
[B]End Sub[/B][/FONT]

 

[pesut]

Herbirinize ayrı ayrı teşekkür ederim, emeğinize sağlık..
Hürmetler