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



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





ترحيل اعمدة محددة و طباعة التقرير

يعطيكم العافية ...  اخوكم احمد من فلسطين - غزة  عندنا في المؤسسة مولد كهربائي كبير ، وبنقوم ببيع خطوط كهرباء للمؤسسات ..



04-08-2018 05:42 صباحا
dabas
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 04-08-2018
رقم العضوية : 7496
المشاركات : 11
الجنس : ذكر
تاريخ الميلاد : 6-1-1986
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 18
الاعجاب : 4
 offline 

يعطيكم العافية ...
 اخوكم احمد من فلسطين - غزة
 عندنا في المؤسسة مولد كهربائي كبير ، وبنقوم ببيع خطوط كهرباء للمؤسسات الثانية ، و طبعاً في قراءة للعداد و بنحتسب الاستهلاك و بناء عليه بنحاسب


الان انا عملت كشف اكسيل للمشتركين و دخلت في البيانات 
بدي نهاية كل شهر اقوم بترحيل البيانات من شيت لاخر بحيث يكون:
 1- الرصيد المدور (الرصيد النهائي للشيت الذي قبله).
2- القراءة السابقة (القراءة الحالية للشيت الذي قبلة).
وباقي البيانات كما هي 

ومن بعد ذلك اقوم بتصميم فاتورة و طباعة فواتير لجميع الزبائي بشكل منظم

 
 ما بعرف اذا عند الضغط على ترحيل بينفع يقوم بافتتاح شيت جديد تلقائيا ام لا

 
 
  إشتراكات الكهرباء.xlsx.zip   تحميل zip مرات التحميل :(5)
الحجم :(15.877) KB







04-08-2018 07:09 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4661
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13393
الاعجاب : 4956
 offline 
look/images/icons/i1.gif ترحيل اعمدة محددة و طباعة التقرير
السلام عليكم أخي الكريم أحمد
لا يوجد في الملف المرفق سوى ورقة عمل واحدة .. هل تريد إنشاء ورقة عمل جديدة ؟ وما هي شكل ورقة العمل الجديدة؟ هل ستكون نسخة من ورقة عمل موجودة كنموذج أم سيتم إنشاء تلك الورقة من الصفر ...؟
ضع شكل المخرجات المتوقعة ، والرجاء أن يخصص الموضوع لطلب واحد فقط ، لا تتوقع أن يقوم أحد ببرمجة برنامج بالكامل لك .. فالمنتدى تعليمي في المقام الأول 

أثارت هذه المشاركة إعجاب: dabas،




04-08-2018 07:45 صباحا
مشاهدة مشاركة منفردة [2]
dabas
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 04-08-2018
رقم العضوية : 7496
المشاركات : 11
الجنس : ذكر
تاريخ الميلاد : 6-1-1986
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 18
الاعجاب : 4
 offline 
look/images/icons/i1.gif ترحيل اعمدة محددة و طباعة التقرير
المشاركة الأصلية كتبت بواسطة: YasserKhalil »
السلام عليكم أخي الكريم أحمد
لا يوجد في الملف المرفق سوى ورقة عمل واحدة .. هل تريد إنشاء ورقة عمل جديدة ؟ وما هي شكل ورقة العمل الجديدة؟ هل ستكون نسخة من ورقة عمل موجودة كنموذج أم سيتم إنشاء تلك الورقة من الصفر ...؟
ضع شكل المخرجات المتوقعة ، والرجاء أن يخصص الموضوع لطلب واحد فقط ، لا تتوقع أن يقوم أحد ببرمجة برنامج بالكامل لك .. فالمنتدى تعليمي في المقام الأول 


صحيح الورقة الاولى هي الاساسية و عند العمل على الضغط على ترحيل يتم عمل نسخة جديدة للشهر الجديد (فارغة من البيانات) مع ترحيل البيانات الموضحة اعلاه من الصفحة الاولى
 
 
  إشتراكات الكهرباء.xlsx.rar   تحميل rar مرات التحميل :(5)
الحجم :(18.41) KB






04-08-2018 08:13 صباحا
مشاهدة مشاركة منفردة [3]
dabas
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 04-08-2018
رقم العضوية : 7496
المشاركات : 11
الجنس : ذكر
تاريخ الميلاد : 6-1-1986
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 18
الاعجاب : 4
 offline 
look/images/icons/i1.gif ترحيل اعمدة محددة و طباعة التقرير
اذا هنالك اي مزيد من التوضيح انا جاهز

أثارت هذه المشاركة إعجاب: مالك ماريه،




04-08-2018 10:06 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4661
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13393
الاعجاب : 4956
 offline 
