Tarihde yıl aktarma

[eminuslu]

Sevgili dostlar ekte gönderdiğim dosyamda D3 sütununa 31.12.2013 tarihini yazıp yükselt butonuna tıklayıncası C sütunundaki tarihlerin ay ve günü sabit kalıp yıl 2013 yerine 2014 olsun ve D3 sütunundaki tarih 31.12.2013 değilse veya hücre boş ise uyarı versin istiyorum dosyam ektedir herkese iyi geceler.

 

[Mahir64]

MErhaba

If Range("D2") <> "31.12.2013" Then
MsgBox "HATA..!", vbCritical
Else
Range("C3:C6").Replace What:="2013", Replacement:="2014", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
          
End If

 

[Emir Hüseyin Çoban]

. . .

Alternatif olsun;

İşlem Sonucu:

Sub KOD()

If Range("D2").Text <> "31.12.2013" Then
MsgBox " Tarih 31.12.2013 e eşit değil ", vbCritical
Exit Sub
Else
End If

For i = 3 To [C65536].End(3).Row

If Format(Range("D2"), "yyyy") = Format(Cells(i, "C"), "yyyy") Then
Cells(i, "C") = Format(Cells(i, "C"), "dd.mm." & 2014)
Else
MsgBox Cells(i, "C").Address(0, 0) & " uyumsuz veri", vbCritical
End If
Next i

End Sub

. . .

 

[eminuslu]

Mahir bey ve Hüseyin bey çok teşekkür ederim tam istediğim gibi olmuş

 

[Mahir64]

İyi çalışmalar.