هادى محمد المامون سالم

بسم الله الرحمن الرحيم لقد حاولت بالفعل عمل مفتاح للوصول الى الورقه الرئيسيه لكن ملفك كان محمى و لم يكن لدى الوقت لفك الحمايه . تستطيع حمايه الاوراق من ادوات - حمايه - حمايه الورقه فك حمايه الملف ثم أعد أرفاقه ملحوظه : سيتم تغيير عنوان الموضوع الى أريد أن أجعل واجهة و فتح أوراق العمل بالكود السلام عليكم

بسم الله الرحمن الرحيم جرب الملف المرفق السلام عليكم Chse_01.rar

بسم الله الرحمن الرحيم اليك الكود بطريقه أسهل لمعاينه الطباعه و لكن قبل البدايه يجب انشاء ملف على c باسم File1 Sub StartPrint() Dim str As String str = "c:\File1.xls" Workbooks.Open (str) Sheets("Sheet1").Range("A1:B5").PrintPreview Workbooks("File1").Close End Sub السلام عليكم

بسم الله الرحمن الرحيم جرب الملف المرفق السلام عليكم Mr_04.rar

بسم الله الرحمن الرحيم بصراحه لا استطيع فهم المطلوب ربنا معاك أعتقد هذا العمل استغرق منك ساعات او ايام اشرح ماذا تريد ترحيله بالخلايا مثلا اريد ترحيل الخليه A1 من الورقه الاولى الى الخليه B1 من الورقه الثانيه ولى سؤال لماذا أضفت 3 Private Sub جديده ؟ لقد قمت فى ملفى بأعداد 3 فقط و ذلك بعدد الصفحات التى تريد ترحيل بياناتهم و اذا زادت عدد الصفحات زادت Private Sub السلام عليكم

بسم الله الرحمن الرحيم جرب الملف المرفق لطباعه ثلاثه ملفات يجب أولا انشاء مجلد بأسم Hady على القرص C ضع داخله ثلاثه ملفات بأسم File1,File2,File3 و يمكن تغيير اسمائهم و لكن يجب تغيير الاسم فى الورقه أيضا السلام عليكم Print_str_01.rar

بسم الله الرحمن الرحيم هل مكان الملفات ثابت أم تريد أختيار الملف الذى تريد طباعه مجاله بنفسك ؟ السلام عليكم

بسم الله الرحمن الرحيم الاخ محمد عسكر هناك فرق كبير بين الطلبات و الملاحظات Application.WorksheetFunction.CountA(Sheets("2").Range("A1:A100")) لعد الخلايا التى يوجد بها بيانات لنقل البيانات عند اخر سطر Sheets("2").Cells(cont + 3, 1) تم اضاقه (3) لوجود 3 خلايا لايوجد بها بيانات بأعلى العمود فيجب زياده 3 على العداد حتى يصل الى أول خليه فارغه بالعمود Public Sub mStart() Sheets("2").Range("A4:K100").ClearContents m1 m2 m3 End Sub لمسح محتويات الخلايا قبل التفيذ للتأكد ان الخلايا فارغه و ليس بها بيانات سابقه m1,m2,m2 اسماء Private Sub السابق انشائها و فى هذه الخطوه نقوم بأستدعائها السلام عليكم

بسم الله الرحمن الرحيم جرب الملف المرفق سيتم تغيير عنوان الموضوع الى حساب الاستاذ فى الحسابات السلام عليكم Mr_03.rar

بسم الله الرحمن الرحيم جرب الملف المرفق للمسلسل و المدين السلام عليكم Mr_02.rar

بسم الله الرحمن الرحيم هل تريد نسخ البيانات من ورقه 2 الورقه 1 و نفس بيانات ورقه 2 الى ورقه 11 ثم ورقه 111 السلام عليكم

بسم الله الرحمن الرحيم أخى كريم هذا الكود لمعاينه طباعه المجال و تستطيع أستبدال المجال و أسم الورقه بالمجال الذى تريده Sub mPrint() Sheets("Sheet1").Range("A1:B5").PrintPreview End Sub السلام عليكم

بسم الله الرحمن الرحيم أخى محمد عسكر برجاء التوضيح أكثر السلام عليكم

بسم الله الرحمن الرحيم جرب الملف المرفق السلام عليكم Move_Hide_01.rar

بسم الله الرحمن الرحيم اخى bahraini رائع انت فين من زمان ؟ السلام عليكم

بسم الله الرحمن الرحيم أرسل الملف بعنوان اوفيسنا على hs889@hotmail.com السلام عليكم

بسم الله الرحمن الرحيم جرب الملف المرفق يوجد به ورقه جديده لحساب الأستاذ السلام عليكم Mr_01.rar

بسم الله الرحمن الرحيم مشكور اخى الكريم لكن الملف بأمتداد swf السلام عليكم

بسم الله الرحمن الرحيم جرب الملف المرفق ملحوظه : لقد قمت بنسخ و لصق قيم فى الملف المرفق لان ملفك المرفق كان بطىء جدا معى أنسخ الكود و ألصقه بملفك ورقه شاشه العمليات يتم اظهارها اثناء اترحيل ثم تختفى كطلبك السلام عليكم Move_Hide.rar

بسم الله الرحمن الرحيم جرب الملف المرفق السلام عليكم Post_OffSet_05.rar

بسم الله الرحمن الرحيم جرب الملف المرفق السلام عليكم Post_OffSet_04.rar

بسم الله الرحمن الرحيم أخى skyblue جرب الملف المرفق السلام عليكم Post_OffSet_03.rar

بسم الله الرحمن الرحيم أفتح الأكسيل File Open من مربع الحوار أختار All Files أفتح ملفك ثم أذهب الى Data Texet To Columns أستمر ثم أحفظ الملف بصيغه xls السلام عليكم

بسم الله الرحمن الرحيم أخى خالد أشكرك على السؤال و الحمدلله كله تمام أرفقت لك ملف أتمنى ان يكون هو المطلوب السلام عليكم Post_OffSet_02.rar

بسم الله الرحمن الرحيم جرب الملف المرفق السلام عليكم Post_OffSet_01.rar