ناصر سعيد

========================================================== كود طباعه Sub MyPrnt() ' Beep If MsgBox("هل تريد الطباعة", vbYesNo, "تنبية") = vbYes Then ActiveWindow.SelectedSheets.PrintOut Copies:=1 End If End Sub '****************** Sub معاينه_طباعه() Dim SS As Integer ''من كنوز العلامة عبد الله باقشير ' SS = Range("عدد_الأوراق").Value * [AK2] SS = Range("B" & Rows.Count).End(xlUp).Row Range("A2:J" & SS).RowHeight = 24 ActiveSheet.PageSetup.PrintArea _ = "$A$2:$J$" & SS ActiveWindow.SelectedSheets.PrintOut Copies:=1 ' PrintPreview 'PrintOut Copies:=1 [A7].Select End Sub

ترحيل او استدعاء راءع ''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''' Sub NAGEH() ''هذا الكود للعبقري ياسر العربي حفظه الله '' تم هذا الكود بتاريخ 8 / 10/ 2016 ''الهدف من الكود هو استدعاء بيانات ''شرح الكود '' Dim myArray, lr, X, targt, targt1, targt2, targtN Dim SERCH As Worksheet, DATA As Worksheet '____________________________________________ Set DATA = Worksheets("رصد الترم الثانى") 'اسم شيت المصدر Set SERCH = Worksheets("كشف ناجح") 'اسم الشيت الهدف '____________________________________________ Range("A8:R1000").Clear 'النطاقات متغيره Range("B7:R7").AutoFill Destination:=Range("B7:R" & Range("A4").Value + 6), Type:=xlFillDefault lr = DATA.Cells(Rows.Count, 2).End(xlUp).Row + 2 'اخر صف به بيانات 'رقم عمود البدايه اللي بعد المسلسل ' متغير SERCH.Range("C7:N" & SERCH.Cells(Rows.Count, 3).End(xlUp).Row + 1).ClearContents 'مسح نطاق البحث القديم targt = "له* دور ثان في" 'معيار البحث 'نطاق قاعدةالبيانات المصدر الذي سيتم البحث فيه myArray = DATA.Range("A7:EF" & lr) '____________________________________________ 'عدد الاعمده في الجدول في صفحه الهدف ReDim Y(1 To lr, 1 To 13) For X = 1 To lr - 6 If targt = "" Then Exit Sub 'رقم عمود معيار البحث If myArray(X, 101) Like targt & "*" Then rw = rw + 1 'For ww = 1 To 102 ' Y(rw, ww) = myArray(X, ww) ' Next ww 'العمود التاني بعد المسلسل Y(rw, 1) = myArray(X, 2) 'العمود الثالث بعد المسلسل Y(rw, 2) = myArray(X, 3) 'العمود الرابع بعد المسلسل Y(rw, 3) = myArray(X, 13) 'العمود الخامس بعد المسلسل Y(rw, 4) = myArray(X, 22) 'العمود السادس بعد المسلسل وهكذا Y(rw, 5) = myArray(X, 31) Y(rw, 6) = myArray(X, 40) Y(rw, 7) = myArray(X, 51) Y(rw, 8) = myArray(X, 52) Y(rw, 9) = myArray(X, 82) Y(rw, 10) = myArray(X, 101) Y(rw, 11) = myArray(X, 102) ' Y(rw, 12) = myArray(X, 110) ' Y(rw, 13) = myArray(X, 111) End If Next X If rw > 0 Then SERCH.Cells(Rows.Count, 3).End(xlUp)(2, 1).Resize(rw, 13).Value = Y() End Sub ترحيل الدور التاني5.rar

ترحيل او استدعاء رائع ''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''' Sub NAGEH() ''هذا الكود للعبقري ياسر العربي حفظه الله '' تم هذا الكود بتاريخ 8 / 10/ 2016 ''الهدف من الكود هو استدعاء بيانات ''شرح الكود '' Dim myArray, lr, X, targt, targt1, targt2, targtN Dim SERCH As Worksheet, DATA As Worksheet '____________________________________________ Set DATA = Worksheets("رصد الترم الثانى") 'اسم شيت المصدر Set SERCH = Worksheets("كشف ناجح") 'اسم الشيت الهدف '____________________________________________ Range("A8:R1000").Clear 'النطاقات متغيره Range("B7:R7").AutoFill Destination:=Range("B7:R" & Range("A4").Value + 6), Type:=xlFillDefault lr = DATA.Cells(Rows.Count, 2).End(xlUp).Row + 2 'اخر صف به بيانات 'رقم عمود البدايه اللي بعد المسلسل ' متغير SERCH.Range("C7:N" & SERCH.Cells(Rows.Count, 3).End(xlUp).Row + 1).ClearContents 'مسح نطاق البحث القديم targt = "له* دور ثان في" 'معيار البحث 'نطاق قاعدةالبيانات المصدر الذي سيتم البحث فيه myArray = DATA.Range("A7:EF" & lr) '____________________________________________ 'عدد الاعمده في الجدول في صفحه الهدف ReDim Y(1 To lr, 1 To 13) For X = 1 To lr - 6 If targt = "" Then Exit Sub 'رقم عمود معيار البحث If myArray(X, 101) Like targt & "*" Then rw = rw + 1 'For ww = 1 To 102 ' Y(rw, ww) = myArray(X, ww) ' Next ww 'العمود التاني بعد المسلسل Y(rw, 1) = myArray(X, 2) 'العمود الثالث بعد المسلسل Y(rw, 2) = myArray(X, 3) 'العمود الرابع بعد المسلسل Y(rw, 3) = myArray(X, 13) 'العمود الخامس بعد المسلسل Y(rw, 4) = myArray(X, 22) 'العمود السادس بعد المسلسل وهكذا Y(rw, 5) = myArray(X, 31) Y(rw, 6) = myArray(X, 40) Y(rw, 7) = myArray(X, 51) Y(rw, 8) = myArray(X, 52) Y(rw, 9) = myArray(X, 82) Y(rw, 10) = myArray(X, 101) Y(rw, 11) = myArray(X, 102) ' Y(rw, 12) = myArray(X, 110) ' Y(rw, 13) = myArray(X, 111) End If Next X If rw > 0 Then SERCH.Cells(Rows.Count, 3).End(xlUp)(2, 1).Resize(rw, 13).Value = Y() End Sub ترحيل الدور التاني5.rar

