Tarih > 01.01.2017'den Hata ver

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Tarih > 01.01.2017'den Hata ver

İleti#1)  mcb1991 » 21 Kas 2020 13:03

Merhaba,

C Sutününda tarih var c2 sutünündaki değer 01.01.2017'den küçükse boyaması gerekiyor fakat,
henüz excel vba'da tarihin kullanınımını görmediğim için yapamıyorum. İşinde biraz acelesi olduğu için buraya yazıyorum. Yardımcı olabilir misiniz?

Formda baktım biraz fakat anahtar kelimeleri bilemediğim için sonuca ulaşamadım :/

Kod: Tümünü seç
Sub bir()
'B Sutününü tarih Bugünden büyük mü diye kontrol ediyor.
Set k = Worksheets("sayfa1")
startcell = 2

Do Until k.Range("A" & startcell).Value = ""

If k.Range("C" & startcell).Value > ---- "01.01.2017" ---- Then
k.Range("D" & startcell).Value = "Görüşme tarihi 01.01.2017'den küçük olamaz."
k.Range("C" & startcell).Interior.Color = VBA.ColorConstants.vbRed
k.Range("A" & startcell).Interior.Color = VBA.ColorConstants.vbRed
'işlem sonucu  DA sutününda
End If


startcell = startcell + 1
Loop

End Sub
Kullanıcı avatarı
mcb1991
Yeni Başlamış
 
Kayıt: 12 Ağu 2019 10:06
Meslek: Genel Koordinatör
Yaş: 29
İleti: 47
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Pendik

Cevap: Tarih > 01.01.2017'den Hata ver

İleti#2)  Miraç CAN » 21 Kas 2020 15:24

If k.Range("C" & startcell).Text olarak deneyin.
Kullanıcı avatarı
Miraç CAN
Site Dostu
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 39
İleti: 803
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya & Adana


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 0 misafir

Bumerang - Yazarkafe