• DİKKAT

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

Tarihde yıl aktarma

Katılım
25 Ekim 2006
Mesajlar
275
Excel Vers. ve Dili
türkçe
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.
 

Ekli dosyalar

MErhaba

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

Alternatif olsun;

İşlem Sonucu:
attachment.php


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

. . .
 

Ekli dosyalar

  • 1_01.jpg
    1_01.jpg
    33 KB · Görüntüleme: 18
Mahir bey ve Hüseyin bey çok teşekkür ederim tam istediğim gibi olmuş
 
İyi çalışmalar.
 
Geri
Üst