اكتب هذا الكود في حدث الصفحة
Sub FULFORMULA()
Range("K3").Formula = "=IF(M3<=1,"""",IF(M3>=1,B3))"
Range("k3").Select
Selection.AutoFill Destination:=Range("k3:k14"), Type:=xlFillDefault
End Sub
انسخ هذا الكود و جربه
Private Sub Worksheet_change(ByVal Target As Range)
Dim mrng As Range
Set mrng = Range("c16")
If Not Intersect(Target, mrng) Is Nothing Then
c = Cells(Rows.Count, 4).End(xlUp).Row
Cells(c + 1, 4) = mrng.Value
End If
End Sub
النسخة التي حملتها هي لاوفيس 2003 و هذا البرنامج له حد اقصى (65536 صف)و 255 عامود
بينما نسخة 2010 (1048576 صف و 16384 عامود)
لذا لا مجال لتوسيع النطاق الا اذا استبدلت نسخة الوندوز