ادراج الخلية B2 في A3 (ملف مليئ يحتاج الى معالجة)

[عبدالقادر شحرور]

السلام عليكم

لدي المرفق التالي هل أجد حل له هنا ؟

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

New Microsoft Office Excel Worksheet.zip

[دغيدى]

الأخ /عبدالقادر شحرور

السلام عليكم

حسب مافهمت من طلبكم

نحياتى

** دغيدى **

New Microsoft 2.rar

[عبد الفتاح كيرة]

إذا كنت مستغنيا عن البيانات فى العمود a

و تريد استبدالها

ضع المعادلة

=B2

فى a3

واسحبها لأسفل

تم تعديل ديسمبر 7, 2010 بواسطه kemas

[عبدالقادر شحرور]

وعليكم السلام إخواني الكرام

السلام عليكم

المراد بقاء البيانات في العمود a

وجلب البيانات من b كما ذكرت لكم

[عبد الفتاح كيرة]

يعنى تريد ربط البيانات بين الخليتين؟

الكود :

Dim cel As Range

Dim lr As Long

lr = Range("a" & Rows.Count).End(xlUp).Row

For Each cel In Range("a2:a" & lr)

cel.Value = cel.Offset(-1, 1) & cel.Value

Next cel

المرفقات

New Microsoft Office Excel Worksheet.zip

[عبدالقادر شحرور]

السلام عليكم أخ kemas

المراد كما في المرفق

ولك الشكر

11.zip

[عبد الفتاح كيرة]

تفضل هذا الكود

Sub ÒÑ1_ÇäÞÑ()

x = 2

For i = 2 To 10000 Step 2

Range("d" & i) = Range("a" & x)

Range("d" & i + 1) = Range("b" & x)

x = x + 1

Next i

End Sub

الملف بالمرفقات

New Microsoft Office Excel Worksheet-kemas.zip