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

[إبراهيم ابوليله]

الاخوه الكرام

اريد كود يقوم بكتابة الاسم اسفل

اخر خليه مستعملهالاجمالى.rar

[أبو حنــــين]

استعمل هذه الكود

Private Sub CommandButton1_Click()

Lr = Cells(Rows.Count, "B").End(xlUp).Row + 1

Cells(Lr, 2) = "إجمالي"

End Sub

[جمال عبد السميع]

أتمني أخي ( إبراهيم ) أن يحقق المطلوب

وإن كنت أعلم مسبقا أنك سوف تفضل كود أستاذي ( أبو حنين ) لكني لم أراه إلا عند رفع مرفقي لما تأخذة المعادلة من تأكيد أنها تقوم بعملها علي أكمل وجه

كذلك قد يفضلها البعض من هواة المعادلات

كتابة كلمة الإجمالي.rar

كتابة كلمة الإجمالي 2.rar

كتابة كلمة الإجمالي 3.rar

تم تعديل نوفمبر 10, 2012 بواسطه mahmoud-lee

[أبو حنــــين]

كما يمكن إجرا ذلك بدون زر و ذلك في حدث الورقة بالكود التالي

Private Sub Worksheet_Change(ByVal Target As Range)

Lr = Cells(Rows.Count, "B").End(xlUp).Row + 1

If Cells(Lr - 1, 2) = "إجمالي" Then

Exit Sub

Else

Cells(Lr, 2) = "أجمالي"

End If

End Sub

[إبراهيم ابوليله]

الاخ ابو حنين

الاخ محمود

عمل رائع لكل منكما وبارك الله فيكما

[إبراهيم ابوليله]

الاخ ابو حنين

هل يمكن وقف عمل الكود

اذا كانت اخر خليه تحتوى

على اسم الاجمالى

وبذك نتفادى تكرار كتابة الاجمالى فى كل مره يتم الضغط فيها على الزر

[أبو حنــــين]

اعتقد أن الكود في المشاركة رقم 4 كان يحتوي على خطأ و ذلك في الحرف إ بدل الحرف أ لكلمة إجمالي و قد صحح بالطريقة التالية دون الحاجة الى زر

Private Sub Worksheet_Selectionchange(ByVal Target As Range)

Lr = Cells(Rows.Count, "B").End(xlUp).Row + 1

If Target.Column = 2 Then

If Cells(Lr - 1, 2).Text = "إجمالي" Then

Cells(Lr, 2) = ""

Exit Sub

Else

Cells(Lr, 2) = "إجمالي"

Exit Sub

End If

End If

End Sub

[إبراهيم ابوليله]

الاخ ابو حنين مشكورا على المساعده

ولكنى لى طلب اخر

ارجو النظر الى المرفقالاجمالى.rar

[أبو حنــــين]

لا تضع زر فيكفي وضع الكود التالي في حدث الورفة كما يلي :

Private Sub Worksheet_Change(ByVal Target As Range)

Lr = Cells(Rows.Count, "B").End(xlUp).Row + 1

If Cells(Lr - 1, 2) = "إجمالي" Then

Cells(Lr - 1, 4) = WorksheetFunction.Sum(Range("D3:D" & Lr - 2))

Exit Sub

Else

Cells(Lr, 2) = "إجمالي"

Cells(Lr, 4) = WorksheetFunction.Sum(Range("D3:D" & Lr - 2))

End If

End Sub

[إبراهيم ابوليله]

الاخ ابوحنين

فعلا الكود جميل ويعمل تمام

ولكن ماذا لو اردنا اظهار البيانات اسفل اخر خليه بخليتن

ولقد غيرت

Lr = Cells(Rows.Count, "B").End(xlUp).Row + 1

الى

Lr = Cells(Rows.Count, "B").End(xlUp).Row + 2

ولكن حدث خطأ

[إبراهيم ابوليله]

للرفع

[أبو أنس حاجب]

السلام عليكم ورحمة الله وبركاته

أخي الفاضل حفظك الله

أظن والله أعلم أن التغيير يتم في هذين السطرين.

أبو أنس

Cells(Lr + 1, 2) = ""

Cells(Lr + 1, 2) = "إجمالي"

[أبو حنــــين]

بعد إذن اخي ابو انس نستعمل الدالة Offset فيكون الكود كالتالي

Private Sub Worksheet_Change(ByVal Target As Range)

Lr = Cells(Rows.Count, "B").End(xlUp).Row + 1

If Cells(Lr - 1, 2) = "إجمالي" Then

Cells(Lr - 1, 4).Offset(2, 0) = WorksheetFunction.Sum(Range("D3:D" & Lr - 2))

Exit Sub

Else

Cells(Lr, 2) = "إجمالي"

Cells(Lr, 4).Offset(2, 0) = WorksheetFunction.Sum(Range("D3:D" & Lr - 2))

End If

End Sub

[إبراهيم ابوليله]

الاخ انس

الاخ ابو حنين

بارك الله فيكما

ولكن ارجو من الاخ ابو حنين

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