محمد يوسف ابو يوسف

اخي عبد الله السعيد الكود المرسل يألفعل يقوم بالاتي يتم اخفاء اي عمود فارغ اما اذا ارت اخفاء جميع الخلاية الفارغه : يجب عليك توضيح ليه اكثر ؟: اذا ارت اخفاء جميع الخلاية الفارغة :يبقي سوف اقوم بالاتي 1:تخصيص عمود يكون موجود به شرط اذا تحقق الشرط يقوم باخفاء الخلاية المجاورة له في هذة الحالة يجب الكتابة تكون علي اتجاه واحد: سارفق لك ملف توضيحي

اخي ياسر فاروق تفضل طلبك ملفBook.xlsx

اخي عبد الله السعيد - تفضل تم اضافة مسج يأسلك هل تريد الطباعه بعد المعاينة ام لا Sub طباعه_دون_فراغ() ActiveWindow.SelectedSheets.PrintPreview 'معاينة قبل الطباعة ' Reply = MsgBox(" هل تريد " & Chr(10) & " طباعة الفاتورة ", vbYesNo) 'هنا هل تريد طبع النسخ ام لا If Reply <> 6 Then Exit Sub 'هنا هل تريد طبع النسخ ام لا Application.ScreenUpdating = False Range("P1:P200").AutoFilter Field:=1, Criteria1:="<>" 'هنا اخفاء قبل التنفيز ActiveSheet.PageSetup.PrintArea = "a1:L200" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False Range("P1:P200").AutoFilter 'هنا اظهار بعد التنفيز Application.ScreenUpdating = True End Sub الملف Zeroo.xlsm اظن هذا هو المطلوب

اخي didi2333 يرجي تحديد المدي المراد ترحيلة وهل المدي هو نفس في كل ورقة كيف يتم ذلك خطأ لابد من اخد مدي معين من عمود ثم ترحل الي عمود اخر -- خليه تلوي الا خرة

اخي انا مش فاهم هل تريد معاينه قبل الطباعه ؟

اخي ياسر فاروق ملفك ليس بداخلة اي شرح يعبر عن المطلوب 1: حدد الورقة 2:حددالعمود 3:من خلية a5:a25 مثلاً وان شاء الله يتم الاذم

اخي عبد الله السعيد بألفعل موجود داخل الملف المرسل سابقاً ... تفضل مع الشرح Sub طباعه_دون_فراغ() Application.ScreenUpdating = False Range("P1:P200").AutoFilter Field:=1, Criteria1:="<>" 'هنا اخفاء قبل التنفيز ActiveSheet.PageSetup.PrintArea = "a1:L200" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False Range("P1:P200").AutoFilter 'هنا اظهار بعد التنفيز Application.ScreenUpdating = True End Sub

اخي هاشم العلوي تفضلنموذج كنترول .xlsm

اخي ahmed88872 هذا الشرح الموجود داخل ملفك اريد ان يتم ترحيل التلاميذ اتوماتيك وجزاكم الله خيرا شرح غير كامل اولاً يجب عليك الاجابه علي الاتي 1:الي اي ورقة تريد الترحيل 2: ما هو الشرط الذي اذا تحقق يتم الترحيل وفي اي خلية يكن موجود الشرط جزاك الله خيراً

اخي عبد الله السعيد تفضل Zeroo.xlsm ان شاء الله يكون المطلوب

اخي mra63 لماذا لا تعطي من ساعدك حقة بألضغط علي افضل اجابه جزاك الله خيراً

اخي Hicham1470 ملفك غير واضح بالشرح ما اسم الورقة المراد الترحيل منها -- والي اين تريد الترحيل من فضلك ارسل ملف واضح ملحوظة ملفك بها مشاكل-- ياريت ترسله بدون اكواد يكفي الشرح داخله وان شاء الله يتم المطلوب

وعليكم السلام اخي عبد الله السعيد تفضل طلبك Zeroo.xlsm

اخي ahmed88872 ما هو الشرط

غير هذا For i = 1 To 10 ليكن هكذا For i = 1 To 1

اخي didi2333 تغضل فطلبك هنا http://www.officena.net/ib/index.php?showtopic=57798

بسم الله الرحمن الرحيم والحمد الله رب العالمين بعد البحث الكثير داخل المنتدي وخارج المنتدي لم اجد ما اريد ولكن صممت ان اوجد ما اريد والحمد لله وفقني الله -- ان اكتب هذا الكود الجميل الذي يفي بألمطلوب وكررت ان اضعه للفائدة كود تصدير مدي محدد الي ملف نصي وحفظه بأسم خليه معينة - علي برتيشن d Sub dحفظ_ملف_تاست_بأسم_خلية_علي_برتيشن() Range("A1:I108").Select Selection.Copy Workbooks.Add Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Application.CutCopyMode = False ActiveWorkbook.SaveAs Filename:="D:\" & Cells(1, 2).Text & Nombre & " نسخة" & Format(Now, "-dddd-dd-mm-yyyy-") & ".txt", FileFormat:=xlText, _ CreateBackup:=False ActiveWindow.Close Range("A1").Select End Sub تصدير البيانات الي ملف نصي وحفظة بأسم خلية معينه تصدير البيانات الي ملف نصي وحفظ بأسم خلية معينه.xls

