تعديل على كود الترحيل

[ضياء 2]

السلام عليكم الاستاذة الكرام بالمنتدى فضلا من كرمكم " المطلوب تعديل على كود الترحيل عند ترحيل البيانات من الفورم يرحل لصفين بدلا من صف يعني يرحل مرتين بدلا من مرة واحدة "

wor1.xlsm

[حسونة حسين]

وعليكم السلام ورحمه الله وبركاته

استبدل الكود الخاص بك بهذا الكود

Private Sub CommandButton1_Click()
    Dim Sh As Worksheet, LROW As Long
    Set Sh = ThisWorkbook.Worksheets("قاعدة بيانات")
    LROW = Sh.Range("I" & Rows.Count).End(xlUp).Row + 1
    If WorksheetFunction.CountIfs(Sh.Range("I2:I" & LROW), TextBox1.Value) = 0 Then
        Sh.Range("I" & LROW).Value = TextBox1.Value
        Sh.Range("I" & LROW + 1).Value = TextBox1.Value
        TextBox1.Value = ""
    Else
        MsgBox "اسم الصنف مكرر"
    End If
    MsgBox ("يرجى ادخال البيانات كاملة بصورة صحيحة")
End Sub

 

[رضا على]

تفضل يا اخى

wor1.xlsm

[ضياء 2]

جزاكم الله كل خير على هذا المجهود الرائع  الاستاتذة الكرام استاذنا hassona229 واستاذنا رضا على تم حل المسألة بكرمكم