ابو اسامة العينبوسي

السلام عليكم نعم ممكن * سمى النطاق الموجود به الاسماء باسم معين * اذهب الى ورقة 2 و من بيانات من التحقق من الصحة اختر قائمه وفى المصدر ضع اسم النطاق الذى قمت بتسميته سابقا Testit.rar

السلام عليكم اخى طارق دخلت الى المشاركة وانشغلت كثيرا لكن كنت احب ان اشارك لانى منذ فترة لم اشارك Dim MyTarget As Integer MyTarget = Range("a100").End(xlUp).Row + 1 Cells(MyTarget, "A") = Val(Me.TextBox1) test2.rar

السلام عليكم سبقنى الاخ مصطفى كمال كان يجب ان تنقح بعض الامور 1- جهاز كمبيوتر ( 286 او 386 او 486 ) . !!!! كان هذا عام 1995 الشكر لك على المشاركة القيمة

السلام عليكم تصغير الفورم2.rar

Unload Me Sheets("ÇáÓÌá ÇáãÇáí").Select Sheets("ÇáÓÌá ÇáãÇáí").Cells(6, "b") = (ComboBox1) Sheets("ÇáÓÌá ÇáãÇáí").Select ActiveWindow.SelectedSheets.PrintPreview

السلام عليكم ارفق ملف اخى خالد

السلام عليكم ممكن تعطيل كود انسدال القائمة ان شئت (الكود الاول) فهو زيادة Private Sub Com_Box_Enter() Me.Com_Box.DropDown End Sub '----------------------------------------------------------------------------------------- Private Sub Com_Box_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If Me.Com_Box.ListIndex = 0 Then If KeyCode = vbKeyUp Then KeyCode = vbNull If Me.Com_Box.ListIndex = 6 Then If KeyCode = vbKeyDown Then KeyCode = vbNull End Sub MltiPages2.rar

السلام عليكم اخى خبور لا تربت يداك بهكذا مشاركات يصبح المنتدى منتدى

السلام عليكم ممكن بعدة طرق هذه اسهلها ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, xlTextValues).ClearContents السطر الاول لحذف الارقام و الثانى الذي يهمك حذف النصوص Clear text.rar

السلام عليكم شكرا لك اخى طمئنتنى عنه بورك له فيما رزق و شكرا لك

السلام عليكم و رحمة الله نفتقد الاخ العزيز يحيى حسين لعل المانع خير ارجو من يعلم عنه شئا ان يطمئننا او يدرج رقم هاتف الثابت او المحمول

السلام عليكم Private Sub CommandButton1_Click() Dim x As Long On Error GoTo 1: If Cells(1, 1) = 2 Then Cells(1, 1) = -1 Cells(1, 1) = Cells(1, 1) + 1 x = Cells(1, 1).Value Me.MultiPage1.Value = x 1 End Sub Private Sub UserForm_Initialize() Cells(1, 1) = 0 End Sub MltiPages.rar

السلام عليكم اخ طارق ما تريده هو اذا كان الخلايا الثلاث من العمود AH to AJ من نفس الصف تحتوي نفس النص مثلا راسب راسب راسب تريد الاستعاضه عن هذا بدمج الخلايا الثلاث و توسيطها بخلية واحده

السلام عليكم هنا طريقه من انتاجنا المحلي "اوفسينا" Private Sub Worksheet_Change(ByVal Target As Range) Dim x As Long x = Application.WorksheetFunction.CountA(Range("B2:B" & Target.Row)) If Target.Column = 2 And Target.Row > 1 Then If Target.Value <> "" Then Target.Offset(0, -1).Value = "-" & x Else Target.Offset(0, -1).Value = "" End If End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim x As Long x = Application.WorksheetFunction.CountA(Range("B2:B" & Target.Row)) If Target.Column = 2 And Target.Row > 1 Then If Target.Value <> "" Then Target.Offset(0, -1).Value = "-" & x Else Target.Offset(0, -1).Value = "" End If End If End Sub My-Method FOR Counting.rar

السلام عليكم تفضلى بهذا الكود For i = 10 To 17 If Not IsNumeric(Cells(i, "ah")) Then Application.DisplayAlerts = False Range(Cells(i, "ah"), Cells(i, "aj")).MergeCells = True Range(Cells(i, "ah"), Cells(i, "aj")).HorizontalAlignment = xlCenter End If Next Application.DisplayAlerts = True Noor1.rar

السلام عليكم بهذا الكود Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = Sheets(1).Cells(3, 2)

السلام عليكم اضف هذا السطر الى اخر الكود فى حدث تغير الصفحة Application.SendKeys "%^{F9}"

السلام عليكم كود ممتاز اخى عادل مسغول كثير انا لكن لا غنى عن المنتدى كل عام و انتم بخير

السلام عليكم من تنسيق الخلايا مخصص B2ddd بالنسبه للحمايه الاخوه الاكارم يفيدوك نسخة من Xl0000008.rar

السلام عليكم لا اعلم سبب اختيار كل البوكسس مرة واحدة لكن هنا كود تنسيق العمله Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 Then Select Case Target Case Is = "US DOLLAR" Cells(Target.Row, "E").NumberFormat = "[$USD] #,##0.00" Case Is = "EUR" Cells(Target.Row, "E").NumberFormat = "[$EUR] #,##0.00" Case Is = "AED" Cells(Target.Row, "E").NumberFormat = "[$AED] #,##0.00" Case Is = "QAR" Cells(Target.Row, "E").NumberFormat = "[$QAR] #,##0.00" End Select End If End Sub

السلام عليكم If Target.Column > 8 Then Exit Sub If Cells(Target.Row, "H") = 0 Then MsgBox " ÑÕíÏ ÇáÕäÝ " & "(" & Cells(Target.Row, "b") & ")" & " ÝÇÑÛ " End If رصيد مخزن2.rar

السلام عليكم يسرنى ان اكون اول المهنئين بسلامتك و الحمد لله على عودتك سالما اخوك

السلام عليكم الطلب مبهم بالنسبة لى

السلام عليكم x = 7 For i = 1 To 128 Step 2 If Sheets(1).Cells(7, i) = "" Then Exit Sub Sheets(2).Cells(x, "a") = Sheets(1).Cells(7, i) x = x + 1 Next اكتوبر 20092.rar

السلام عليكم لقد عدلت على الملف الاول For i = 2 To 10 x = Application.WorksheetFunction.Sum(Worksheets(1).Range(Cells(i, 2), Cells(i, 11))) If x = 0 Then Rows(i).Hidden = True Next