للرفع

اخواني الكرام عندما اضيف اي مشاركه في هذا الرابط على سبيل المثال لاتتم الاضافه وعندما اعمل موضوع جديد تظهر هذه الرساله بالرغم من نجاح اضافه الموضوع ==================== خطأ في ترميز المحتوى الصفحة التي تحاول زيارتها لا يمكن عرضها لأنها تستخدم نوعًا خطأ أو غير مدعوم من الضغط. من فضلك اتصل بمالكي الموقع لإعلامهم بهذه المشكلة.

ربنا يبارك في النافع

يجزيك الله كل خير .. ويبارك فيك استاذ محمد الريفى

ربط كنترول ايسم http://up.top4top.net/downloadf-342xxrpa1-rar.html

رابط كنترول ايسم http://up.top4top.net/downloadf-342xxrpa1-rar.html

كنترول أيســـــم للاعدادي http://up.top4top.net/downloadf-342xxrpa1-rar.html كنترول أيســــــــــــــــم للتعليم المصري الاعدادي http://up.top4top.net/downloadf-342xxrpa1-rar.html

ترحيل عن طريق القائمه المنسدله للعلامه عبد الله باقشير Sub الديانة() On Error Resume Next H = Range("دين").Value LastRow_1 = Cells(Rows.Count, "B").End(xlUp).Row + 8 Range("B8:AS" & LastRow_1).ClearContents With Sheets("الصف الخامس") S = 8 LastRow_2 = .Cells(.Rows.Count, "E").End(xlUp).Row Application.ScreenUpdating = False For QQ = 12 To LastRow_2 If .Cells(QQ, 3).Value = H Then .Cells(QQ, 2).Range("A1:AS1").Copy Cells(S, 2).PasteSpecial Paste:=xlPasteValues S = S + 1 End If Next End With Application.CutCopyMode = True LastRow_3 = Cells(Rows.Count, "B").End(xlUp).Row ActiveSheet.PageSetup.PrintArea = "$B$1:$AV$" & LastRow_3 ActiveWindow.SelectedSheets.PrintPreview Application.ScreenUpdating = True Application.GoTo [AX4] On Error GoTo 0 End Sub Sub ناجح() On Error Resume Next H = "ناجح" LastRow_1 = Cells(Rows.Count, "B").End(xlUp).Row + 8 Range("B8:AS" & LastRow_1).ClearContents With Sheets("الصف الخامس") S = 8 LastRow_2 = .Cells(.Rows.Count, "E").End(xlUp).Row Application.ScreenUpdating = False For QQ = 12 To LastRow_2 If .Cells(QQ, 47).Value = H Then .Cells(QQ, 2).Range("A1:AS1").Copy Cells(S, 2).PasteSpecial Paste:=xlPasteValues S = S + 1 End If Next End With Application.CutCopyMode = True LastRow_3 = Cells(Rows.Count, "B").End(xlUp).Row ActiveSheet.PageSetup.PrintArea = "$B$1:$AV$" & LastRow_3 ActiveWindow.SelectedSheets.PrintPreview Application.ScreenUpdating = True Application.GoTo [A1] On Error GoTo 0 End Sub Sub دور_تاني() On Error Resume Next H = "دور ثان" LastRow_1 = Cells(Rows.Count, "B").End(xlUp).Row + 8 Range("B8:AV" & LastRow_1).ClearContents With Sheets("الصف الخامس") S = 8 LastRow_2 = .Cells(.Rows.Count, "E").End(xlUp).Row Application.ScreenUpdating = False For QQ = 12 To LastRow_2 If .Cells(QQ, 47).Value = H Then .Cells(QQ, 2).Range("A1:AV1").Copy Cells(S, 2).PasteSpecial Paste:=xlPasteValues S = S + 1 End If Next End With Application.CutCopyMode = True LastRow_3 = Cells(Rows.Count, "B").End(xlUp).Row ActiveSheet.PageSetup.PrintArea = "$B$1:$AW$" & LastRow_3 ActiveWindow.SelectedSheets.PrintPreview Application.ScreenUpdating = True Application.GoTo [A1] On Error GoTo 0 End Sub Sub راسب() On Error Resume Next H = "راسب" LastRow_1 = Cells(Rows.Count, "B").End(xlUp).Row + 8 Range("B8:BA" & LastRow_1).ClearContents With Sheets("الصف الخامس") S = 8 LastRow_2 = .Cells(.Rows.Count, "E").End(xlUp).Row Application.ScreenUpdating = False For QQ = 12 To LastRow_2 If .Cells(QQ, 47).Value = H Then .Cells(QQ, 2).Range("A1:AZ1").Copy Cells(S, 2).PasteSpecial Paste:=xlPasteValues S = S + 1 End If Next End With Application.CutCopyMode = True LastRow_3 = Cells(Rows.Count, "B").End(xlUp).Row ActiveSheet.PageSetup.PrintArea = "$B$1:$BB$" & LastRow_3 ActiveWindow.SelectedSheets.PrintPreview Application.ScreenUpdating = True Application.GoTo [A1] On Error GoTo 0 End Sub ترحيل عن طريق القائمة المنسدله.rar

