السلام عليكم
قرأت عن وضع قيمة افتراضية لخلية بحيث إذا لم نكتب فيها شيء فإن قيمتها تكون
officena
وكان هذا هو الكود
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Range("a1").Value = "" Then
Range("a1").Value = "Officena"
End If
End Sub
ولكني عندما غيرت في النطاق من A1 إلى A:A
وذلك لكي يشمل الكود العمود كاملاً كانت تظهر رسالة
error 13 ,,,,, Type mismatch
فما هو الحل برأيكم
ودمتم