القيمة الافتراضية لعمود كامل

[NAWAS]

السلام عليكم

قرأت عن وضع قيمة افتراضية لخلية بحيث إذا لم نكتب فيها شيء فإن قيمتها تكون

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

فما هو الحل برأيكم

ودمتم

[امير عاطف]

Private Sub Worksheet_Change(ByVal Target As Range)

Dim c As Variant

For Each c In Worksheets("Sheet1").Range("a:a")

    If c.Value = "" Then

       c.Value = "Officena"

      Exit For

    End If

   Next c

End Sub

          

[محمد طاهر عرفه]

كود جميل أخي أمير :yess:

تم تعديل موضوع الأرشيف باضافة الكود الجديد

و وضع مثال شامل للثلاث حالات

خلية

عمود

مجموعة خلايا

الموضوع من هنا

[NAWAS]

جزاكم الله خيراً جميعاً

وشكراً جزيلاً لكم