Cümle İçinde geçen tarih ve günü otomatik ayarlama

[yolcu50]

iyi çalışmalar... ustalarım aşağıda verdiğim örnekte olduğu gibi Excell sayfasında cümle içinde geçen tarih ve o tarihe ait günün otomatik olarak yazılmasını nasıl ayarlıyabilirim. tarihimiz bu güne ait tarih değil b2 sütununa yazacağımız tarih olacak

........................ 20/11/2007 (b2 Sütunuda yazılı tarih) ve Salı gününe ait........... şeklinde cümlemiz devam ediyor.

 

[uzmanamele]

aşağıdaki kodu bu siteden bulmuştum.
bir modül ekleyin ve kodları yazın, hücreye "=Rakam_kelime(A1)" formülünü yazın, işinizi görebilir.

Function Rakam_kelime(txt As String, Optional num As Boolean = True)
Dim m As Object
With CreateObject("VBScript.RegExp")
.Pattern = "[^A-Za-z]+"
.Global = True
If num Then
For Each m In .Execute(txt)
Rakam_kelime = Rakam_kelime & m.Value
Next
Else
Rakam_kelime = .Replace(txt, "")
End If
End With
End Function

 

[Ferhat Pazarçevirdi]

Merhabalar

Alternatif olarak;

="........................ "&METNEÇEVİR(B2;"gg/aa/yyyy")&" ve " & METNEÇEVİR(B2;"gggg")&" gününe ait........... "

fonksiyonunu da kullanabilirsiniz

 

[yolcu50]

Merhabalar

Alternatif olarak;

="........................ "&METNEÇEVİR(B2;"gg/aa/yyyy")&" ve " & METNEÇEVİR(B2;"gggg")&" gününe ait........... "

fonksiyonunu da kullanabilirsiniz

ustalarım teşekkür çalıştı.

 

[ECYavuz]

Yine Selam, Çalışmak güzel şey...
B2 kutucuğuna tarih girdiğinizi varsayıyoruz.
Kullanmadığınız gizli bir kutucuğa da şu formülü yazın; Örnek olarak B10 kutucuğu olsun....
=EĞER(HAFTANINGÜNÜ(B2)=1;"Pazar";EĞER(HAFTANINGÜNÜ(B2)=2;"Pazartesi";EĞER(HAFTANINGÜNÜ(B2)=3;"Salı";EĞER(HAFTANINGÜNÜ(B2)=4;"Çarşamba";EĞER(HAFTANINGÜNÜ(B2)=5;"Perşembe";EĞER(HAFTANINGÜNÜ(B2)=6;"Cuma";"Cumartesi"))))))

Sanırım buraya kadar tamam...

Yazdığınız kutucukdaki formül/cümle şöyle olmalı...
="yolcu50 kardeşimin sorusu " & B2 & " tarihinde " & B10 & " günü cevaplandırılmaya çalışıldı..."

Kolay gelsin....

 

[ECYavuz]

Doğrudur.... Teşekkürler....

 

[yolcu50]

EC Yavuz sen bir harikasın .....