• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Hücreye tarih ama...

Katılım
5 Aralık 2007
Mesajlar
635
Excel Vers. ve Dili
Office 2007
İ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.
 
Çalışma sayfasının kod bölümüne(Modülüne) :cool:
Kod:
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
 
Merhaba Sayın Evren Gizlen,
ilginiz ve çözümünüz için çok teşekkür ederim. Esen kalın..
 
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?
 
Merhaba,

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

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

Kod:
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

.
 
Ü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.
 

Ekli dosyalar

Bu şekilde deneyin.

Kod:
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
.
 
Budur üstadım elinize sağlık
 
Geri
Üst