مبتدئ ارجو المساعده

[احمد شيخ الشباب]

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

 

اخواني عندي ملف اكسل الشيت الاول يتالف من قائمه العملاء jتقريبا 700 عميل

اسم العميل بالخانه a1 رقم الجوال بالخانه b1  الموقع بالخانه c1

احتاج ربط كل عميل بشية خاص عن طريق الماكرو

مثال

    Sheets("shet2").Select
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "=shet1!RC"

    Sheets("shet3").Select
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "=shet1!R[1]C"

    Sheets("shet4").Select
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "=shet1!R[2]C"

    Sheets("shet5").Select
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "=shet1!R[3]C"

 

ماهي الطريقه الاسرع

جزا الله خيرا كل من ساعدني وكل من فكر في ان يساعدني

[ياسر خليل أبو البراء]

أخي الحبيب أحمد

أهلا بك في المنتدى ..نورت وشرفت بين إخوانك

يرجى إرفاق ملف أخي الفاضل

[احمد شيخ الشباب]

شكرا اخي تم ارفاق الملف

تقبل تحياتي

 

MM.rar

[الجموعي]

شكرا اخي تم ارفاق الملف

تقبل تحياتي

السلام عليكم

قم بإنشاء زر واربطه بالمكرو التالي

هذا نموذج  عميل 1

Sub Macro1()
Dim sh As Worksheet
Dim ws As Worksheet
Set sh = Sheets("SHET")
Set ws = Sheets("shet1")
ws.Range("A12").Value = sh.Range("A3").Value
ws.Range("B12").Value = sh.Range("B3").Value
ws.Range("C12").Value = sh.Range("C3").Value
ws.Range("D12").Value = sh.Range("D3").Value
End Sub

ومع باقي الشيتات عدل ما يجب تعديله

[ياسر خليل أبو البراء]

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

أعتقد أن السائل يطلب التعامل مع 700 عميل أي أنه يجب عليه أن يقوم بالتعديل على الكود لكل هذا العدد من أوراق العمل سيكون أمر مستحيل

[احمد شيخ الشباب]

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

بالفعل التعامل مع 700 عميل 

اشكر كل من اهتم بموضوعي

[ياسر خليل أبو البراء]

الأخ أحمد

هل تريد عمل ارتباط تشعبي لـ 700 شيت ..أم تريد إنشاء 700 ورقة عمل بالنموذج الموجود في ملفك المرفق؟

[احمد شيخ الشباب]

الأخ أحمد

هل تريد عمل ارتباط تشعبي لـ 700 شيت ..أم تريد إنشاء 700 ورقة عمل بالنموذج الموجود في ملفك المرفق؟

اخي العزيز انا بحاجة  انشاء 700 ورقة عمل

وشكرا

[الجموعي]

الأخ أحمد

هل تريد عمل ارتباط تشعبي لـ 700 شيت ..أم تريد إنشاء 700 ورقة عمل بالنموذج الموجود في ملفك المرفق؟

أستاذي القدير / ياسر ابو خليل

ما رايك في هذه الفكرة هل تصلح أم لا

هذه الفكرة في ترحيل البيانات يرحل الصف 3 إلى جميع الشيتات

اريد تعديل منك على الكود بحيث كل صفحة بعد الأخرى ترحل لها الصفوف بالترتيب

مثلا الصفحة 2 يرحل لها بيانات الصف 3

والصفحة 3 يرحل لها بيانات الصف 4

Sub Macro1()
Dim sh As Worksheet
Dim ws As Worksheet
Set sh = Sheets("SHET")
Dim i As Integer
On Error Resume Next
For i = 2 To Sheets.Count
Set ws = Sheets(i)
ws.Range("A12").Value = sh.Range("A3").Value
ws.Range("B12").Value = sh.Range("B3").Value
ws.Range("C12").Value = sh.Range("C3").Value
ws.Range("D12").Value = sh.Range("D3").Value
Next i
End Sub

[ياسر خليل أبو البراء]

أخي الجموعي تفضل

ولكن الأخ الفاضل أحمد يريد إنشاء 700 ورقة عمل ...

