Hücreye tarih ama...

[acolkesen1]

İyi bayramlar arkadaşlar,
Hangi tarihte olursak olalım, hücreye içinde bulunduğumuz yılın ilk gününü tarih olarak yazdırmak istiyorum. Örneğin, bu günü esas alırsak A1 hücresine; 01.01.2009 şeklinde..
İlgilenen arkadaşlara teşekkür ederim.

 

[Orion1]

Çalışma sayfasının kod bölümüne(Modülüne)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Target.Value = DateSerial(Year(Date), 1, 1)
Target.NumberFormat = "dd.mm.yyyy"
End Sub

 

[acolkesen1]

Merhaba Sayın Evren Gizlen,
ilginiz ve çözümünüz için çok teşekkür ederim. Esen kalın..

 

[haso_excel]

Merhaba arkadaşlar,

Sub YIL()
For a = 2 To WorksheetFunction.CountA(Range("B:B")) + 1
a.Value = DateSerial(Year(Date), 1, 1)
a.NumberFormat = "yyyy"
Next a
End Sub

yukarıdaki kodu B2 hücresinden başlayarak B kolonundaki en son hücreye kadar "YYYY" formatına getirmeye çalışıyorum. Gelen veri 01/09/2010 formatında yardımcı olurmusunuz?

 

[Ömer]

Merhaba,

B kolonundaki son hücreye göre bakılıp hangi kolana veri yazılacak?

A kolununa göre hazırladım..

Sub Yıl()
son = [B65536].End(3).Row
For i = 2 To son
    Cells(i, "[B]a[/B]") = Format(Date, "yyyy")
Next i
End Sub

.

 

[haso_excel]

Teşekkürler

 

[haso_excel]

Üstadım olmuyor. Dosyam ekde sizin kod ile c kolonunda 2010 çıkıyor, B kolonunda 2009 un tarihleri olmasına rağmen. Ben C kolonuna gelmesini istediğim gibi yazdım.

 

[Ömer]

Bu şekilde deneyin.

Sub Yıl()
son = [B65536].End(3).Row
For i = 2 To son
    Cells(i, "c").Value = Format(Cells(i, "b"), "yyyy")
Next i
End Sub

.

 

[haso_excel]

Budur üstadım elinize sağlık