بسم الله الرحمن الرحيم والحمد الله رب العالمين بعد البحث الكثير داخل المنتدي وخارج المنتدي لم اجد ما اريد ولكن صممت ان اوجد ما اريد والحمد لله وفقني الله -- ان اكتب هذا الكود الجميل الذي يفي بألمطلوب وكررت ان اضعه للفائدة كود تصدير مدي محدد الي ملف نصي وحفظه بأسم خليه معينة - علي برتيشن d Sub dحفظ_ملف_تاست_بأسم_خلية_علي_برتيشن() Range("A1:I108").Select Selection.Copy Workbooks.Add Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Application.CutCopyMode = False ActiveWorkbook.SaveAs Filename:="D:\" & Cells(1, 2).Text & Nombre & " نسخة" & Format(Now, "-dddd-dd-mm-yyyy-") & ".txt", FileFormat:=xlText, _ CreateBackup:=False ActiveWindow.Close Range("A1").Select End Sub تصدير البيانات الي ملف نصي وحفظة بأسم خلية معينه تصدير البيانات الي ملف نصي وحفظ بأسم خلية معينه.xls

بسم الله الرحمن الرحيم والحمد الله رب العالمين بعد البحث الكثير داخل المنتدي وخارج المنتدي لم اجد ما اريد ولكن صممت ان اوجد ما اريد والحمد لله وفقني الله -- ان اكتب هذا الكود الجميل الذي يفي بألمطلوب وكررت ان اضعه للفائدة كود تصدير مدي محدد الي ملف نصي وحفظه بأسم خليه معينة - علي برتيشن d Sub dحفظ_ملف_تاست_بأسم_خلية_علي_برتيشن() Range("A1:I108").Select Selection.Copy Workbooks.Add Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Application.CutCopyMode = False ActiveWorkbook.SaveAs Filename:="D:\" & Cells(1, 2).Text & Nombre & " نسخة" & Format(Now, "-dddd-dd-mm-yyyy-") & ".txt", FileFormat:=xlText, _ CreateBackup:=False ActiveWindow.Close Range("A1").Select End Sub تصدير البيانات الي ملف نصي وحفظة بأسم خلية معينه تصدير البيانات الي ملف نصي وحفظ بأسم خلية معينه.xls

للرفع

السلام عليكم ورحمة الله اريد مساعدة عندي ملف يتم من خلاله الترحيل الي 5 برتيشن وفلاشة - بضغطة زر واحدة --- عند الضغط علي زر الغلق خروج من البرنامج--بيظهر لي مسج بيسألني هل تريد الترحيل نعم لا اريد تعديل بسيط- عنداختيار نعم يتم تنفيز الامر الذي سألني عنه فقط - وعند اختيار لا - يحولني الي الامر التالي و يسألني هل تريد الترحيل نعم لا --- وهكذا حتي ينتهي من جميع الاوامر الملفعمل مسج بشرط.xlsm جزاكم الله خيراً

اخي hassona229 جزاك الله خيرا--- فعلاً هذا هو المطلوب ولكن هل توجد طريقه ليكون الكود اصفر من ذالك شوي --- ويفي بنفس الغرض

اخي hassona229 ممكن ترسل لية الملف الذي جربته ويفي بالمطلوب جزاك الله خيرا

السلام عليكم ورحمة الله احبتي في الله ... اريد تعديل هذا الكود ليتم نسخ الورقة كامله Sub PrinttoFile() a1 = Cells(3, 2) a2 = Cells(3, 3) a3 = Cells(3, 4) Dim Filename As String Filename = "T:\testfile.txt" Open Filename For Output As #1 Print #1, "*********** www.officena.net *****************" Print #1, "Example to Write Values from Cells into a text file" Print #1, "Source : " & ActiveWorkbook.FullName & " : " Print #1, "*********** www.officena.net *****************" Print #1, Print #1, "Here are the Values: " Print #1, Print #1, a1 Print #1, a2 Print #1, a3 Close #1 Dim x x = Shell("notepad.exe " & Filename, 1) End Sub الملف عمل نسخة ملف نصي 1.xlsm

اخي lionheart لا ادري مذا تقصد بهذه الاكواد وهي لم تفي بالمطلوب