Sub Macro1()
    Dim Sh As Worksheet
    Dim Ws As Worksheet
    Set Sh = Sheets("SHET")
    Dim I As Integer
    On Error Resume Next
    For I = 2 To Sheets.Count
        Set Ws = Sheets(I)
        Ws.Range("A12").Value = Sh.Cells(1, I + 1).Value
        Ws.Range("B12").Value = Sh.Cells(2, I + 1).Value
        Ws.Range("C12").Value = Sh.Cells(3, I + 1).Value
        Ws.Range("D12").Value = Sh.Cells(4, I + 1).Value
    Next I
End Sub

سؤالي للأخ أحمد ..ما هي تسمية الصفحات (هل تريد تسميتها عميل 1 ، عميل 2 وهكذا أم تريدها Sheet1 و Sheet2 وهكذا ..

والنموذج المرفق في ملفك هل تريد الاعتماد عليه في إنشاء أوراق العمل

مزيد من التوضيح لأن العمل كبير بعض الشيء ويحتاج لتفاصيل حتى لا نضطر للتعديل أكثر من مرة

[احمد شيخ الشباب]

أخي الجموعي تفضل

ولكن الأخ الفاضل أحمد يريد إنشاء 700 ورقة عمل ...

Sub Macro1()
    Dim Sh As Worksheet
    Dim Ws As Worksheet
    Set Sh = Sheets("SHET")
    Dim I As Integer
    On Error Resume Next
    For I = 2 To Sheets.Count
        Set Ws = Sheets(I)
        Ws.Range("A12").Value = Sh.Cells(1, I + 1).Value
        Ws.Range("B12").Value = Sh.Cells(2, I + 1).Value
        Ws.Range("C12").Value = Sh.Cells(3, I + 1).Value
        Ws.Range("D12").Value = Sh.Cells(4, I + 1).Value
    Next I
End Sub

سؤالي للأخ أحمد ..ما هي تسمية الصفحات (هل تريد تسميتها عميل 1 ، عميل 2 وهكذا أم تريدها Sheet1 و Sheet2 وهكذا ..

والنموذج المرفق في ملفك هل تريد الاعتماد عليه في إنشاء أوراق العمل

مزيد من التوضيح لأن العمل كبير بعض الشيء ويحتاج لتفاصيل حتى لا نضطر للتعديل أكثر من مرة

التسميه تكون

R-001

R-002

وهكذا

[ياسر خليل أبو البراء]

تفضل أخي الحبيب الملف التالي ..جرب زيادة العملاء إلى 700 عميل .. واصبر قليلا لأن الكود سيستغرق بعض الوقت في التنفيذ

Create 700-Sheets.rar

[احمد شيخ الشباب]

تفضل أخي الحبيب الملف التالي ..جرب زيادة العملاء إلى 700 عميل .. واصبر قليلا لأن الكود سيستغرق بعض الوقت في جزاك الله

احتراف تام وكامل ((الكمال لله))

جزاك الله اخي العزيز افضل الجزاء ولا ننسى اخونا المجموعي جزاه الله ايضا افضل الجزاء

وبما انكم استاذه في هذا المجال فان طمعي فيكم كبير والطمع  بالعلم  شيء جميل

اذكركم بالمثل القديم الحديث (( لا تعطيني سمكه بل علمني كيف اصطاد ))

هل ممكن ان تشرحو لي الكود

لكي اقدر ان اعدله واستعمله في ملفاته الثانيه كي لا اطر ان اعود وازعجكم مره اخرى

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

[ياسر خليل أبو البراء]

إن شاء الله عندما يتيسر لي بعض الوقت سأقوم بشرحه ..

وإلى ذلك الحين إذا كنت مهتماً بالتعلم إليك هذا الرابط كبداية لتعلم الصيد

http://www.officena.net/ib/index.php?s=d2affdf4abc5c18e5c1c77ee546461c9&showtopic=56941

تقبل تحياتي

تم تعديل يناير 24, 2015 بواسطه YasserKhalil

[احمد شيخ الشباب]

إن شاء الله عندما يتيسر لي بعض الوقت سأقوم بشرحه ..

وإلى ذلك الحين إذا كنت مهتماً بالتعلم إليك هذا الرابط كبداية لتعلم الصيد

http://www.officena.net/ib/index.php?s=d2affdf4abc5c18e5c1c77ee546461c9&showtopic=56941

تقبل تحياتي

اخ ياسر & اخ  الجموعي

جزاكم الله الجنه وفرج الله همكم ورزقككم من حيث لا تعلمون  ولا تدرون