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

[sabry fahmy]

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

Dim LastRow As Long
LastRow=ThisWorkbook.Sheets("DETABEZ").Range("A1000000").End(xlUp).Row
LastRow = LastRow + 1
With ThisWorkbook.Sheets("DETABEZ")
.Range("D" & LastRow)= TextBox1.Value
.Range("I" & LastRow)= TextBox2.Value
.Range("B" & LastRow)= TextBox3.Value
.Range("C" & LastRow)= TextBox4.Value
End With
End Function

اريد تعديل الكود بحيث يرحل الي اول خلية في العمود الفارغ 

وهذا هو شيت العمل 

12222222.xlsx

[محي الدين ابو البشر]

 

LastRow = ThisWorkbook.Sheets("DETABEZ").Range("B1000000").End(xlUp).Row

 

[sabry fahmy]

محي الدين ابو البشر

شكرا جزيلا استاذ محي ولكن الكود عند الترحيل وبدء ترحيل جديد يحذف الترحيل السابق  علما باني الفورم بة 4 تيكست بوكس عند الترحيل املاء تكيست بوكس واحد فقط او اثنين علي الاكثر 

[محي الدين ابو البشر]

تفضل أخي الكريم

 Dim LastRow As Long
    LastRow = LR + 1
    With ThisWorkbook.Sheets("DETABEZ")
        .Range("D" & LastRow) = TextBox1.Value
        .Range("I" & LastRow) = TextBox2.Value
        .Range("B" & LastRow) = TextBox3.Value
        .Range("C" & LastRow) = TextBox4.Value
    End With

ضع هذا  في موديول

Function LR() As Long
    Dim ar, tmp, i
    ar = Array("2", "3", "4", "9")
    For i = 0 To UBound(ar) - 1
        LR = ThisWorkbook.Sheets("DETABEZ").Cells(Rows.Count, CLng(ar(i))).End(xlUp).Row
        If LR > tmp Then: tmp = LR
    Next
    LR = tmp
End Function

 

[sabry fahmy]

محي الدين ابو البشر

مشكور اخي الحبيب