كود الترتيب داخل الجدول

[أب مارية]

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

أخوتي أود طرح سؤال وهو ما هو الكود الذي يضاف داخل الفورم حيث أنه بعد ترحيل بيانات الفورم إلى الجدول الموجود في الشيت يتم ترتيبها حسب الأبجدية باللغة الانجليزية أي الذي يبدأ بالحرف A ثم B ثم C وهكذا

تم تعديل مارس 20, 2014 بواسطه foular

[سليم حاصبيا]

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

صديقي   foular  

ادخل الى مشاركتي     "المساعدة فى الترتيب التلقائى للعمود"

و سترى الكود هناك

[أب مارية]

السلام عليكم اخي سليم 

مشكور على الاهتمام قمت بالطلاع على الكود لكن للأسف لم استطع تطبيقه على ملفي وفيما يلي الكود الذي لدي وارجو معالجته

Private Sub Bout1AF_Click()

If TextBoxAF48 = "" Or TextBoxAF49 = "" Or TextBoxAF50 = "" Or TextBoxAF51 = "" Or TextBoxAF52 = "" Or TextBoxAF53 = "" Then GoTo 1

Dim iRow As Long

Dim ws As Worksheet

Set ws = Worksheets("Fournisseurs")

 

iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

ws.Cells(iRow, 1).Value = iRow - 8

ws.Cells(iRow, 2).Value = Me.TextBoxAF53.Value

ws.Cells(iRow, 3).Value = Me.TextBoxAF52.Value

ws.Cells(iRow, 4).Value = Me.TextBoxAF51.Value

ws.Cells(iRow, 5).Value = Me.TextBoxAF50.Value

ws.Cells(iRow, 6).Value = Me.TextBoxAF49.Value

ws.Cells(iRow, 7).Value = Me.TextBoxAF48.Value

 

Me.TextBoxAF53 = Empty

Me.TextBoxAF52 = Empty

Me.TextBoxAF51 = Empty

Me.TextBoxAF50 = Empty

Me.TextBoxAF49 = Empty

Me.TextBoxAF48 = Empty

 

 

Me.TextBoxAF53.Value = ""

Me.TextBoxAF52.Value = ""

Me.TextBoxAF51.Value = ""

Me.TextBoxAF50.Value = ""

Me.TextBoxAF49.Value = ""

Me.TextBoxAF48.Value = ""

 

Exit Sub

1

MsgBox "Il faut  compléter les données", vbExclamation, "Erreur"

End Sub

[سليم حاصبيا]

Vous n'avez pas delarer   for   next    loop  dans le code 

[أب مارية]

comment fait SVP

[سليم حاصبيا]

VOILA

............................................

iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

FOR I=1 TO Irow

 if irow<9 then

irow=9   

end if

ws.Cells(iRow, 1).Value = iRow - 8
ws.Cells(iRow, 2).Value = Me.TextBoxAF53.Value
ws.Cells(iRow, 3).Value = Me.TextBoxAF52.Value
ws.Cells(iRow, 4).Value = Me.TextBoxAF51.Value
ws.Cells(iRow, 5).Value = Me.TextBoxAF50.Value
ws.Cells(iRow, 6).Value = Me.TextBoxAF49.Value
ws.Cells(iRow, 7).Value = Me.TextBoxAF48.Value

NEXT I

.............................................

Puis continuer le macro

تم تعديل مارس 20, 2014 بواسطه سليم حاصبيا

[أب مارية]

السلام عليكم

بارك الله فيك أخي سليم لكن للأسف لم ينجح الأمر معي 

لقد وضعت الملف في المرفقات للعمل عليه مباشرة

ولك مني كل تقدير واحترام 

ترتيب تلقائي.rar

[سليم حاصبيا]

الملف جاهز تفضل ،ممكن تعمل بعض التعديلات

 

التعديل عل صفحة    "Founisseurs 2"

ترتيب تلقائي.rar

[أب مارية]

السلام عليكم

مشكور على العمل الجميل

لكن احببت اي يكون الترتيب تلقائي بعد الترحيل مباشرة اي دون اجراء التصفية

لكنني سأحتفظ بفكرتك اذا تغذر حصولي على ما أصبو اليه