زوهير قام بنشر يوليو 10, 2015 مشاركة قام بنشر يوليو 10, 2015 السلام عليكم ورحمة الله وتقبل الله منا ومنكم الصيام والقيام وسائر الاعمال ان شاءالله طلب هو هل ممكن الترحيل الى نفس الشيت ولكن في اكثر من نطاق وكذا التعديل والبحث والمرفق يوضح الطلب اكثر ترحيل الى اكثر من نطاق.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 10, 2015 مشاركة قام بنشر يوليو 10, 2015 أخي الكريم زوهير .. هل تقصد الترحيل مرتين للنطاقين أم ماذا تقصد بالضبط بالترحيل إلى أكثر من نطاق؟ مزيد من التوضيح رابط هذا التعليق شارك More sharing options...
زوهير قام بنشر يوليو 10, 2015 الكاتب مشاركة قام بنشر يوليو 10, 2015 اخي ياسر اقصد في المرفق مثلا عندما تملاء جميع الصفوف الى اخر صف في الشيت ابتداء من A1 الى J1000000 ينتقل مباشرة الى العمود K1 من جديد دون المساس بالبيانات السابقة ويتم الترحيل من K1 الى T1000000 ارجوا اني وفقت في تبليغ الفكرة رابط هذا التعليق شارك More sharing options...
أفضل إجابة ياسر خليل أبو البراء قام بنشر يوليو 11, 2015 أفضل إجابة مشاركة قام بنشر يوليو 11, 2015 أخي الكريم زوهير إليك الكود التالي عله يفي بالغرض 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 أرجو أن يكون هذا هو المطلوب 2 رابط هذا التعليق شارك More sharing options...
زوهير قام بنشر يوليو 11, 2015 الكاتب مشاركة قام بنشر يوليو 11, 2015 السلام عليك اخي ياسر صيام مقبول ان شاءالله ماشاءالله عليك اللهم زده علما وانفعنا به يارب هو المطلوب في الترحيل ------------------------------------- بقي التعديل والبحث ------------------------------------ 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 11, 2015 مشاركة قام بنشر يوليو 11, 2015 أخي الكريم زوهير تعرف توجيهات المنتدى .. لو طلب آخر يرجى إفراد موضوع لكل طلب الحمد لله أن تم الطلب الأول على خير يرجى تحديد أفضل إجابة ليظهر الموضوع مجاب ومنتهي .. بالنسبة لطرح موضوع جديد لن يكون بالأمر العسير أو المرهق تقبل تحياتي 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان