اذهب الي المحتوي
أوفيسنا

عبدالله المجرب

أوفيسنا
  • Posts

    5,409
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    47

كل منشورات العضو عبدالله المجرب

  1. السلام عليكم الملف به اكواد كثثيره فيها اسم الاستاذ رجب اي الاكواد تقصد بالضبط
  2. بارك الله فيك ابو الحسين على هذه المعلومات القيمة نسأل الله ان يوفقك في عملك الجديد وييسر أمرك غيابك ترك كبير الاثر علينا ولكن نعذرك لاني انا بالذات جربت الانشغال في العمال وعمايله ابواحمد
  3. بارك الله فيك استاذ ابو خليل عمل مميز ومواظبة رائعة وروح تعاون تفيض منك سلمت يمينك ومتعك الله بالصحة والعافية ابواحمد
  4. بارك الله فيك استاذ بن عليه على هذه المعادلة المميزة جعل ما تقوم به في ميزان حسناتك ابواحمد
  5. السلام عليكم اخي وجود value لا يضر هنا لا نها افتراضية فسواءً كتبت ام لا فسيتم ارجاع القيمة ============================================================ اخي الازاحة هنا تعتمد عللى الخلية المعرفة في حلقة التكرار والتي تم الرمز لها ب (Cl) ويقصد بها هنا خلايا عمود (F) في ورقة العمل ============================================================= تعتمد على العمود المرحل اليه والاصح في ملفك المرفق تكون Range("a" & [A1000].End(xlUp).Row + 1).PasteSpecial xlPasteValues ====================================================== القيمة 1000 هي عدد الصفوف المراد ارجاع اخر خلية بها بيانات منها وكلما كان الترحيل مستمر كلما كان الرقم اكبر لمرونة الكود ======================================================== الفكرة موجودة في هذا السطر Range("B" & [E1000].End(xlUp).Row + 1).PasteSpecial xlPasteValues وبالذات في +1 لانها تعني السطر الذي يلي اخر خلية بها بيانات في العمود المستهدف ========= والله اعلم
  6. السلام عليكم بالاضافة الى رابط الاخ ابو حنين (حفظه الله) شاهد هذا الرابط http://www.officena.net/ib/index.php?showtopic=40613
  7. السلام عليكم استبدل كود الكومبوبوكس 1 (حدث التغيير) بهذا Private Sub ComboBox1_Change() If ComboBox1.Value = 0 Then GoTo 1 CommandButton1.Enabled = False CommandButton3.Enabled = True Dim R As Integer, RR As Integer, Endrow As Integer With Sheets("info") Endrow = .Range("A" & .Rows.Count).End(xlUp).Row + 1 For RR = 1 To Endrow If .Cells(RR, 1).Value = Val(ComboBox1) Then For R = 0 To 4 Me.Controls(myCon(R)).Value = .Cells(RR, R + 1).Value Me.Controls("TextBox4").Value = Format(.Cells(RR, 4).Value, "hh:mm") Next R Exit For End If Next RR End With 1 End Sub
  8. السلام عليكم استبدل كودك بهذا Sub Copy() [S9].Select Selection.Copy Call Abu_Ahmed_Copy '------------------ [z9:ab9].Select Selection.Copy Call Abu_Ahmed_Copy '----------------- [ae9].Select Selection.Copy Call Abu_Ahmed_Copy '------------------ [ah9:aq9].Select Selection.Copy Call Abu_Ahmed_Copy Application.CutCopyMode = False End Sub Sub Abu_Ahmed_Copy() Selection.Offset(1, 0).Resize(Cells(10000, 1).End(xlUp).Row - 9, 1).PasteSpecial Paste:=xlPasteFormulas Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues End Sub
  9. السلام عليكم جرب هذا الكود Sub Abu_Ahmed() Dim cl As Range Application.ScreenUpdating = False Set Mysh1 = Sheets("مكتب") Set Mysh2 = Sheets("بنك") For Each cl In [B3:B40] If IsNumeric(cl) Then Select Case Mid(cl, 1, 2) Case Is = 99 cl.Offset(0, -1).Resize(1, 7).Copy Mysh1.Range("A" & Mysh1.[A1000].End(xlUp).Row + 1).PasteSpecial xlPasteValues Case Is = 33 cl.Offset(0, -1).Resize(1, 7).Copy Mysh2.Range("A" & Mysh2.[A1000].End(xlUp).Row + 1).PasteSpecial xlPasteValues End Select End If Next Application.ScreenUpdating = True Application.CutCopyMode = False Set Mysh1 = Nothing Set Mysh2 = Nothing End Sub Book2.rar
  10. بارك الله فيك استاذ طارق وكل سنة وانت طيب
  11. بارك الله فيك استاذ بن عليه على هذا الجهد الكريم وكل سنة وانت طيب
  12. ما رايك ان تمييز أكواد المكتب عن اكواد البنك مثلا يبدى كود البنك ب 99 وكود المكتب ب 33 لتسهيل الترحيل
  13. بارك الله فيك استاذ رجب والحمدلله انه تم تلبية طلبك اخي يوسف (واعذرني لان تواجد قل كثيراً فلم استطع تلبية طلبك)
  14. جرب ان تسجل مايكرو بالنطاق المراد طباعته ثم استخدم سطر الطباعة والنطاق
  15. السلام عليكم الرجاء وضع مرفق للعمل عليه
  16. الاستاذان الفاضلان الخالدي رجب جاويش عمل رائع وحل مميز ومتقن بارك الله فيكما ونفع بعلمكما
  17. اخي احمد ضع مرفق به بيانات بالاضافة الى المعادلة حتى نعرف طريقة عملها ويمكن المحاولة لاستبدالها بكود
  18. السلام عليكم بارك الله فيك استاذ رجب على هذا النشاط الرائع للفائدة == هذا السطر عبارة عن ضغط زري ال SHIFT و ALT معاً لتغيير اللغة Application.SendKeys "%" & "+"
  19. السلام عليكم جرب هذا التعديل Public T As Integer Sub Macro1() If T = 1 Then [B6:C9,E6:H6,K6:O9].Merge: T = 0: Exit Sub If T = 0 Then [B6:C9,E6:H6,K6:O9].UnMerge: T = 1: Exit Sub End Sub
×
×
  • اضف...

Important Information