ملف رائع للعلامه عبد الله باقشير لاستخراج طلاب الدور التاني في كشف مناداه الدور التاني جزاه الله عنا كل خير على المنتدى استدعاء دون المستوى2.rar

======================================= وهذا رابط لبرنامج الاعدادي http://up.top4top.net/downloadf-340bahmr1-rar.html

رابط اخر هديه للاستاذ عبد الباري خاص ببرنامج الابتدائي http://up.top4top.net/downloadf-340rzdbp1-rar.html

استدعاء بيانات بطريقه سريعه جدا للحبيب ياسر العربي خليفه العلامه عبد الله باقشير استدعاء بيانات بطريقه سريعه.rar

الملفات السابقه على المنتدى حتى لاتضيع توزيع اللجان.rar الدوائر الحمراء ساجده.rar تلوين بشرط.rar

توزيع لجان الطلبه كل 4 لجان في صفحه من الروائع http://up.top4top.net/downloadf-3402c7sr1-rar.html Option Explicit Option Base 1 Dim myc As Range Dim myrang2 As Range Sub PrepareCol() Application.ScreenUpdating = False ' توزيع مبدئي setmyrng aly_Clear 'Sheets("اللجان").Cells.Clear 'رقم آخر صف فى جدول المدى من إلى Dim LR_Info As Long ' آخر صف فى عمود البيانات شيت 1 Dim LastRow As Long ' آخر صف فى شيت 2 Dim LastRow2 As Long 'الخلية إلى فى الجدول و الخلية من Dim ToRow As Long, FromRow As Long ' مصفوفة من 3 عناصر لتخزين رقم العمود الجديد Dim LR(0 To 3) As Long ' جدول المدى Dim TableInfo() Dim i As Long, K As Integer Dim MyRg As Range Dim mycl As Range Dim myallrange As Range Dim y As Long Dim x As Integer Dim z As Long Dim m As Long Dim s As Integer Dim T As Integer Dim o As Long, ss As Integer, g As Long, h As Long, u As Long, f_end As Long s = Application.CountA(ورقة2.Range("J9:J500")) ss = Application.RoundUp(s / 4, 0) Dim myrase As Range, mydall As Range, myarwa As Range, myaly As Range 'Sheets("اللجان").Select 'Range(Range("a1:h" & LastRow2), Range("a1:h" & LastRow2).End(xlDown)).Clear Sheets("data").Activate LastRow = Range("A" & Rows.Count).End(xlUp).Row LR_Info = Cells(Rows.Count, Range("إلى").Column).End(xlUp).Row LastRow2 = Sheets("اللجان").Range("B" & Rows.Count).End(xlUp).Row + 1 'توزيع أرقام الجلوس حسب بداية الترقيم Set myallrange = Sheets(1).Range("b2:b" & LastRow) ' For Each mycl In myallrange ' mycl.Offset(, 1).Value = Range("e12") + y 'y = y + 1 'Next mycl Range(Range("إلى").Offset(1), Cells(LR_Info, (Range("إلى").Column) + 1)).Select ' حدود الجدول لاحظ تحديد مدى الجدول باستخدام رينج و سيلس معا TableInfo = Range(Range("من").Offset(1), Cells(LR_Info, (Range("من").Column) + 1)) K = 0 x = 7 ' UBound لمعرفة طول المصفوفة أو الجدول On Error Resume Next For m = 1 To ss For i = 1 To UBound(TableInfo()) ToRow = TableInfo(i, 2) FromRow = TableInfo(i, 1) Set MyRg = Range("e6:e8") MyRg.Copy Destination:=Sheets("اللجان").Cells(LastRow2, K * 4 + 1) Sheets("اللجان").Cells(LastRow2 + 3, K * 4 + 1).Value = "لجنة رقم :" & i Sheets("اللجان").Cells(LastRow2 + 4, K * 4 + 1).Value = " من " & FromRow + Sheets("data").Range("e12") - 1 'Sheets("اللجان").Cells(LastRow2 + 4, K * 4 + 1).Offset(, 1) = FromRow + Sheets("data").Range("e12").Value - 1 Sheets("اللجان").Cells(LastRow2 + 4, K * 4 + 1).Offset(, 2) = "العدد " Sheets("اللجان").Cells(LastRow2 + 4, K * 4 + 1).Offset(1, 2) = ToRow - FromRow + 1 Sheets("اللجان").Cells(LastRow2 + 5, K * 4 + 1).Value = " إلى " & ToRow + Sheets("data").Range("e12") - 1 'Sheets("اللجان").Cells(LastRow2 + 5, K * 4 + 1).Offset(, 1) = ToRow + Sheets(1).Range("e11").Value - 1 Sheets("اللجان").Cells(LastRow2 + 6, K * 4 + 1).Value = " م " Sheets("اللجان").Cells(LastRow2 + 6, K * 4 + 2).Value = " اسم الطالب " 'Sheets("اللجان").Cells(LastRow2 + 6, K * 4 + 3).Value = "رقم الجلوس" Sheets("اللجان").Cells(LastRow2 + 6, K * 4 + 1).Offset(, 2) = "رقم الجلوس" Sheets("اللجان").Cells(LastRow2 + 6, K * 4 + 4).Value = "الديانة" Set MyRg = Range(Cells(FromRow + 1, "B"), Cells(ToRow + 1, "d")) MyRg.Copy Destination:=Sheets("اللجان").Cells(LastRow2 + x, K * 4 + 2) Set myrase = Range("rase") Set mydall = Range("dell") Set myarwa = Range("anas") myrase.Copy Sheets("اللجان").Cells(LastRow2, K * 4 + 1).PasteSpecial xlPasteFormats 'التسلسل For z = 1 To ToRow - FromRow + 1 Sheets("اللجان").Cells(LastRow2 + z + 6, K * 4 + 1).Value = z myarwa.Copy Sheets("اللجان").Cells(LastRow2 + z + 6, K * 4 + 1).PasteSpecial xlPasteFormats Next z Set MyRg = Range("e10") Sheets("اللجان").Cells(LastRow2 + x - 1 + (ToRow - FromRow + 2), K * 4 + 2) = "رئيس الكنترول " & "/" & MyRg Sheets("اللجان").Cells(LastRow2 + x + (ToRow - FromRow + 2), K * 4 + 2) = "رئيس لجنة الامتحان " & "/" & MyRg.Offset(1, 0) 'Sheets("اللجان").Cells(LastRow2 + x + (ToRow - FromRow + 2), K * 4 + 2) = "رئيس لجنة الامتحان " & "/" & MyRg.Offset(1, 0) mydall.Copy Sheets("اللجان").Cells(LastRow2 + x - 1 + (ToRow - FromRow + 2), K * 4 + 1).PasteSpecial xlPasteFormats K = K + 1 K = K Mod 4 LR(K) = LastRow2 + x + ToRow - FromRow + 3 If (K = 0) Then LastRow2 = Application.Max(LR(0), LR(1), LR(2), LR(3)) Sheets("اللجان").Select ActiveWindow.View = xlPageBreakPreview 'g = Sheet1.Cells(Rows.Count, 2).End(xlUp).Row + 1 'h = Sheet1.Cells(Rows.Count, 6).End(xlUp).Row + 1 If (K = 0) Then 'If LastRow2 = 2 Then GoTo 1 'If h > g Then Set ActiveSheet.HPageBreaks(m).Location = Range("A" & LastRow2) 'Else 'Set ActiveSheet.HPageBreaks(m).Location = Range("A" & g) m = m + 1 End If 1 Sheets("data").Select Next i Next m With Sheets("اللجان") o = .Cells(Rows.Count, 2).End(xlUp).Row g = .Cells(Rows.Count, 6).End(xlUp).Row u = .Cells(Rows.Count, 10).End(xlUp).Row h = .Cells(Rows.Count, 14).End(xlUp).Row .Range("a:p").ReadingOrder = xlRTL .Range("a:p").Font.Bold = True .Range("a:p").Font.Size = 13 .Range("a:p").Font.Name = "Arial" f_end = Application.Max(o, g, u, h) .PageSetup.PrintArea = .Range("A2:p" & f_end).Address 'If o > g Then '.PageSetup.PrintArea = .Range("A2:p" & o).Address 'Else '.PageSetup.PrintArea = .Range("A2:p" & g).Address 'End If End With Sheets("اللجان").Select ActiveWindow.View = xlNormalView Range("A1").Activate Set MyRg = Nothing Set myallrange = Nothing Sheets("data").Select Range("A1").Activate End Sub Sub dsds() Dim LastRow2 As Long LastRow2 = Sheets("اللجان").Range("B" & Rows.Count).End(xlUp).Row + 1 'Range(Range("a1:h" & LastRow2), Range("a1:h" & LastRow2).End(xlDown)).Clear Sheets("اللجان").Range(Range("a1:h" & LastRow2), Range("a1:h" & LastRow2).End(xlDown)).Clear End Sub Sub aly_Clear() Dim y As Integer Application.ScreenUpdating = False With Sheet1 y = .UsedRange.Rows.Count + 100 .Range("A2:p" & y).Clear .ResetAllPageBreaks .PageSetup.Zoom = 92 .PageSetup.PrintArea = .Range("A2:p10000").Address Range("A1").Activate End With End Sub Sub jhjjhjh() 'On Error Resume Next Dim o As Integer, b As Integer, d As Range, dd As Integer, g As Integer, h As Integer With Sheets("اللجان") o = .Cells(Rows.Count, 2).End(xlUp).Row g = .Cells(Rows.Count, 6).End(xlUp).Row .Range("a:k").ReadingOrder = xlRTL .Range("a:k").Font.Bold = True If o > g Then .PageSetup.PrintArea = .Range("A2:H" & o).Address Else .PageSetup.PrintArea = .Range("A2:H" & g).Address End If End With End Sub Sub muuyy() 'On Error Resume Next Dim E As Integer, b As Integer, d As Integer, dd As Integer, gg As Integer, hh As Integer 'g = Application.CountA(ورقة2.Range("J9:J500")) b = 9 E = 2 d = Application.RoundUp(b / 2, 0) End Sub Sub ads222s() With ورقة1.Range("a1:p300") .ShrinkToFit = True .ReadingOrder = xlRTL ' اتجاه النص .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With With ورقة1.Range("a1:p300").Font .Name = "Arial" .FontStyle = "غامق" .Size = 13 End With End Sub Sub setmyrng() Sheets("data").Range("h9:i500").ClearContents Sheets("data").Range("h9") = 1 Range("i9") = Range("j9") Range("h10") = Range("i9") + 1 Dim myc As Range Dim myrang2 As Range Set myrange2 = Range("j10:j500") For Each myc In myrange2 If myc <> "" Then myc.Offset(0, -1) = (myc.Value + myc.Offset(0, -2).Value) - 1 If myc.Offset(1, 0) <> "" Then myc.Offset(1, -2) = myc.Offset(0, -1) + 1 'myc.Offset(1, -2) = myc.Offset(0, -1) + 1 End If End If Next myc End Sub كود الدوائر الحمرا ولااسهل http://up.top4top.net/downloadf-340w1meo1-rar.html 'هذا الكود للمبدعه ساجده العزاوي 'الهدف من الكود هو وضع دوائر حمراء حول الدرجات الضعيفه بمعيارك ' Dim c As Range Dim o As Shape Dim N As Integer Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("c1:i1")) Is Nothing Then GoTo 1 Else 1: N = Target.Column Select Case N Case 3 A = [C1].Value Case 4 A = [D1].Value Case 5 A = [E1].Value Case 6 A = [F1].Value Case 7 A = [G1].Value Case 8 A = [H1].Value Case 9 A = [I1].Value End Select For Each c In Range(Cells(2, N), Cells(8, N)) If c.Value < A And A <> "" Then Set o = Sheets("younes").Shapes.AddShape(msoShapeOval, _ c.Left, c.Top, c.Width, c.Height) o.Fill.Visible = msoFalse o.Line.ForeColor.SchemeColor = 10 o.Line.Weight = 1.25 o.Name = "S" & c.Address Else Dim shp As Shape For Each shp In ActiveSheet.Shapes If shp.Name Like "S" & c.Address Then shp.Delete Next End If Next End If End Sub ======================================================================= تلوين خلايا بشرط http://up.top4top.net/downloadf-3401oiyo1-rar.html

