الترحيل بشرط وجود تاريخ في التيكست بوكس

[الصفتى]

السادة الخبراء الافاضل لدى تحدى فى كود ترحيل و هو انه فى حالة وجود تكست بوكس مخصص للتاريخ فارغ فان الكود لا يعمل مع العلم ان الفورم يحتوى على العديد من التكست بوكس المخصصه و احيانا لا تكون جميعها مكتملة --  مرفق جزء من الكود

Dim lastRow As Long
lastRow = ThisWorkbook.sheets("SCREEN").Range("G1000000").End(xlUp).Row
lastRow = lastRow + 1
Application.ScreenUpdating = False
With ThisWorkbook.sheets("SCREEN")
.Range("G" & lastRow).Value = TXT1.Value
.Range("H" & lastRow).Value = CDate(TXT2)
.Range("I" & lastRow).Value = Txt16.Value
.Range("J" & lastRow).Value = Txt14.Value
.Range("K" & lastRow).Value = Txt15.Value
.Range("L" & lastRow).Value = Txt7.Value
.Range("M" & lastRow).Value = Txt8.Value
.Range("N" & lastRow).Value = Txt9.Value
.Range("O" & lastRow).Value = CDate(Txt12)

و استخدمت CDATE  لحل مشكلة ان التاريخ كان يرحل بصيغه مختلفه فظهرت لى مشكلة انه يرفض التكست بوكس الفارغه
و لكم جزيل الشكر

[أ / محمد صالح]

يمكنك استعمال هذا الشرط بدلا من السطر المذكور

If IsDate(Txt2) then .Range("H" & lastRow).Value = CDate(Txt2)

بالتوفيق