elhadi قام بنشر يناير 26, 2015 قام بنشر يناير 26, 2015 لدي ملف و به عملية الترحيل حسب اسم الشيت اريد تغيير طريقة النقل بحيث تتم حسب عمر المريض ان كان اقل او يساوي 18 سنة في شيت الاطفال و ان كان اكبر من ذلك يتم الترحيل في شيت الكبار malade.rar
ياسر خليل أبو البراء قام بنشر يناير 26, 2015 قام بنشر يناير 26, 2015 أخي الفاضل يرجى التوضيح هناك ورقة عمل باسم ADULT وأخرى باسم ENFENT وأخرى باسم ورقة1 ..إلى أين تريد الترحيل ومن أين وعلى أساس أي عمود ؟؟ راعي أن البعض لا يجيد اللغة الإنجليزية أو الفرنسية !! وأحيانا العربية ههههه تقبل تحياتي
رجب جاويش قام بنشر يناير 26, 2015 قام بنشر يناير 26, 2015 بعد اذن أخى الحبيب ياسر خليل تفضل أخى جرب الكود التالى Sub ragab() Dim sh As String Application.ScreenUpdating = False On Error Resume Next '====================================================== For ii = 1 To Sheets.Count If Sheets(ii).Name <> "ورقة1" Then Sheets(ii).Range("A2:H1000").ClearContents End If Next '====================================================== For i = 2 To Cells(10000, "H").End(xlUp).Row sh = Cells(i, "H").Value T = Sheets(sh).Cells(10000, 2).End(xlUp).Row + 1 Range(Cells(i, "B"), Cells(i, "H")).Copy Sheets(sh).Range("B" & T).PasteSpecial xlPasteValues Sheets(sh).Range("A" & T) = T - 1 Application.CutCopyMode = False Next i '====================================================== Application.ScreenUpdating = True MsgBox "تم الترحيل بنجاح" End Sub malade.rar 2
ياسر خليل أبو البراء قام بنشر يناير 26, 2015 قام بنشر يناير 26, 2015 أخي الحبيب الغاائب الحاضر ..جاري الغالي .. وأستاذي الكبير رجب بيه جاويش مفتقدين تواجدك بيننا .. لما كل هذه الغيبة الطويلة ..! المهم متهربش مني أنا عازم نفسي عندك لما أنزل البلد ... تقبل تحياتي 1
ا بو سليمان قام بنشر يناير 26, 2015 قام بنشر يناير 26, 2015 أخي الحبيب الغاائب الحاضر ..جاري الغالي .. وأستاذي الكبير رجب بيه جاويش مفتقدين تواجدك بيننا .. لما كل هذه الغيبة الطويلة ..! المهم متهربش مني أنا عازم نفسي عندك لما أنزل البلد ... تقبل تحياتي انت عازم نفسك عند اخي رجب لما تنزل البلد ... وانا علي تكاليف العزززززززززززززززومة ايش رايك وراي اخينا رجب 2
ياسر خليل أبو البراء قام بنشر يناير 26, 2015 قام بنشر يناير 26, 2015 بوركت أخي الحبيب أبو سليمان بس كدا الأستاذ رجب يزعل ..بلشاي أبو الكرم والشهامة والنبل (بس فيها عيب صغير مش هقول عليه) 1
رجب جاويش قام بنشر يناير 26, 2015 قام بنشر يناير 26, 2015 أخى الفاضل / ياسر خليل تشرف وتنور بلشاى كلها ونفرشلك الأرض ( 000000 ) ولا خليها ورد وبلاش اللى انت عارفه أخى الفاضل / ابو سليمان شكرا جزيلا أخى الكريم على هذه المشاعر الطيبة ولكن تكرم أنت وأخى الفاضل ياسر على أرض بلشاى أولا وبعدين لينا زيارك عندك ان شاء الله 1
الحسامي قام بنشر يناير 27, 2015 قام بنشر يناير 27, 2015 السلام عليكم احبائي ايه يا عم ياسر العزومة لناس وناس بس على العموم ملحوقة ----------------- وبعد اذن اخي رجب هنا كود اخر لاثراء الموضوع Dim SH As Worksheet Dim rng As Range, cell As Range Set rng = Range([E2], Cells([E10000].End(xlUp).Row, "E")) For Each cell In rng Set SH = Sheets(3) If cell.Value > 19 Then Set SH = Sheets(2) LR = SH.[B10000].End(xlUp).Row + 1 SH.Cells(LR, "B").Resize(1, 7).Value = cell.Offset(0, -3).Resize(1, 7).Value Next cell Range("B2:H" & [B10000].End(xlUp).Row).ClearContents 4
ياسر خليل أبو البراء قام بنشر يناير 27, 2015 قام بنشر يناير 27, 2015 (معدل) أخي الحبيب أخي في الله أخي الغالي عماد الحسامي (شفت القافية دي : غالي وحسامي ).. والله الذي لا إله إلا هو .. والله الذي لا إله إلا هو .. والله الذي لا إله إلا هو ..أفتقدك بشدة ، ودائما ببالي ولم تغيب عن بالي ، وسألت عليك الأستاذ يحيى حسين ، وطمني عليك فينك يا حبيب !!؟؟؟!!!! ليه الغيبة الطويلة دي ... الحمد لله إني اطمنت عليك ..عايزينك معانا يا كبير ..مفتقدينك والله تقبل تحياتي وودي وأشواقي وحبي في الله تم تعديل يناير 27, 2015 بواسطه YasserKhalil 1
رجب جاويش قام بنشر يناير 27, 2015 قام بنشر يناير 27, 2015 لقد تشرف الموضوع بمرور الأستاذ الكبير الحسامى نورت بيتك أستاذنا الكبير الحسامى ويا ريت ما تحرمناش من ابداعاتك المتجددة
إبراهيم ابوليله قام بنشر يناير 27, 2015 قام بنشر يناير 27, 2015 اخى رجب اخى الحسامى اكواد جميله الاجمل التنوع بارك الله فيكم تقبلو تحياتى
الصـقر قام بنشر يناير 27, 2015 قام بنشر يناير 27, 2015 استاذنا الكبير عماد الحسامى والله العظيم كنت اسعد الناس عند رئيتى لمشاركتك لدرجة انى لم اصدق نفسى ههههههههههههه وبصيت على تاريخ المشاركة وابص على تاريخ اليوم بالتقويم واقول ايوة فعلا دى مشاركة اليوم الحمد لله انك بخير وصحه وعافية وان شاء الله لا تحرمنا من ابداعتك كل اعمالك بالمنتدى حفظتها عندى وعملت منها مكتبة دى بالنسبة لى كنز تعلمت منه الكثير مشاركة حضرتك كانت الساعه 4 فجرا دى بشرا ان شاء الله انه يكون فجر جديد لحضرتك معنا ويشرق معها شمس العلم تقبل تحياتى وواحترامى وتقديرى وحبى فى الله اخوك / حسام عيسى
الحسامي قام بنشر يناير 27, 2015 قام بنشر يناير 27, 2015 اخي الغالي ياسر ... الله وحده الذي يعلم مدى شوقي وحبي لكم اخي رجب ... النور نورك يا كبير اخي ابراهيم .. بارك الله فيك اخي حسام ... كلامك يدل على علو اخلاقك وان شاء الله لن نتغيب 1
جلال الجمال_ابو أدهم قام بنشر يناير 27, 2015 قام بنشر يناير 27, 2015 الغائب الحاضر اخى فى الله / عماد الحسامى بارك الله فيك و كل عام و انتم بخيرنرجو ان تكون بخير و نرجو ان لا تحرمنا من ابداعاتكو بلاش تغيب علينا كتيرو ياريت تتطلع على الرابط من هنا حتى لا يكون مرورك مرور الكرام حاجة تانية مش عاوزين تخش علينا و ايديك فاضية لان منتدانا اصبح متعطش لكل عمل جديد
عبدالباري البنا قام بنشر يناير 27, 2015 قام بنشر يناير 27, 2015 اجمل ما في هذا الموضوع هو عوده احد الطيور الغائبة الى عشها الطيور التي طالما غردت وابتكرت وابدعت مرحبا بعودتك اخينا المبدع ... عماد الحسامى طالما عدت .... لن نعاتبك على غيابك املين الا يتكرر.....نورت بيتك 1
قصي قام بنشر يناير 27, 2015 قام بنشر يناير 27, 2015 الله على البشاره الجميله بعودة الاستاذ الكبير الخلوق لاحرمنا الله منه الاستاذ عماد الحسامي لك وحشة ... أرجوك لاتغب عن اهلك في المنتدى بارك الله فيك اخوك قصي
علي فاهم قام بنشر يناير 28, 2015 قام بنشر يناير 28, 2015 الله على البشاره الجميله بعودة الاستاذ الكبير الخلوق لاحرمنا الله منه الاستاذ عماد الحسامي لك وحشة ... أرجوك لاتغب عن اهلك في المنتدى بارك الله فيك اخوك قصي صدقت و بالجق نطقت و لاننسى الشكر للاستاذ رجب جاويش
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.