look/images/icons/i1.gif ترحيل اعمدة محددة و طباعة التقرير
جرب الكود التالي عله يفي بالغرض إن شاء الله
Sub Transfer_Data()
    Dim ws          As Worksheet
    Dim sName       As String

    Application.ScreenUpdating = False
        Set ws = ActiveSheet
        sName = "شهر" & Split(ws.Name, "شهر")(1) + 1
        If Not IsNumeric(Split(ws.Name, "شهر")(1)) Then MsgBox "Review Sheet Name", vbExclamation: Exit Sub
    
        If Not Evaluate("ISREF('" & sName & "'!A1)") Then
            ws.Copy After:=Sheets(Sheets.Count)
            ActiveSheet.Name = sName
            ws.Range("P3:P" & ws.Cells(Rows.Count, "P").End(xlUp).Row).Copy
            ActiveSheet.Range("B3").PasteSpecial xlPasteValues
        Else
            MsgBox "Sheet " & sName & " Already Exists", vbExclamation: Exit Sub
        End If
        
        Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub


* ملحوظة لا يوجد أي توضيح في الملف المرفق .. الملاحظات تكون بالصور لتوضيح المطلوب أخي الكريم

أثارت هذه المشاركة إعجاب: dabas، ali mohamed ali، Eslam Abdullah،




04-08-2018 12:41 مساء
مشاهدة مشاركة منفردة [5]
dabas
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 04-08-2018
رقم العضوية : 7496
المشاركات : 11
الجنس : ذكر
تاريخ الميلاد : 6-1-1986
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 18
الاعجاب : 4
 offline 
look/images/icons/i1.gif ترحيل اعمدة محددة و طباعة التقرير
المشاركة الأصلية كتبت بواسطة: YasserKhalil »
جرب الكود التالي عله يفي بالغرض إن شاء الله
Sub Transfer_Data()
    Dim ws          As Worksheet
    Dim sName       As String

    Application.ScreenUpdating = False
        Set ws = ActiveSheet
        sName = "شهر" & Split(ws.Name, "شهر")(1) + 1
        If Not IsNumeric(Split(ws.Name, "شهر")(1)) Then MsgBox "Review Sheet Name", vbExclamation: Exit Sub
    
        If Not Evaluate("ISREF('" & sName & "'!A1)") Then
            ws.Copy After:=Sheets(Sheets.Count)
            ActiveSheet.Name = sName
            ws.Range("P3:P" & ws.Cells(Rows.Count, "P").End(xlUp).Row).Copy
            ActiveSheet.Range("B3").PasteSpecial xlPasteValues
        Else
            MsgBox "Sheet " & sName & " Already Exists", vbExclamation: Exit Sub
        End If
        
        Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub


* ملحوظة لا يوجد أي توضيح في الملف المرفق .. الملاحظات تكون بالصور لتوضيح المطلوب أخي الكريم
المشاركة الأصلية كتبت بواسطة: YasserKhalil »
جرب الكود التالي عله يفي بالغرض إن شاء الله
Sub Transfer_Data()
    Dim ws          As Worksheet
    Dim sName       As String

    Application.ScreenUpdating = False
        Set ws = ActiveSheet
        sName = "شهر" & Split(ws.Name, "شهر")(1) + 1
        If Not IsNumeric(Split(ws.Name, "شهر")(1)) Then MsgBox "Review Sheet Name", vbExclamation: Exit Sub
    
        If Not Evaluate("ISREF('" & sName & "'!A1)") Then
            ws.Copy After:=Sheets(Sheets.Count)
            ActiveSheet.Name = sName
            ws.Range("P3:P" & ws.Cells(Rows.Count, "P").End(xlUp).Row).Copy
            ActiveSheet.Range("B3").PasteSpecial xlPasteValues
        Else
            MsgBox "Sheet " & sName & " Already Exists", vbExclamation: Exit Sub
        End If
        
        Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub


* ملحوظة لا يوجد أي توضيح في الملف المرفق .. الملاحظات تكون بالصور لتوضيح المطلوب أخي الكريم


مشكور جدا جدا جدا ... تم ترحيل الرصيد النهائي في شيت شهر 8 كرصيد مدور في شيت رقم 9

باقي التوضيح كما في الصورة
 
  توضيح.png   تحميل png توضيح.png مرات التحميل :(3)
الحجم :(287.918) KB
 






04-08-2018 01:03 مساء
مشاهدة مشاركة منفردة [6]
ali mohamed ali
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 531
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 22
قوة السمعة : 2681
الاعجاب : 833
 offline 
look/images/icons/i1.gif ترحيل اعمدة محددة و طباعة التقرير
بارك الله فيك استاذ ياسر وجعله الله فى ميزان حسناتك

أثارت هذه المشاركة إعجاب: dabas، YasserKhalil، Eslam Abdullah،


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


04-08-2018 04:04 مساء
مشاهدة مشاركة منفردة [7]
dabas
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 04-08-2018
رقم العضوية : 7496
المشاركات : 11
الجنس : ذكر
تاريخ الميلاد : 6-1-1986
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 18
الاعجاب : 4
 offline 
