أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
EM_ACC مجدى يونس-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة بحاجة الى كود ترحيل اكسيل اسئله واجابات


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





ضبط كود الترحيل من الفاتورة الى الصفحات الأخرى بدون فراغات

السلام عليكم احبائى الكرام , ارجو ان تكونوا فى احسن حال .... الرجاء التكرم على مساعدتى فى ضبط كود الترحيل من صفحة الفاتو ..


موضوع مغلق


24-06-2020 12:39 مساء
هانى على
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 473
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 5
يتابعونه : 4
قوة السمعة : 855
عدد الإجابات: 8
 offline 

السلام عليكم احبائى الكرام , ارجو ان تكونوا فى احسن حال .... الرجاء التكرم على مساعدتى فى ضبط كود الترحيل من صفحة الفاتورة الى صفحة المشتريات والمبيعات بحيث يتم الترحيل بشكل متتالى دائما بدون وجود اى فراغات كما هو واضح بالصورة . فالكود يعمل تمام ولكن عند الترحيل يقوم بعمل فراغات بين كل ترحيل وهذا لا أريده فأريد دائما ان تكون البيانات المرحلة من صفحة الفاتورة الى الصفحات الأخرى تكون متتالية بدون اى فراغات وأيضاً وكما هو واضح أمام حضراتكم لا اريد ان يتم ايضاً ترحيل صف إجمالى الفاتورة

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


Sub Transfer()
Dim fa, mb, mo As Worksheet
Dim lr1, lr2 As Integer
Set fa = Sheets("الفاتورة")
Set mb = Sheets("مبيعات")
Set mo = Sheets("مشتريات")
If [I4].Value = "" Or [C3].Value = "" Or [d2].Value = "" Or [H3].Value = "" Then
MsgBox "ÈíÇäÇÊ ÇáÝÇÊæÑÉ ÛíÑ ãßÊãáÉ", vbCritical, "ÊäÈíÜÜå":
Else
Dim x As String
x = [d2].Value
fa.Activate
lr1 = fa.Range("B" & Rows.Count).End(xlUp).Row
Range("B6:L" & lr1).Copy
Sheets(x).Activate
lr2 = Range("B" & Rows.Count).End(xlUp).Row
Range("B" & lr2 + 1).Select
Selection.PasteSpecial xlPasteValues
fa.Activate
[d2].Select
Range("C6:E20").ClearContents
Range("G6:G20").ClearContents
Range("I6:I20").ClearContents
Range("D2:G2").ClearContents
Range("H3:J3").ClearContents
[C3].ClearContents
MsgBox ("تم ترحيل البيانات بنجاح ")
End If
End Sub

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
tC76A_6


 

 
 
  ضبط كود الترحيل من الفاتورة الى الصفحات الأخرى.xlsm   تحميل xlsm مرات التحميل :(11)
الحجم :(166.641) KB



أفضل إجابة مقدمة من ابونور وهي:
وعليكم السلام ورحمة الله وبركاته
إتفضل أستاذى إن شاء الله يكون المطلوب

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
عرض الإجابة




26-06-2020 11:47 مساء
مشاهدة مشاركة منفردة [1]
ابونور
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-09-2017
رقم العضوية : 576
المشاركات : 102
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 14-11-1974
يتابعهم : 3
يتابعونه : 6
قوة السمعة : 649
عدد الإجابات: 2
 offline 
look/images/icons/i1.gif ضبط كود الترحيل من الفاتورة الى الصفحات الأخرى بدون فراغات
وعليكم السلام ورحمة الله وبركاته
إتفضل أستاذى إن شاء الله يكون المطلوب

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
 
  ضبط كود الترحيل من الفاتورة الى الصفحات الأخرى.xlsm   تحميل xlsm مرات التحميل :(15)
الحجم :(158.768) KB


27-06-2020 12:01 صباحا
مشاهدة مشاركة منفردة [2]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif ضبط كود الترحيل من الفاتورة الى الصفحات الأخرى بدون فراغات
بارك الله فيك أخي العزيز أبو نور وعوداً حميداً.

27-06-2020 11:08 صباحا
مشاهدة مشاركة منفردة [3]
هانى على
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 473
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 5
يتابعونه : 4
قوة السمعة : 855
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif ضبط كود الترحيل من الفاتورة الى الصفحات الأخرى بدون فراغات
أحسنت استاذنا الكريم أبو نور .. وهذا هو المعتاد عليه منك دائماً , بارك الله فيك وزادك الله من فضله ورحم الله والديك وجزاك الله كل خير ووسع الله فى رزقك وأكرمك الله فى الدارين وأدخلك جنات الفردوس وأحسن الله الى اولادك
وهوده بالفعل المطلوب بفضل جهودكم الكريمة . شكراً لك استاذى الكريم



الكلمات الدلالية
الترحيل ، الفاتورة ، الصفحات ، الأخرى ، بدون ، فراغات ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 08:35 صباحا