عند مسح محتوى صفحات الهدف يدوي من الصف اللي تحت العناوين تاتي بالنتائج في صفوف اعلا من الرؤوس

http://www.mediafire.com/file/9zrp65trxah4m4x/بيانات+الموظفين+-+Copy.rar رابط اخر للمحترم ياسر العربي

عملك عظيم وانا اثق فيكم وفي دقه المخرجات في البرنامج جزاكم الله كل خير

لماذا لم تعلق اخي الكريم على الرساله التي تظهر ؟

بدات بالصف الخامس ظهرت هذه الرساله مامعنى هذه الرساله ؟ كيف يتم ازالتها ؟

Sub Test_Yasser() Dim x, str As String For x = 6 To Cells(Rows.Count, 3) _ .End(xlUp).Row str = Cells(x, 6) Range("C" & x & ":F" & x) _ .Copy Sheets(str).Range("C" & _ Sheets(str).Cells(Rows.Count, 3) _ .End(xlUp).Row + 1) Next MsgBox "Done........", 64 End Sub من فضلكم اؤيد شؤح اسطر هذا الكود الرائع

استاذ عبد الباري بعد التحيه انت من الناس المحترمين جدا وعملك ان شاء الله طيب ولذلك ارجوك رجاء حارا ان تجعل كلمات السر في جميع اعمالك التي ترفعها خالصه لوجه الله كلها بالرقم 1 لماذا ؟ هاتفتكر ايه واللا ايه ؟