ترحيل البيانات

[tag4m]

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

كيف اقوم بترحيل بيانات من عمود فى صفحة 1 الى عمود a فى صفحة 2

ثم ترحيل البيانات من نفس العمود بصفحة 1 الى العمود B فى صفحة 2 حيث ان العمود A سبق شغلة ببيانات

اى لا يتم الترحيل الا للعمود الخالى

[tag4m]

توضيح أكثر للسؤال

عندى بيانات فى العمود A

اريد نسخها ولصقها الى العمود B

واذا كان العمود B به بيانات سابقة فيتم اللصق فى العمود C

واذا كان العمود C به بيانات سابقة فيتم اللصق فى العمود D وهكذا

تم تعديل يناير 18, 2005 بواسطه حسام نور

[محمد حجازي]

السلام عليكم ...

جرب الكود التالي :

Sub m()
 NumberCoulmn = 2
 Set myRange = Worksheets("Sheet1").Columns(NumberCoulmn)
 Do Until Application.WorksheetFunction.CountA(myRange) = 0
  NumberCoulmn = NumberCoulmn + 1
  Set myRange = Worksheets("Sheet1").Columns(NumberCoulmn)
 Loop
 Application.ScreenUpdating = False
 Worksheets("Sheet1").Columns(1).Copy
 Worksheets("Sheet1").Columns(NumberCoulmn).Select
 ActiveSheet.Paste
 Worksheets("Sheet1").Range("A1").Select
 Application.ScreenUpdating = True
End Sub

تم تعديل يناير 18, 2005 بواسطه محمد حجازي

[محمد حجازي]

السلام عليكم ...

المرفق :

Tarhel.zip

[tag4m]

استاذنا الكريم (y)

بارك الله فى صحتك وعافيتك ومالك ، وجزاك كل خير

والله انى احبك فى الله وادعو الله ان اكون كريم العطاء مثلك ومثل جميع مشرفيينا

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

تم تعديل يناير 18, 2005 بواسطه tag4m

[jaffjaff]

برنامج جميل جدا

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

وشكرا

[محمد حجازي]

السلام عليكم ...

يمكنك ذلك عن طريق إضافة الأسطر التالية للكود:

  Dim MyDate As String
  MyDate = Application.InputBox(prompt:="أدخل التاريخ", Title:="التاريخ", Type:=2)
  Sheets("Sheet1").Range("A1").Value = MyDate

ويمكنك تغيير اسم الورقة و الخلية التي ترغب بلصق التاريخ فيها كما ترغب.

[jaffjaff]

استاذى الفاضل

1- كيف تم عملية اللصق هذا

='C:\Documents and Settings\Administrator\Desktop\Tarhel\[نسخ من m.xls]Sheet1'!B10

2- بالنسبة لادخال التاريخ نعم يطلب ادخال التاريخ ..لكن لايضعه في الحقل المراد تثبيته

[محمد حجازي]

السلام عليكم ...

بالنسبة للسؤال الأول : تابع الرابط التالي:

http://www.c4arab.com/showlesson.php?lesid=2111

بالنسبة للسؤال الثاني : تأكد من أن الورقة المطلوبة لها نفس الاسم الموجود على الكود (Sheet1 مثلاً) ، وانظر إلى الخلية A1 الموجودة في هذه الورقة (كما هو موجود في الكود).

تم تعديل أبريل 11, 2005 بواسطه محمد حجازي

[jaffjaff]

شكرا