الرجاء المساعده

[على حسن]

االرجاء المساعده

New ورقة عمل Microsoft Excel.rar

[على حسن]

المطلوب داخل المرفق 

[الـعيدروس]

الاخ الفاضل على حسن

مالمطلوب يالطيب

بحث عن رقم التحويل وجلب البيانات

ام توليد ارقام ارجو التوضيح

[قنديل الصياد]

اخى العزيز

مرفق ملف لعله يكون المطلوب

 

 

New ورقة عمل Microsoft Excel.rar

[على حسن]

اشكرك اخى طالب علم مجتهد

واستاذى قنديل الصياد

لكن المطلوب كود عمله

رقم ( س ) جعل العمود لا يكرر الارقام

رقم التحويل هو سريال بمجرد ان اضع اى رقم فى الخانه b2 يتم عمل سريال بعده دون تكرار

[أبو حنــــين]

السلام عليكم

هل بهذه الطريقة

و هذا تعديل لمسح خلية الترتيب

Private Sub Worksheet_Change(ByVal Target As Range)

Dim LR As Integer
LR = Cells(Rows.Count, 1).End(xlUp).Row
    On Error Resume Next
    If Target = "" Then Target.Offset(0, 1) = ""
        If Target.Column <> 1 Or Target = "" Then Exit Sub
            If Application.WorksheetFunction.CountIf(Range("A2:A" & LR), Target) > 1 Then
                 MsgBox "هذا الرقم مكرر ", vbInformation, "اسم مكرر"
                    Target = "": Target.Select
                Exit Sub
            Else
        Target.Offset(0, 1) = Val(Target.Offset(-1, 1)) + 1
    End If
    
End Sub

Microsoft Excel.rar

تم تعديل أغسطس 16, 2013 بواسطه أبو حنين

[قنديل الصياد]

رائع استاذى العظيم ابو حنين

 

وهذا الكود استخدمه استاذنا فى حدث ورقة تسجيل البيانات

Private Sub Worksheet_Change(ByVal Target As Range)
Dim LR As Integer
LR = Cells(Rows.Count, 1).End(xlUp).Row
    On Error Resume Next
        If Target.Column <> 1 Or Target = "" Then Exit Sub
            If Application.WorksheetFunction.CountIf(Range("A2:A" & LR), Target) > 1 Then
                 MsgBox "هذا الرقم مكرر فى الخلية", vbInformation, "اسم مكرر"
                    Target = "": Target.Select
                Exit Sub
            Else
        Target.Offset(0, 1) = Val(Target.Offset(-1, 1)) + 1
    End If
End Sub

[على حسن]

اشكركم كثيرا

استاذ ابوحنين

واستاذى قنديل الصياد

تم تعديل أغسطس 24, 2013 بواسطه على حسن