look/images/icons/i1.gif ترحيل اعمدة محددة و طباعة التقرير
ان شاء الله يا استاذ ياسر تكون الصورة وضحت لك مبتغاي 





04-08-2018 07:26 مساء
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4661
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13393
الاعجاب : 4956
 offline 
look/images/icons/i1.gif ترحيل اعمدة محددة و طباعة التقرير
أخي الكريم
أعتذر عن المشاركة نظراً لضيق الوقت ، ربما يكمل أحد الأخوة في الموضوع
والأفضل أن تطرح موضوع جديد لكل طلب لكي تجد استجابة أفضل من الجميع
تقبل تحياتي

أثارت هذه المشاركة إعجاب: dabas، Eslam Abdullah،




04-08-2018 08:12 مساء
مشاهدة مشاركة منفردة [9]
dabas
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 04-08-2018
رقم العضوية : 7496
المشاركات : 11
الجنس : ذكر
تاريخ الميلاد : 6-1-1986
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 18
الاعجاب : 4
 offline 
look/images/icons/i1.gif ترحيل اعمدة محددة و طباعة التقرير
المشاركة الأصلية كتبت بواسطة: YasserKhalil »
أخي الكريم
أعتذر عن المشاركة نظراً لضيق الوقت ، ربما يكمل أحد الأخوة في الموضوع
والأفضل أن تطرح موضوع جديد لكل طلب لكي تجد استجابة أفضل من الجميع
تقبل تحياتي

بوركت يا اخي ، لك مودتي

أثارت هذه المشاركة إعجاب: YasserKhalil،




04-08-2018 08:36 مساء
مشاهدة مشاركة منفردة [10]
dabas
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 04-08-2018
رقم العضوية : 7496
المشاركات : 11
الجنس : ذكر
تاريخ الميلاد : 6-1-1986
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 18
الاعجاب : 4
 offline 
look/images/icons/i1.gif ترحيل اعمدة محددة و طباعة التقرير
للفائدة و بعد مراجعة كود الأخ ياسر مشكور ، عدلت على الكود مع العلم انه ليس لي اي خلفية مسبقة عن اكواد vba
تم تنفيذ المطلوب و بقي ان شاء الله طباعة الفواتير.

​تقييمكم للكود ، وهل صحيح ما قمت به
 
 
  إشتراكات الكهرباء.xlsx.zip   تحميل zip مرات التحميل :(3)
الحجم :(18.806) KB


أثارت هذه المشاركة إعجاب: YasserKhalil، Eslam Abdullah،




04-08-2018 09:12 مساء
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4661
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13393
الاعجاب : 4956
 offline 
look/images/icons/i1.gif ترحيل اعمدة محددة و طباعة التقرير
أحسنت أخي الكريم ..هذا هو المراد من المنتدى أن تحاول بنفسك إيجاد الحل ثم تلجأ لإخوانك إذا تعثر عليك نقطة معينة
يمكنك استبدال الأسطر التالية
            ActiveSheet.Range("L3:L" & ws.Cells(Rows.Count, "L").End(xlUp).Row).Value2 = "0"
             ActiveSheet.Range("M3:M" & ws.Cells(Rows.Count, "M").End(xlUp).Row).Value2 = "0"
              ActiveSheet.Range("N3:N" & ws.Cells(Rows.Count, "N").End(xlUp).Row).Value2 = "0"
               ActiveSheet.Range("O3:O" & ws.Cells(Rows.Count, "O").End(xlUp).Row).Value2 = "0"

بسطر واحد حيث أنه نطاق متصل
ActiveSheet.Range("L3:O" & ws.Cells(Rows.Count, "I").End(xlUp).Row).Value2 = "0"

أثارت هذه المشاركة إعجاب: Eslam Abdullah، dabas،




04-08-2018 09:48 مساء
مشاهدة مشاركة منفردة [12]
محمود ابو الدهب
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 673
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 56
يتابعهم : 6
يتابعونه : 140
قوة السمعة : 2382
الاعجاب : 859
 offline 
look/images/icons/i1.gif ترحيل اعمدة محددة و طباعة التقرير
بالتوفيق وللفائدة اليك كود للطباعة الذى طلبة وراعي نفس تنسيقات الخلايا حتى تكون الطباعة مظبوطة
وملحوظة اخرى ضع الكود في مديول جديد وليس ورقة العمل 

واليك ملف العمل بعد التعديل
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
 
  إشتراكات الكهرباء.xlsx.rar   تحميل rar مرات التحميل :(4)
الحجم :(19.05) KB


أثارت هذه المشاركة إعجاب: YasserKhalil، dabas،


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

تحياتى وتقدير للجميع  محمود ابوالدهب




الكلمات الدلالية
ترحيل ، اعمدة ، محددة ، طباعة ، التقرير ،


 







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



الساعة الآن 09:17 صباحا

أعلن هنا
أعلن هنا
أعلن هنا