اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ابو منذر عبد الله

عضو جديد 01
  • Posts

    38
  • تاريخ الانضمام

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

السمعه بالموقع

0 Neutral

عن العضو ابو منذر عبد الله

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    fonctionaire
  • البلد
    algeria
  • الإهتمامات
    tou

اخر الزوار

295 زياره للملف الشخصي
  1. مشكور يا اخي و لو امكن ينقل صفحة tout حسب نوعها و قيمتها حسب التاريخ المحدد لها يعني يكون تنسيق الصفحات مثل bass و شكرا لك
  2. هذا الملف لاحد الاخوة هنا و قمت بالتغيير عليه ممكن المساعدة في كود ترحيل للصفحة حسب النوع المختار امام كل اسم و شكرا Nour_Vise_versa (3).xlsm
  3. السلام عليكم اخواني استفدت كثيرا من خبرتكم و حاولت انجاز هذا العمل حيث اريد ترحيل رقم في خلية رقم الغياب الى اوراق محدد حسب الرمز المحدد و الى الشخص المحدد برقمه و بالتاريخ في راس عمود ادخال البيانات حيث فيه اكثر من 2000 شخص العمل هذا اعرف انه معقد و طويل و احتاجه حيث حاولت الاستفادة من المنتدى بالاكواد اللازمة و لكنني لم افلح و اكون جد شاكرا لكم لسعة صدوركم و مساعدتي على هذا العمل و ادعو الله ان يطيل اعماركم و يزيدها في ميزان حسناتكم و منكم استفدنا و و لكم الفضل في نجاح هذا العمل الذي سهل على الكثير الكثير من العمال من مهامهم و السلام عليكم ترحيل بيانات.xlsx
  4. السلام عليكم اخواني احتاج مساعدتكم في هذا العمل الذي احناجه حيث اريد عند اختيار الرمز يجلب من القائمة المعنيين به فقط او الكل حسب الاختيار وعند الضغط على زر ترحيل يقوم بترحيل عدد الغياب للشخص المحدد حسب الرقم في الورقة المخصصة حسب نوع الغياب في العمود حسب تاريخ الادخال و يحافظ على السابق المرحل بتاريخ مختلف ارجو مساعدتكم ترحيل بيانات.xlsx
  5. السلام عليكم يشرفني ان اطلب منكم المساعدة في عمل كود ترحيل ارقام الى اوراق المخصص حسب الملف المرفق و مشكورين على المساعدة ادخال بيانات غياب.xlsx
  6. بارك الله فيكم و جزاكم الله كل الخير منكم استفدنا كثيرا شكرا شكرا لكم
  7. معذرة اخي و لكن ليس هو المطلوب فالاسماء بقيت مكررة فالمطلوب هو معرفة الاسماء المكررة فقط و ليس اعادة تكرارها أخي
  8. السلام عليكم اخواني ممكن المساعدة في دالة معرفة الاسماء المكررة اكثر من مرة و بارك الله فيكم takrir.xlsx
  9. مشكور أخي جزاءك عند الله اتعبناك معنا لا أدري اين الخلل ممكن من هو ملون بالأصفر Dim r, i As Integer Private Sub CommandButton1_Click() For j = 1 To 8 Cells(r, j) = Controls("TextBox" & j).Text Next j ListBox1.List(i, 0) = TextBox2.Text End Sub Private Sub CommandButton2_Click() 'lrw = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row 'For j = 1 To 8 ' Sheets(1).Cells(lrw + 1, j) = Controls("TextBox" & j).Text ' Next j ' For i = 1 To 8 ' Next i ' Controls("TextBox" & i).Text = "" ' ListBox1.AddItem ' ListBox1.List(ListBox1.ListCount - 1, 0) = Sheets(1).Cells(lrw + 1, 2).Value ' ListBox1.List(ListBox1.ListCount - 1, 1) = lrw + 1 ' TextBox1.Value = Application.WorksheetFunction.Max(Sheets(1).Range("A4:A5000")) + 1 'TextBox2.SetFocus Dim TotalRows As Long Dim Sh As Worksheet Set Sh = æÑÞÉ1 With Sh TotalRows = .Cells(Rows.Count, "A").End(xlUp).Row If TotalRows < 3 Then TotalRows = 3 Else TotalRows = TotalRows End If .Cells(TotalRows + 1, 1) = Me.TextBox1.Value .Cells(TotalRows + 1, 2) = Me.TextBox2.Text .Cells(TotalRows + 1, 3) = Format(TextBox3, "dd/mm/yyyy") .Cells(TotalRows + 1, 4) = Me.TextBox4.Value .Cells(TotalRows + 1, 5) = Me.TextBox5.Value .Cells(TotalRows + 1, 6) = Me.TextBox6.Value .Cells(TotalRows + 1, 9) = Me.TextBox14.Text .Cells(TotalRows + 1, 10) = Me.TextBox9.Value .Cells(TotalRows + 1, 11) = Me.TextBox10.Value .Cells(TotalRows + 1, 12) = Me.TextBox11.Value .Cells(TotalRows + 1, 13) = Me.TextBox13.Value .Cells(TotalRows + 1, 14) = Me.TextBox15.Value End With ClearForm TextBox2.SetFocus End Sub Private Sub CommandButton3_Click() If MsgBox("ÓíÊã ÇáÍÐÝ åá ÃäÊ ãÊÃßÏ¿", vbQuestion + vbYesNo) = vbYes Then Sheets(1).Cells(r, 1).EntireRow.Delete For Z = 1 To 8 Sheets(1).Cells(r, Z).Delete Shift:=xlUp Next Z Sheets(1).Cells(r, 1).Resize(r, 11).Delete Shift:=xlUp MsgBox "ÊãÊ ÚãáíÉ ÇáÍÐÝ ÈäÌÇÍ" For y = 1 To 8 Controls("Textbox" & y).Text = "" Next y ListBox1.Clear UserForm_Activate TextBox12 = "" End If End Sub Private Sub Label12_Click() End Sub Private Sub Label23_Click() End Sub Private Sub Label7_Click() End Sub Private Sub Label9_Click() End Sub Private Sub ListBox1_Click() For i = 0 To ListBox1.ListCount If ListBox1.Selected(i) = True Then For j = 1 To 8 Controls("TextBox" & j).Text = Cells(ListBox1.List(i, 1), j) Next j r = ListBox1.List(i, 1) Exit For End If Next i End Sub Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) For i = 1 To 6 Controls("TextBox" & i).Text = "" Next i TextBox1.Value = Application.WorksheetFunction.Max(Sheets(1).Range("A4:A5000")) + 1 TextBox2.SetFocus End Sub Private Sub TextBox12_Change() ListBox1.Clear For i = 1 To 8 Controls("TextBox" & i).Text = "" Next i If TextBox12 = "" Then Exit Sub Sheets(1).Activate ss = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row k = 0 For Each C In Range("B4:B" & ss) If C Like TextBox12.Value & "*" Then ListBox1.AddItem ListBox1.List(k, 0) = Cells(C.Row, 2).Value ListBox1.List(k, 1) = C.Row k = k + 1 End If Next C End Sub Private Sub TextBox6_Change() Me.TextBox7.Value = (Val(Me.TextBox5.Value) + Val(Me.TextBox6.Value)) / 2 'TextBox7 = Val((TextBox5 + TextBox6) / 2) End Sub 'Private Sub TextBox5_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 'TextBox12.Value = "" 'ListBox1.Clear 'End Sub Private Sub UserForm_Activate() TextBox12.SetFocus For i = 4 To Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row ListBox1.AddItem ListBox1.List(i - 4, 0) = Cells(i, 2).Value ListBox1.List(i - 4, 1) = i Next i TextBox1.Value = Application.WorksheetFunction.Max(Sheets(1).Range("A4:A5000")) + 1 TextBox2.SetFocus End Sub Sub ClearForm() For Each ctl In Me.Controls If TypeName(ctl) = "TextBox" Then ctl.Value = vbNullString End If Next ctl End Sub
×
×
  • اضف...

Important Information