userformda tarih uyarı mesajı

[chakistes]

merhaba arkadaşlar kütüphane programı hazırlıyorum örnek resimde görüldüğü gibi teslim aldığı tarihe 15 gün eklenecek süresi geçince açıklama hanesine yazacak ve excelde g sütuna yazmasını istiyorum.

 

[Ömer]

Merhaba,

UserForm_Initialize kodlarına aşağıdaki satırları ilave ediniz. Formadaki açıklama TextBox unada diğer TextBox lara aldığınız veri satırını kullanarak sütun ismini G olarak yazarsınız.

    Dim son As Long, i As Long
    son = Cells(Rows.Count, "F").End(xlUp).Row
    Range("G2:G" & Rows.Count) = ""
    For i = 2 To son
        If Cells(i, "F") + 15 < Date Then
            Cells(i, "G") = Cells(i, "F") + 15 & " Tarihinde Süresi Doldu"
        End If
    Next i

 

[chakistes]

merhaba kodu denedim fakat olmadı

 

[YUSUF44]

Örnek excel dosyası paylaşmanızı öneririm.

 

[chakistes]

userformdaki emanet olan program

 

[YUSUF44]

Dosyanızda şifre koruması var.

Ayrıca dosyanızı açınca excel gizleniyor.

Paylaşacağınız dosyalarda şifre olmamasına ya da şifre olacaksa da şifreyi paylaşmaya özen göstermenizi ve ayrıca başkasının açacağı dosyaların o kişinin dosyalarında ya da çalışma düzeninde değişiklik yapmaması için kodları düzenlemenizi öneririm.

 

[chakistes]

kusura bakmayın tekrar ekledim şifreli modülleri kaldırdım. önceki eklemiş olduğum dosyayı silme imkanı varmıdır.

 

[YUSUF44]

Kaydet düğmesindeki

Sheets("EMANET").Range("F" & Bos_Satir).Value = ttarih.Text

kodu, tarih hanesini hücreye metin olarak aktardığı için kodları çalışmadığını düşünüyorsunuz. O satırı aşağıdaki gibi değiştirip deneyin:

Sheets("EMANET").Range("F" & Bos_Satir).Value = CDate(ttarih.Text)

 

[chakistes]

teşekkür ederim eline sağlık