tarih günü

[acar6783]

Kolay gelsin arkadaşlar.

hazırlamış olduğum kod a1 deki tarihin(01.01.2013) gününü veriyor "pazar" olarak fakat hücre içerisine baktığımda "30.01.1900" yazıyor. bu durumu sadece "pazar" olarak yazması için nasıl düzeltebiliriz

Sub trh()

    Range("B1") = Day(a1)
    NumberFormat = "dddd"
End Sub

 

[systran]

Metneçevir(A1;"dddd");

 

[acar6783]

Sub trh()

    Range("B1") = WorksheetFunction.Text(Range("a1").Value, "dddd")
  
End Sub

Metnecevir fonksiyonunu kullanarak hazırladım fakat bu seferde de ingilizce olarak veriyor.Ne yapayım ki türkçe olsun?

 

[systran]

ofis 2007 TR kullanıyorum demişsin; o zaman
denetim masasından, bölge ve dil seçeneklerine bakar mısın? orda bir yerde bölgesel ayarlar olması lazım. TR mi EN mi?

 

[acar6783]

türkçe kullanıyorum ama kod calıştırınca ingilizce yazıyor..

 

[acar6783]

Bir cevabı olan arkadaş varmıdır?

 

[Emir Hüseyin Çoban]

. . .

Sub KOD()
Range("B1") = Format(Range("A1"), "dddd")
End Sub

. .

 

[acar6783]

Süper teşekkürler...