دمج كودين VBA فى كود واحد

[محمد خليل السيد]

ازاى اقدر ادمج الكودين دول فى كود واحد

1- 

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell   As Range
    On Error Resume Next
    Application.EnableEvents = False
    For Each cell In Target
        cell = UCase(cell)
    Next
    Application.EnableEvents = True
End Sub

2-

 Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'when entering data in a cell in Col C
 On Error GoTo enditall
 Application.EnableEvents = False
 If Target.Cells.Column > 0 Then
 n = Target.Row
 If Excel.Range("C" & n).Value <> "" Then
 Excel.Range("A" & n).Value = Now
 End If
 End If
enditall:
 Application.EnableEvents = True
 End Sub

 

[ابو عبدالبارى]

الأخ الكريم محمد خليل السيد

بعد التحية

اليك المرفق التالى لعلة يفى بالغرض

 

 

abo_abary_دمج كودين.rar

[محمد خليل السيد]

أشكرك جدا استاذ ابو عبدالبارى 

بالفعل هذا هو المطلوب

جزاك الله كل خير

[ابو عبدالبارى]

31 دقائق مضت, محمد خليل السيد said:

أشكرك جدا استاذ ابو عبدالبارى 

بالفعل هذا هو المطلوب

جزاك الله كل خير

مشكرور على كلماتك الرقيقة جزاك الله كل خير

[محمد خليل السيد]

استاذى الفاضل كنت قد طرحت من فترة - اسبوعين تقريبا - موضوع عن انشاء ملف اكسيل بمواصفات محددة ولكن لم القى اى رد من المنتدى ربما لضيق الوقت خاصة فى رمضان وهذا هو الموضوع الاصلى الذى تم طرحه ( الموضوع الاصلى ) ،فقمت ببحث فى المنتدى على كل جزئية حتى وفقنى الله ثم اطروحات القائمين على المنتدى فى الحصول على ما اردته وسأرفق الملف الذى تم الانتهاء منه فى هذا البوست.

الباسورد المستخدم فى الملف ( mkh )

لكن به مشكلة ارجو ان تكون بسيطة وهى: 

عند الكتابة فى الشيت يعطينى Run-time Error 1004 .

المفترض ان الشيتات كلها محمية عند الدخول اليها ولكن عند فتح الملف يظهر الشيت الاول بدون حماية.

هل يوجد لهذه المشكلة حل ؟

MCI_SALES_7.rar

[محمد خليل السيد]

تم حل المشكلة الثانية 

اقتباس

المفترض ان الشيتات كلها محمية عند الدخول اليها ولكن عند فتح الملف يظهر الشيت الاول بدون حماية.

عن طريق اضافة امر تحديد الشيت الغير المحمى فى بداية التشغيل

 

وتبقى لى المشكلة الاولى

اقتباس

عند الكتابة فى الشيت يعطينى Run-time Error 1004 

 

تم تعديل يونيو 26, 2016 بواسطه محمد خليل السيد

[الجموعي]

 

قم بإشالة هذا السطر لا تظهر لك رسالة الخطأ

'Application.Undo

 

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If ActiveSheet.Name = "Log" Then Exit Sub

Application.EnableEvents = False

UserName = Environ("USERNAME")

NewVal = Target.Value

'Application.Undo

oldVal = Target.Value

lr = Sheets("Log").Range("A" & Rows.Count).End(xlUp).Row + 1

Sheets("Log").Range("A" & lr) = Now
Sheets("Log").Range("B" & lr) = ActiveSheet.Name
Sheets("Log").Range("C" & lr) = Target.Address
Sheets("Log").Range("D" & lr) = oldVal
Sheets("Log").Range("E" & lr) = NewVal
Sheets("Log").Range("F" & lr) = UserName

Target = NewVal

Application.EnableEvents = True
End Sub

 

 

 

 

[ياسر خليل أبو البراء]

عوداً حميداً أخي الغالي الجموعي

لقد اشتقنا لرؤية مشاركاتك

كل عام وأنت بخير

[الجموعي]

17 ساعات مضت, ياسر خليل أبو البراء said:

عوداً حميداً أخي الغالي الجموعي

لقد اشتقنا لرؤية مشاركاتك

كل عام وأنت بخير

ربي يحفظك أستاذي

تقبل الله صيامك

كل عام وانت بالف خير