ترحيل الى نفس الشيت في اكثر من نطاق

[زوهير]

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

وتقبل الله منا ومنكم الصيام والقيام وسائر الاعمال ان شاءالله

 

طلب هو هل ممكن الترحيل الى نفس الشيت ولكن في اكثر من نطاق

وكذا التعديل والبحث

والمرفق يوضح الطلب اكثر

ترحيل الى اكثر من نطاق.rar

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

أخي الكريم زوهير ..

هل تقصد الترحيل مرتين للنطاقين أم ماذا تقصد بالضبط بالترحيل إلى أكثر من نطاق؟

مزيد من التوضيح

[زوهير]

اخي ياسر اقصد

   

في المرفق مثلا عندما تملاء جميع الصفوف الى اخر صف في الشيت ابتداء من A1 الى J1000000 

 

   ينتقل مباشرة الى العمود K1 من جديد دون المساس بالبيانات السابقة ويتم الترحيل من K1 الى  T1000000   

 

ارجوا اني وفقت في تبليغ الفكرة

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

أخي الكريم زوهير

إليك الكود التالي عله يفي بالغرض

Private Sub CommandButton2_Click()
    Dim iRow As Long
    Dim WS As Worksheet
    Dim Col As Long, Y As Long
    
    Set WS = Worksheets("Feuil1")
    Col = 1
    iRow = WS.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row
    
    If iRow > 5 Then iRow = WS.Cells(Rows.Count, "K").End(xlUp).Offset(1, 0).Row: Col = 11
    
    WS.Cells(iRow, Col).Value = Me.TextBox1.Value
    WS.Cells(iRow, Col + 1).Value = Me.TextBox2.Value
    WS.Cells(iRow, Col + 2).Value = Me.TextBox3.Value
    WS.Cells(iRow, Col + 3).Value = Me.TextBox4.Value
    WS.Cells(iRow, Col + 4).Value = Me.TextBox5.Value
    WS.Cells(iRow, Col + 5).Value = Me.TextBox6.Value
    WS.Cells(iRow, Col + 6).Value = Me.TextBox7.Value
    WS.Cells(iRow, Col + 7).Value = Me.TextBox8.Value
    WS.Cells(iRow, Col + 8).Value = Me.TextBox9.Value
    WS.Cells(iRow, Col + 9).Value = Me.TextBox10.Value
    
    For Y = 1 To 10
        Controls("TextBox" & Y) = ""
    Next Y
    Application.ScreenUpdating = True
End Sub

Private Sub CommandButton4_Click()
    Unload Me
End Sub

كل ما ستقوم بتغييره هو السطر التالي

If iRow > 5

غير الرقم 5 إلى آخر صف تريد التعامل معه .. سحب طلبك الرقم يجب أن يكون 1000000

أرجو أن يكون هذا هو المطلوب

[زوهير]

السلام عليك اخي ياسر  صيام مقبول ان شاءالله

ماشاءالله عليك اللهم زده علما وانفعنا به يارب

هو المطلوب  في الترحيل

-------------------------------------

بقي التعديل   والبحث

------------------------------------

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

أخي الكريم زوهير

تعرف توجيهات المنتدى .. لو طلب آخر يرجى إفراد موضوع لكل طلب

الحمد لله أن تم الطلب الأول على خير

يرجى تحديد أفضل إجابة ليظهر الموضوع مجاب ومنتهي ..

بالنسبة لطرح موضوع جديد لن يكون بالأمر العسير أو المرهق

تقبل تحياتي