ياسر الحافظ قام بنشر أبريل 20, 2011 قام بنشر أبريل 20, 2011 الاساتذة المحترمين : السلام عليكم ارجو المساعدة في نسخ الفورم الموجود في الورقة : ك2 - ( لقد حاولت مرارا ولكن بدون جدوى ) الى باقي اوراق الاشهر بحيث يصبح الفورم مفعل في كل الاوراق دون ان اضطر الى التعديل في كود الفورم التوضيح في الورقة : ك2 من الملف المرفق اشكركم واتمنى التوفيق للجميع ياسر الحافظ ارساليات ومدفوعات 2011.rar
عبد الفتاح كيرة قام بنشر أبريل 20, 2011 قام بنشر أبريل 20, 2011 عليكم السلام أنت لن تنسخ الفورم أنت تنسخ الزر أو الشكل التلقائى المرتبط بالماكرو الذى يستدعى الفورم اتبع ما يلى : انقر بالزر الأيمن على المستطيل الأحمر الذى يستدعى " ماكرو 1 " اذهب لشيت " شباط " انقر بأيمن الماوس و اختر لصق الآن جرب النقر بالأيسر على الشكل الذى لصقته سيتم استدعاء الفورم
ياسر الحافظ قام بنشر أبريل 21, 2011 الكاتب قام بنشر أبريل 21, 2011 استاذنا الكبير الخبيــــــــــــــــر Kemas المحترم بداية اشكرك جزيل الشكر على الرد لقد قمت بالعمل كما علمتني ونسخت الفورم الى الورقة ( الشيت ) شباط ومن خلال الفورم في الشيت شباط قمت بتعبئة الفورم ولكن الترحيل بقي للورقة ك2 ارغب : عندما اقوم بتعبئة الفورم في الشيت شباط ان يتم الترحيل للخلايا في " شباط " وهكذا ... اتمنى ان يتم تعديل كود الفورم ليعمل في كل الصفحات ويتم الترحيل من الفورم للصفحة المطلوبة اشكرك واتمنى مساعدتي ياسر الحافظ
عبد الفتاح كيرة قام بنشر أبريل 21, 2011 قام بنشر أبريل 21, 2011 سيكون الكود كالتالى Private Sub CommandButton1_Click() Dim krow As Long 'Dim ws As Worksheet 'Set ws = Worksheets("ß2") krow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row With ActiveSheet .Cells(krow, 5).Value = Me.TextBox1.Value .Cells(krow, 7).Value = Me.TextBox2.Value .Cells(krow, 8).Value = Me.TextBox3.Value .Cells(krow, 9).Value = Me.TextBox4.Value .Cells(krow, 10).Value = Me.TextBox5.Value .Cells(krow, 11).Value = Me.TextBox6.Value .Cells(krow, 12).Value = Me.TextBox7.Value .Cells(krow, 13).Value = Me.TextBox8.Value .Cells(krow, 14).Value = Me.TextBox9.Value .Cells(krow, 15).Value = Me.TextBox10.Value .Cells(krow, 19).Value = Me.TextBox11.Value .Cells(krow, 20).Value = Me.TextBox12.Value .Cells(krow, 21).Value = Me.TextBox13.Value .Cells(krow, 22).Value = Me.TextBox14.Value .Cells(krow, 23).Value = Me.TextBox15.Value .Cells(krow, 24).Value = Me.TextBox16.Value .Cells(krow, 25).Value = Me.TextBox17.Value .Cells(krow, 26).Value = Me.TextBox18.Value .Cells(krow, 27).Value = Me.TextBox19.Value 'ws.Cells(krow, 25).Value = Me.TextBox7.Value 'ws.Cells(krow, 26).Value = Me.TextBox7.Value 'ws.Cells(krow, 27).Value = Me.TextBox7.Value Me.TextBox1.Value = "" Me.TextBox2.Value = "" Me.TextBox3.Value = "" Me.TextBox4.Value = "" Me.TextBox5.Value = "" Me.TextBox6.Value = "" Me.TextBox7.Value = "" Me.TextBox8.Value = "" Me.TextBox9.Value = "" Me.TextBox10.Value = "" Me.TextBox11.Value = "" Me.TextBox12.Value = "" Me.TextBox13.Value = "" Me.TextBox14.Value = "" Me.TextBox15.Value = "" Me.TextBox16.Value = "" Me.TextBox17.Value = "" Me.TextBox18.Value = "" Me.TextBox19.Value = "" 'Me.TextBox20.Value = "" 'Me.TextBox21.Value = "" 'Me.TextBox22.Value = "" Me.TextBox1.SetFocus End With End Sub المرفقات ارساليات ومدفوعات 2011- kemas.rar
احمد فضيله قام بنشر أبريل 21, 2011 قام بنشر أبريل 21, 2011 سيكون الكود كالتالى Private Sub CommandButton1_Click() Dim krow As Long 'Dim ws As Worksheet 'Set ws = Worksheets("ß2") krow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row With ActiveSheet .Cells(krow, 5).Value = Me.TextBox1.Value .Cells(krow, 7).Value = Me.TextBox2.Value .Cells(krow, 8).Value = Me.TextBox3.Value .Cells(krow, 9).Value = Me.TextBox4.Value .Cells(krow, 10).Value = Me.TextBox5.Value .Cells(krow, 11).Value = Me.TextBox6.Value .Cells(krow, 12).Value = Me.TextBox7.Value .Cells(krow, 13).Value = Me.TextBox8.Value .Cells(krow, 14).Value = Me.TextBox9.Value .Cells(krow, 15).Value = Me.TextBox10.Value .Cells(krow, 19).Value = Me.TextBox11.Value .Cells(krow, 20).Value = Me.TextBox12.Value .Cells(krow, 21).Value = Me.TextBox13.Value .Cells(krow, 22).Value = Me.TextBox14.Value .Cells(krow, 23).Value = Me.TextBox15.Value .Cells(krow, 24).Value = Me.TextBox16.Value .Cells(krow, 25).Value = Me.TextBox17.Value .Cells(krow, 26).Value = Me.TextBox18.Value .Cells(krow, 27).Value = Me.TextBox19.Value 'ws.Cells(krow, 25).Value = Me.TextBox7.Value 'ws.Cells(krow, 26).Value = Me.TextBox7.Value 'ws.Cells(krow, 27).Value = Me.TextBox7.Value Me.TextBox1.Value = "" Me.TextBox2.Value = "" Me.TextBox3.Value = "" Me.TextBox4.Value = "" Me.TextBox5.Value = "" Me.TextBox6.Value = "" Me.TextBox7.Value = "" Me.TextBox8.Value = "" Me.TextBox9.Value = "" Me.TextBox10.Value = "" Me.TextBox11.Value = "" Me.TextBox12.Value = "" Me.TextBox13.Value = "" Me.TextBox14.Value = "" Me.TextBox15.Value = "" Me.TextBox16.Value = "" Me.TextBox17.Value = "" Me.TextBox18.Value = "" Me.TextBox19.Value = "" 'Me.TextBox20.Value = "" 'Me.TextBox21.Value = "" 'Me.TextBox22.Value = "" Me.TextBox1.SetFocus End With End Sub المرفقات الاخ العزيز / kemas بارك الله فيك
احمد فضيله قام بنشر أبريل 21, 2011 قام بنشر أبريل 21, 2011 السلام عليكم و رحمة الله و بركاته أخي الحبيب / ياسر الحافظ أعتذر لتأخري في الرد بسبب ضغط العمل و أري أن الاخ الاستاذ الخبير/ kemas قام مشكوراً بوضع حل لطلبك فجزاه الله كل خير و بارك الله فيك و فيه و أعتذر لك يا أخي مرة أخرى و يكفيني شرفاً ذكرك لاسمي في عنوان الموضوع و الله الموفق و المستعان و السلام عليكم و رحمة الله و بركاته
ياسر الحافظ قام بنشر أبريل 23, 2011 الكاتب قام بنشر أبريل 23, 2011 الأستاذ كيماس كل الشكر والعافية لما قمت به لأجلي إن سرعة استجابتك تنم عن شخص مسئول ومحب هذا بالإضافة إلى تميزك الواضح وان كان هناك استفسار أخير .. حيث أن الترحيل يتم دائما لنفس السطر ( دائما في السطر 7 ) وكنت ارغب انه إذا تمت تعبئة السطر 7 وتم استخدام الفورم ثانية أن تتم تعبئة السطر 8 وهكذا ... بمعنى أن يتم الترحيل إلى السطر الفارغ الذي يليه مباشرة وهكذا .... أشكرك مرة أخرى وأتمنى لك التوفيق والنجاح أما الأستاذ العزيز والأخ HaNcOcK : فأنت قصة رائعة أتغنى بها في كل مجلس لقد أصبح جميع من حولي يعرف HaNcOcK " احمــــــــــــد " ويعرف عنه وعن تميزه وأخلاقه الكثير إخوتي أدامكم الله .... وفقك الله الحقيقة لست أبالغ إذا قلت إن إدماني على موقع " اوفيسنا " سببه أساتذة هذا الموقع الرائعين بكل شيء شكرا ياسر الحافظ
ياسر الحافظ قام بنشر أبريل 24, 2011 الكاتب قام بنشر أبريل 24, 2011 تحية طيبة ارجو ان كان ممكن اكمال الطلب مع كل الشكر ياسر الحافظ
عبد الفتاح كيرة قام بنشر أبريل 24, 2011 قام بنشر أبريل 24, 2011 أخى قصى أولا معذرة للتأخر عليك فالوقت لم يعد متوفرا لدى كما كان ولو كان كذلك لاختصرت لك الكود فى أسطر قليلة بالنسبة لطلبك فقط غير الرقم 1 فى هذا السطر إلى 5 krow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row ليصبح krow = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Offset(1, 0).Row مع الشكر
احمد فضيله قام بنشر أبريل 24, 2011 قام بنشر أبريل 24, 2011 (معدل) السلام عليكم ورحمة الله و بركاته أخي الحبيب / ياسر الحافظ و الله العظيم الكلام اللي حضرتك كاتبه ده كبييييييير جداً و كتيييييييير جداً جداً عليا و الله أنا تحت أمر حضرتك في أي حاجة بعد إذن الأخ الاستاذ الفاضل / Kemas يمكنك النظر لهذا المرفق و قد قمت ببعض التغيير في كتابة الاكواد و السلام عليكم ورحمة الله و بركاته ارساليات ومدفوعات 2011 HaNcOcK.rar تم تعديل أبريل 24, 2011 بواسطه HaNcOcK
ياسر الحافظ قام بنشر أبريل 25, 2011 الكاتب قام بنشر أبريل 25, 2011 الأستاذ كيماس - الأستاذ HaNcOcK : أشكركم .. هذا هو المطلوب تماما الحقيقة ليس من المروءة بمكان أن انهي هذا الموضوع بدون كلمة شكر صادقة من القلب لإيماني ( وأكررها ) أن من لايشكر الناس لايشكر الله وحاليا أنا لا املك سوى الدعاء فالكلمات تعجز تماما عن التعبير عن شدة حبوري وسعادتي ليس فقط لان المشكلة حلت بفضلكم ( وهو سبب مهم ) ولكن بسبب تعاونكم الرائع والمثمر وواضح أن من استفاد من هذه المعلومات أعضاء كثر جزاكم الله كل الخير وفقكم الله مع ملاحظة للعزيز جدا HaNcOcK إذا خطر ببالك إنني أجمالك فأنت على خطأ أنت حقا شخص رائع وليس (( ده كبييييييير جداً و كتيييييييير جداً جداً عليك )) ومتابعتي لإعمالك وأعمال الأخ " Kemas " هي من قبيل متابعة التلميذ للمعلم للاستفادة ( مع ملاحظة انك بعمر أخي الصغير ) فعلا انتم مميزون ....... والموقع مميز بكافة فعالياته وفقكــــــــــــــــــــــــــــــــم الله والسلام ياسر الحافظ
احمد فضيله قام بنشر أبريل 26, 2011 قام بنشر أبريل 26, 2011 السلام عليكم ورحمة الله و بركاته أخي الحبيب / ياسر الحافظ شكراً لك على هذه الكلمات الطيبة التي يعجز اللسان عن شكرك عليها و أنت تدفعني دائماً للأمام بهذه الكلمات الرقيقة جزاك الله كل خير و بارك الله فيك و السلام عليكم ورحمة الله و بركاته
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.