المساعد كيف يمكن نسخ الخلية دون تحديد اسم ورقة العمل sheets(this sheet)

[abdulkreem]

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

تحية طيبة وبعد .......

انني الان اعمل على كود ترحيل

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

والمساعدة هي

تكمن في هذا الكود

Cells(emptyRow, 4).Value = Sheets("ddd").Cells(2, 3).Value

حيث هنا لا اريد تحديد اسم الشيت لانه سوف ينعمل نسخ اكثر من مرة وزر الامر لازم يكون موجود به

اريد تعديل هذا الكود بحيث انه Cells(emptyRow, 4).Value

تساوي

Sheets(this sheet not "ddd").Cells(2, 3).Value

الكود الكامل ادناه

Sub Button4_Click()

Dim emptyRow As Long

Make Sheet1 Active

Sheets(1).Activate

Determine EmptyRow

emptyRow = WorksheetFunction.CountA(Range("B:B")) + 1

Export Data to worksheet

Cells(emptyRow, 2).Value = Sheets("ddd")Cells(2, 1).Value

Cells(emptyRow, 3).Value = Sheets("ddd").Cells(2, 2).Value

Cells(emptyRow, 4).Value = Sheets("ddd").Cells(2, 3).Value

Cells(emptyRow, 5).Value = Sheets("ddd").Cells(2, 4).Value

Cells(emptyRow, 6).Value = Sheets("ddd").Cells(2, 5).Value

Cells(emptyRow, 7).Value = Sheets("ddd").Cells(2, 6).Value

Cells(emptyRow, 8).Value = Sheets("ddd").Cells(2, 7).Value

Cells(emptyRow, 9).Value = Sheets("ddd").Cells(2, 8).Value

Cells(emptyRow, 10).Value = Sheets("ddd").Cells(2, 9).Value

Cells(emptyRow, 11).Value = Sheets("ddd").Cells(2, 10).Value

Cells(emptyRow, 12).Value = Sheets("ddd").Cells(2, 11).Value

End Sub

طبعا هذا الكود ترحيل البيانات الى شيت اخر متدرج

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

هذا الكود خاص لبرنامج ادارة مستودعات

طبعا عندما تائتي معد او صنف جديدة لزم تعمله كرت وفيه بيناته

الان البيانات تعباء في الخلية

Cells(emptyRow, 8).Value = Sheets("ddd").Cells(2, 7).Value

Cells(emptyRow, 9).Value = Sheets("ddd").Cells(2, 8).Value

لما اعمل تحديث او ترحيل يرحل الى الاماكن المطلوبة لكن

عندما اعمل اي تعديل واعمل تحديث يضيف سطر جديد بل البيانات المعدلة والقديم يبقى

مثال

البيانات القديمة : مسطرة م12 2012

البيانات الجديد : مسطرة م15 2013

وهكذا

المساعدة المطلوبة انه لا اريد ان يضيف سطر بل يعدل على نفس السطر القديم الذي انشاءه

البيانات القديمة : مسطرة م12 2012

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

تحياتي

وشكرا لجميع

تم تعديل أكتوبر 19, 2012 بواسطه abdulkreem

[abdulkreem]

up

[abdulkreem]

34قراءة دون جواب ؟؟

[بن علية حاجي]

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

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

أخوك بن علية

[abdulkreem]

اخ بن علية حاجي شكرا جزيلا على الرد الجميل والمتالق

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

وانا اعلم ذالك

انه قد تكون فكرتي غير مفهومة

انظر الى هذا المثال

وارجوك اذا كانت العملية غلبة او صعبة لا تتعب حالك به وشكرا مرة اخرى لك

ولجميع القراء

تحياتي

This sheets.rar

تم تعديل أكتوبر 20, 2012 بواسطه abdulkreem