هل يمكن تعديل برمجة هذا الشيت

[منير لبيب]

مرفق  شيت قد حملته من المنتدى  وهو خاص بمراقبة التغيرات التى تحدث  فى الشيت وهو شيت رائع  

 

ولكن تصميمة لشيت 7 اعمدة   فهل يمكن تعديل برمجته ليناسب شيت    90 عامود مثلا  

 

وهى تكون عملية مرهقة لو  اتبعنا نفس الخطوات واكملنا عليها بعد 7  

 

وهو موضوع هام جدا    وشكرا 

 

Nouveau Feuille de calcul Microsoft Exce1l.rar

[عبدالله باقشير]

السلام عليكم

 

تفضل غير الرقم 90 الى العمود الذي تريد

Private Sub Worksheet_Change(ByVal Target As Range)
Dim LR As Long
Select Case Target.Column: Case 1 To 90
    If Not IsEmpty(Target) Then
        With Sheets("تعديلات")
            LR = .Cells(Rows.Count, "A").End(xlUp).Row + 1
            .Cells(LR, 1) = Target.Value
            .Cells(LR, 2) = Format(Now, "h:mm:ss")
            .Cells(LR, 3) = Format(Date, "dd-mm-yyyy")
            .Cells(LR, 4) = Target.AddressLocal
        End With
    End If
End Select
End Sub

تحياتي

[أبو زهرة]

السلام عليكم استاذ / عبدالله باقشير

جزاكم الله خيرا.  هل يمكن اضافة عمود فى ورقة تعديلات . للقيمة المعدلة(السابقة)

[عبدالله باقشير]

السلام عليكم استاذ / عبدالله باقشير

جزاكم الله خيرا.  هل يمكن اضافة عمود فى ورقة تعديلات . للقيمة المعدلة(السابقة)

 

وعليكم السلام

 

عندك في الكود اربعة اعمدة

.Cells(LR, 1) = Target.Value
            .Cells(LR, 2) = Format(Now, "h:mm:ss")
            .Cells(LR, 3) = Format(Date, "dd-mm-yyyy")
            .Cells(LR, 4) = Target.AddressLocal

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

 

مثلا

Cells(LR, 5)="s"

[منير لبيب]

شكرا للاستاذ عبد الله 

 

فالموقع  كبير بالعمالقة   ربنا يعوضكم خيرا