أريد مساعدة سريعة في ترحيل البيانات

[mohager1040]

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

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

المطلوب أعزكم الله هو

أن يكون الترحيل مرة واحدة فقط بحيث عند الضغط علي زر الترحيل يحدث تعطيل لزر الترحيل و يتم تفعيل زر التراجع , و عند الضغط علي زر

التراجع يحدث العكس أي يعطل زر التراجع و يفعل زر الترحيل .

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

BOOK.rar

[عبدالله المجرب]

السلام عليكم

تم عمل اللازم بخصوص الزر

جرب المرفق

BOOK.rar

[mohager1040]

أخي عبد الله جزاك الله كل خير

و أرجو منك تفضلاً مساعدتي في إيجاد حل لمشكلة آخري ظهرت لي و هي عند أخذ نسخة من الملف لشهر آخر جديد يكون الزر مفعل ( تراجع ) و أريد عند تعديل قيم خانة الشهر الجاري تتفعل خاصية الترحيل لإمكانية ترحيل جملة الشهر الجديد .

أرجو من سعادتكم التفضل بمساعدتي

و جُزيت الجنة إن شاء الله

تم تعديل ديسمبر 14, 2011 بواسطه mohager1040

[عبدالله المجرب]

السلام عليكم

ضع هذا الكود تحت الكود السابق بالضبط

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("C11:D26")) Is Nothing Then

CommandButton1.Caption = "ترحيل"

End If

End Sub

[mohager1040]

أخي عبد الله

جزاك الله كل خير و بارك فيك و زادك الله علماً و عملاً

و أعتذر إن كنت قد أثقلت علي سعادتكم

تم تعديل ديسمبر 14, 2011 بواسطه mohager1040